Return to scan.l CVS log

Up to [CSRG BSD Unix] / 42BSD / etc / htable

Annotation of 42BSD/etc/htable/scan.l, revision 1.1.1.1

1.1       root        1: %{
                      2: #ifndef lint
                      3: static char sccsid[] = "@(#)scan.l     4.1 (Berkeley) 10/20/82";
                      4: #endif
                      5: 
                      6: #include "y.tab.h"
                      7: #include "htable.h"
                      8: %}
                      9: 
                     10: BLANK  [ \t]
                     11: DIGIT  [0-9]
                     12: ALPHA  [A-Z]
                     13: ANUM   [0-9A-Z]
                     14: NAMECHR        [0-9A-Z./-]
                     15: 
                     16: %%
                     17: "NET"          {
                     18:                        yylval.number = KW_NET;
                     19:                        return (KEYWORD);
                     20:                }
                     21: 
                     22: "GATEWAY"      {
                     23:                        yylval.number = KW_GATEWAY;
                     24:                        return (KEYWORD);
                     25:                }
                     26: 
                     27: "HOST"         {
                     28:                        yylval.number = KW_HOST;
                     29:                        return (KEYWORD);
                     30:                }
                     31: 
                     32: {ALPHA}{NAMECHR}*{ANUM}        {
                     33:                        yylval.namelist = newname(yytext);
                     34:                        return (NAME);
                     35:                }
                     36: 
                     37: {ALPHA}                return (NAME);
                     38: 
                     39: {DIGIT}+       {
                     40:                        yylval.number = atoi(yytext);
                     41:                        return (NUMBER);
                     42:                }
                     43: 
                     44: "."            return ('.');
                     45: ":"            return (':');
                     46: ","            return (',');
                     47: "/"            return ('/');
                     48: ";".*          ;
                     49: "\n"{BLANK}+   ;
                     50: {BLANK}+       ;
                     51: "\n"           return (END);
                     52: .              fprintf(stderr, "Illegal char: '%s'\n", yytext);
                     53: 
                     54: %%
                     55: 
                     56: yywrap()
                     57: {
                     58:        return (1);
                     59: }

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