static char sccsid
[] = "@(#)tm.c 4.2 %G%";
/* tm.c: split numerical fields */
/* make two numerical fields */
for (ba
= 0; c
= *str
; str
++)
if (c
== '\\' && *(str
+1)== '&')
for (dpoint
=0; *str
; str
++)
if (*str
=='.' && !ineqn(str
,p
) &&
(str
>p
&& digit(*(str
-1)) ||
if (digit( * (str
-1) ) && !ineqn(str
, p
))
if (!dpoint
&& p
==str
) /* not numerical, don't split */
if (exstore
==0 || exstore
>exlim
)
while (*exstore
++ = *str
++);
/* true if s is in a eqn within p */
if ((ineq
== 0) && (c
== delim1
))
if ((ineq
== 1) && (c
== delim2
))