Return to s_inout.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / parser

Annotation of 42BSD/ingres/source/parser/s_inout.c, revision 1.1

1.1     ! root        1: # include <ingres.h>
        !             2: # include "scanner.h"
        !             3: # include      <sccs.h>
        !             4: 
        !             5: SCCSID(@(#)s_inout.c   7.2     5/4/83)
        !             6: 
        !             7: /* TWO CHARACTER STACK FOR 'UNGETC' BACKUP */
        !             8: char   Pchar[2];
        !             9: int    Pctr;
        !            10: 
        !            11: 
        !            12: /*
        !            13: ** BACKUP
        !            14: ** saves the character argument in the global stack 'Pchar'
        !            15: **/
        !            16: backup(chr)
        !            17: char   chr;
        !            18: {
        !            19:        extern int      yyline;
        !            20: 
        !            21:        if (Pctr == 2)
        !            22:                syserr("overflow in backup()");
        !            23:        Pchar[Pctr++] = chr;
        !            24:        if (chr == '\n')
        !            25:                yyline--;
        !            26: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.