version 1.31, 2006/08/07 20:55:28 |
version 1.32, 2006/08/23 11:49:49 |
|
|
*(bp++) = ch; |
*(bp++) = ch; |
for (;;) { |
for (;;) { |
ch = getc(pdp->rp_file); |
ch = getc(pdp->rp_file); |
if (!isalnum(ch) && ch != '_' && ch != '-' && |
if (ch == EOF) { |
|
type = RCS_TOK_EOF; |
|
break; |
|
} else if (!isalnum(ch) && ch != '_' && ch != '-' && |
ch != '/') { |
ch != '/') { |
ungetc(ch, pdp->rp_file); |
ungetc(ch, pdp->rp_file); |
break; |
break; |
|
|
type = RCS_TOK_STRING; |
type = RCS_TOK_STRING; |
for (;;) { |
for (;;) { |
ch = getc(pdp->rp_file); |
ch = getc(pdp->rp_file); |
if (ch == '@') { |
if (ch == EOF) { |
|
type = RCS_TOK_EOF; |
|
break; |
|
} else if (ch == '@') { |
ch = getc(pdp->rp_file); |
ch = getc(pdp->rp_file); |
if (ch != '@') { |
if (ch != '@') { |
ungetc(ch, pdp->rp_file); |
ungetc(ch, pdp->rp_file); |
|
|
|
|
for (;;) { |
for (;;) { |
ch = getc(pdp->rp_file); |
ch = getc(pdp->rp_file); |
|
if (ch == EOF) { |
|
type = RCS_TOK_EOF; |
|
break; |
|
} |
if (bp == pdp->rp_bufend) |
if (bp == pdp->rp_bufend) |
break; |
break; |
if (!isdigit(ch) && ch != '.') { |
if (!isdigit(ch) && ch != '.') { |