Return to scanner.l CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / courier / compiler

Annotation of 43BSD/contrib/courier/compiler/scanner.l, revision 1.1.1.1

1.1       root        1: %{
                      2: #ifndef lint
                      3: static char sccsid[] = "@(#)scanner.l  4.2 (Berkeley) 7/7/83";
                      4: #endif
                      5: 
                      6: #include "Courier.h"
                      7: #include "y.tab.h"
                      8: %}
                      9: 
                     10: %%
                     11: 
                     12: --.*\n         ;
                     13: [ \t\n]                ;
                     14: ARRAY          { return (ARRAY); }
                     15: BEGIN          { return (_BEGIN); }
                     16: BOOLEAN                { return (BOOLEAN); }
                     17: CARDINAL       { return (CARDINAL); }
                     18: CHOICE         { return (CHOICE); }
                     19: DEPENDS                { return (DEPENDS); }
                     20: END            { return (END); }
                     21: ERROR          { return (ERROR); }
                     22: INTEGER                { return (INTEGER); }
                     23: LONG           { return (LONG); }
                     24: OF             { return (OF); }
                     25: PROCEDURE      { return (PROCEDURE); }
                     26: PROGRAM                { return (PROGRAM); }
                     27: RECORD         { return (RECORD); }
                     28: REPORTS                { return (REPORTS); }
                     29: RETURNS                { return (RETURNS); }
                     30: SEQUENCE       { return (SEQUENCE); }
                     31: STRING         { return (STRING); }
                     32: TYPE           { return (TYPE); }
                     33: UNSPECIFIED    { return (UNSPECIFIED); }
                     34: UPON           { return (UPON); }
                     35: VERSION                { return (VERSION); }
                     36: 
                     37: -?[0-9]+                       {
                     38:                                /*
                     39:                                 * Only decimal numbers are supported.
                     40:                                 */
                     41:                                yylval.object = make(O_CONSTANT, atoi(yytext));
                     42:                                return (number);
                     43:                        }
                     44: 
                     45: [a-zA-Z_][a-zA-Z0-9_]* {
                     46:                                yylval.object = make(O_SYMBOL, yytext);
                     47:                                return (identifier);
                     48:                        }
                     49: 
                     50: .                      {
                     51:                                return ((int) yytext[0]);
                     52:                        }
                     53: 
                     54: %%

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