1 /* tm.c: split numerical fields */
7 /* make two numerical fields */
12 for (ba = 0; c = *str; str++)
13 if (c == '\\' && *(str + 1) == '&')
17 for (dpoint = 0; *str; str++) {
18 if (*str == '.' && !ineqn(str, p) &&
19 (str > p && digit(*(str - 1)) ||
24 for (; str > p; str--) {
25 if (digit( *(str - 1) ) && !ineqn(str, p))
28 if (!dpoint && p == str) /* not numerical, don't split */
35 if (exstore == 0 || exstore > exlim) {
36 exstore = exspace = chspace();
37 exlim = exstore + MAXCHS;
40 while (*exstore++ = *str++)
48 ineqn (char *s, char *p)
50 /* true if s is in a eqn within p */
57 if ((ineq == 0) && (c == delim1))
59 else if ((ineq == 1) && (c == delim2))