version 1.18, 2002/12/19 21:24:28 |
version 1.19, 2003/04/04 00:42:34 |
|
|
pfa->initstat = 2; |
pfa->initstat = 2; |
do { |
do { |
n++; |
n++; |
sprintf(num, "%d", n); |
snprintf(num, sizeof num, "%d", n); |
temp = *patbeg; |
temp = *patbeg; |
*patbeg = '\0'; |
*patbeg = '\0'; |
if (is_number(s)) |
if (is_number(s)) |
|
|
s = patbeg + patlen; |
s = patbeg + patlen; |
if (*(patbeg+patlen-1) == 0 || *s == 0) { |
if (*(patbeg+patlen-1) == 0 || *s == 0) { |
n++; |
n++; |
sprintf(num, "%d", n); |
snprintf(num, sizeof num, "%d", n); |
setsymtab(num, "", 0.0, STR, (Array *) ap->sval); |
setsymtab(num, "", 0.0, STR, (Array *) ap->sval); |
pfa->initstat = tempstat; |
pfa->initstat = tempstat; |
goto spdone; |
goto spdone; |
|
|
} while (nematch(pfa,s)); |
} while (nematch(pfa,s)); |
} |
} |
n++; |
n++; |
sprintf(num, "%d", n); |
snprintf(num, sizeof num, "%d", n); |
if (is_number(s)) |
if (is_number(s)) |
setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval); |
setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval); |
else |
else |
|
|
while (*s!=' ' && *s!='\t' && *s!='\n' && *s!='\0'); |
while (*s!=' ' && *s!='\t' && *s!='\n' && *s!='\0'); |
temp = *s; |
temp = *s; |
*s = '\0'; |
*s = '\0'; |
sprintf(num, "%d", n); |
snprintf(num, sizeof num, "%d", n); |
if (is_number(t)) |
if (is_number(t)) |
setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval); |
setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval); |
else |
else |
|
|
for (n = 0; *s != 0; s++) { |
for (n = 0; *s != 0; s++) { |
char buf[2]; |
char buf[2]; |
n++; |
n++; |
sprintf(num, "%d", n); |
snprintf(num, sizeof num, "%d", n); |
buf[0] = *s; |
buf[0] = *s; |
buf[1] = 0; |
buf[1] = 0; |
if (isdigit((uschar)buf[0])) |
if (isdigit((uschar)buf[0])) |
|
|
s++; |
s++; |
temp = *s; |
temp = *s; |
*s = '\0'; |
*s = '\0'; |
sprintf(num, "%d", n); |
snprintf(num, sizeof num, "%d", n); |
if (is_number(t)) |
if (is_number(t)) |
setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval); |
setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval); |
else |
else |