Checkpoint -- still merging with Taj's version of the world.
This commit is contained in:
parent
b855148c9b
commit
c5561c23cf
37 changed files with 415 additions and 378 deletions
|
|
@ -9,14 +9,14 @@ maknew(char *str)
|
|||
char *p, *q, *ba;
|
||||
|
||||
p = str;
|
||||
for (ba = 0; c = *str; str++)
|
||||
for (ba = 0; (c = *str); str++)
|
||||
if (c == '\\' && *(str + 1) == '&')
|
||||
ba = str;
|
||||
str = p;
|
||||
if (ba == 0) {
|
||||
for (dpoint = 0; *str; str++) {
|
||||
if (*str == '.' && !ineqn(str, p) &&
|
||||
(str > p && digit(*(str - 1)) ||
|
||||
((str > p && digit(*(str - 1))) ||
|
||||
digit(*(str + 1))))
|
||||
dpoint = (int)str;
|
||||
}
|
||||
|
|
@ -37,7 +37,7 @@ maknew(char *str)
|
|||
exlim = exstore + MAXCHS;
|
||||
}
|
||||
q = exstore;
|
||||
while (*exstore++ = *str++)
|
||||
while ((*exstore++ = *str++))
|
||||
;
|
||||
*p = 0;
|
||||
return(q);
|
||||
|
|
@ -50,7 +50,7 @@ ineqn (char *s, char *p)
|
|||
/* true if s is in a eqn within p */
|
||||
int ineq = 0, c;
|
||||
|
||||
while (c = *p) {
|
||||
while ((c = *p)) {
|
||||
if (s == p)
|
||||
return(ineq);
|
||||
p++;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue