macro.c

LOCAL   skipto(endch)
        REG CHAR        endch;
{
        /* skip chars up to } */
        REG CHAR        c;
        WHILE (c=readc()) ANDF c!=endch
        DO      SWITCH c IN

                case SQUOTE:    skipto(SQUOTE); break;

                case DQUOTE:    skipto(DQUOTE); break;

                case DOLLAR:    IF readc()==BRACE
                                THEN    skipto('}');
                                FI
                ENDSW
        OD
        IF c!=endch THEN error(badsub) FI
}