readwc
extern unsigned int readwc();
c = readwc();
c = readwc();
c = readwc();
pc = readw(readwc());
c = readwc(); /* get character to be escaped */
while ((c = readwc()) && c != endch)
if (readwc() == BRACE)
d = readwc();
if ((c = readwc(), dolchar(c)))
c = readwc();
c = readwc();
c = readwc();
c = readwc();
while ((d = readwc()) != SQUOTE && d) {
d = readwc();
while (d = readwc()) {
d = readwc();
c = readwc(); /* check if character in here document is
peekc = readwc();
d = readwc();
if ((cc = readwc()) == 0) {
if ((cc = readwc()) == 0) {
if ((d = readwc()) == ESCAPE) {
if ((c = readwc()) == NL) {
while ((c = readwc()) != NL && c != EOF);
while ((c = readwc()) && c != LITERAL){