pgetc
int pgetc(void);
for (q = eofmark + 1; c2 = pgetc(), *q != '\0' && c2 == *q; q++)
c = pgetc();
c = pgetc();
c = pgetc();
c = pgetc();
c = pgetc();
c = pgetc();
if (c == '\\' && pgetc() != '\\')
c = pgetc();
while ((c = pgetc()) != '\'') {
c = pgetc();
c = pgetc();
c = pgetc();
c = pgetc();
return (pgetc());
readtoken1(pgetc(), DQSYNTAX, NOEOFMARK, 0);
readtoken1(pgetc(), here->here->type == NHERE? SQSYNTAX : DQSYNTAX,
while ((c = pgetc()) != '\n' && c != PEOF);
if (pgetc() == '\n') {
c = pgetc();