Return to yylex.c CVS log

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

Annotation of 42BSD/ingres/source/equel/yylex.c, revision 1.1

1.1     ! root        1: # include      <stdio.h>
        !             2: # include      "constants.h"
        !             3: # include      "globals.h"
        !             4: # include      "y.tab.h"
        !             5: # include      <sccs.h>
        !             6: 
        !             7: SCCSID(@(#)yylex.c     7.1     2/5/81)
        !             8: 
        !             9: 
        !            10: /*
        !            11: **  YYLEX -- Lexical analyzer
        !            12: **     Yylex controls the return to the parser of lexemes,
        !            13: **     and the copying out of C_CODE on the all to yylex 
        !            14: **     after yylex() returned the C_CODE.
        !            15: **
        !            16: **     Returns:
        !            17: **             Lexical tokens.
        !            18: **
        !            19: **     Side Effects:
        !            20: **             Copies C code out on call after seeing it.
        !            21: **             Puts terminals in symbol space.
        !            22: **
        !            23: **     Called By:
        !            24: **             Yacc internals (yyparse()).
        !            25: */
        !            26: 
        !            27: 
        !            28: 
        !            29: yylex()
        !            30: {
        !            31:        register int            rtval;
        !            32:        register char           chr;
        !            33: 
        !            34: 
        !            35: 
        !            36:        /* get next token */
        !            37:        rtval = CONTINUE;
        !            38: 
        !            39:        while (rtval == CONTINUE)
        !            40:        {
        !            41:                if (C_code_flg)
        !            42:                {
        !            43:                        copy_c_code();
        !            44:                        Newline = 1;
        !            45:                }
        !            46:                Pre_proc_flg = 0;
        !            47:        
        !            48:                /* END OF FILE ? */
        !            49:                if ((chr = getch()) == EOF_TOK)
        !            50:                {
        !            51: #                      ifdef xDEBUG
        !            52:                        if (Lex_debug)
        !            53:                                printf("end of file\n");
        !            54: #                      endif
        !            55:                        return (0);
        !            56:                }
        !            57:        
        !            58:                /* Test for a line of C code */
        !            59:                if (Newline && if_c_code(chr))
        !            60:                {
        !            61:                        if (C_code_flg)
        !            62:                                continue;
        !            63:                        rtval = Tokens.sp_c_code;
        !            64:                        C_code_flg = 1;
        !            65:                        break;
        !            66:                }
        !            67:                else
        !            68:                {
        !            69:                        C_code_flg = 0;
        !            70:                        if (Newline)
        !            71:                        {
        !            72:                                Newline = 0;
        !            73:                                continue;
        !            74:                        }
        !            75:                }
        !            76:        
        !            77:                /* CARRIAGE CONTROL ? */
        !            78:                Newline = chr == '\n';
        !            79: 
        !            80:                switch (Cmap [chr])
        !            81:                {
        !            82: 
        !            83:                  case PUNCT :
        !            84:                        continue;
        !            85: 
        !            86:                  case OPATR :
        !            87:                        rtval = operator(chr);
        !            88:                        break;
        !            89: 
        !            90:                  case NUMBR :
        !            91:                        rtval = number(chr);
        !            92:                        break;
        !            93: 
        !            94:                  case ALPHA :
        !            95:                        rtval = name(chr);
        !            96:                        break;
        !            97: 
        !            98:                }
        !            99:        }
        !           100:        if (Lex_debug)
        !           101:                printf("YYLEX : '%s'\n", 
        !           102:                yylval.u_dn ? yylval.u_dn->d_elm : "");
        !           103:        return (rtval);
        !           104: }
        !           105: /*
        !           106: **  COPY_C_CODE -- Copies out a line of C code
        !           107: **     The test for Charcnt != 0 is beacuse if a C pre-processor
        !           108: **     line follows an equel line, and equate_lines() puts out no
        !           109: **     newline, the initial '#' will not be on the beginning of 
        !           110: **     the line. As is, if this should happen, then the line
        !           111: **     with the '#' will be one line in the output ahead of 
        !           112: **     where it should be.
        !           113: */
        !           114: 
        !           115: 
        !           116: copy_c_code()
        !           117: {
        !           118:        char    ch [2];
        !           119: 
        !           120: 
        !           121:        ch [1] = 0;
        !           122:        equate_lines();
        !           123:        if (Pre_proc_flg)
        !           124:        {
        !           125:                if (Charcnt != 0)
        !           126:                        w_raw("\n");
        !           127:                w_raw("#");
        !           128:        }
        !           129:        do
        !           130:        {
        !           131:                if ((*ch = getch()) == EOF_TOK)
        !           132:                        return;
        !           133:                w_raw(ch);
        !           134:        } while (*ch != '\n');
        !           135: }
        !           136: /*
        !           137: **  IF_C_CODE -- Test to see if a line is C code
        !           138: **
        !           139: **     Sees if a line begins with "##" to see if it is equel.
        !           140: **
        !           141: **     Parameters:
        !           142: **             chr -- first char of line
        !           143: **
        !           144: **     Returns:
        !           145: **             0 -- Quel line
        !           146: **             1 -- C line
        !           147: **     
        !           148: **     Called By:
        !           149: **             yylex()
        !           150: */
        !           151: 
        !           152: 
        !           153: if_c_code(chr)
        !           154: char   chr;
        !           155: {
        !           156:        for ( ; ; )
        !           157:        {
        !           158:                if (chr != '#')
        !           159:                {
        !           160:                        backup(chr);
        !           161:                        return (1);
        !           162:                }
        !           163:                Pre_proc_flg = 1;
        !           164:                if ((chr = getch()) == EOF_TOK)
        !           165:                {
        !           166:                        return (0);
        !           167:                }
        !           168:                if (chr != '#')
        !           169:                {
        !           170:                        backup(chr);
        !           171:                        return (1);
        !           172:                }
        !           173:                else
        !           174:                {
        !           175:                        return (0);
        !           176:                }
        !           177:        }
        !           178: }

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