Return to pretlex.l CVS log

Up to [Research Unix] / researchv10no / cmd / pret

Annotation of researchv10no/cmd/pret/pretlex.l, revision 1.1.1.1

1.1       root        1: %{
                      2: #include "stdio.h"
                      3: #include "pret.h"
                      4: #include "y.tab.h"
                      5: 
                      6: extern linenumber, nest;
                      7: extern char filename[256];
                      8: 
                      9: putback(c)
                     10: {      unput(c);
                     11: }
                     12: 
                     13: %}
                     14: %%
                     15: \n     { linenumber++; }
                     16: \/\*   { char c1, c2;          /* comment string */
                     17: 
                     18:          for(nest++, c2 = ' ';;){
                     19:                c1 = c2;
                     20:                c2 = input();
                     21:                if (c1 == '/' && c2 == '*')
                     22:                        nest++;
                     23:                else if (c1 == '*' && c2 == '/')
                     24:                        nest--;
                     25:                if (nest <= 0)
                     26:                        break;
                     27:                if (c2 == '\n')
                     28:                        linenumber++;
                     29:                else if (c2 == 0)
                     30:                        whoops("unexpected eof (in comment)");
                     31:          }
                     32:        }
                     33: [ \t]  { ; }
                     34: ^#[ ]+[0-9]+[ ]+\"[^\"]+\"\n   {
                     35:                sscanf(&yytext[1], "%d \"%s\"\n", &linenumber, filename);
                     36:                filename[strlen(filename)-1] = 0;       /* strip the last " */
                     37:        }
                     38: queue  { return(QUEUES); }
                     39: qset   { return(QSET); }
                     40: pvar   { return(PVAR); }
                     41: proc   { return(PROCESS); }
                     42: if     { return(IF); }
                     43: fi     { return(FI); }
                     44: do     { return(DO); }
                     45: od     { return(OD); }
                     46: skip   { return(skip); }
                     47: goto   { return(GOTO); }
                     48: break  { return(BREAK); }
                     49: any    { return(DEFAULT); }
                     50: default        { return(DEFAULT); }
                     51: assert { return(ASSERT); }
                     52: error  { return(ERROR); }
                     53: timeout        { return(timeout); }
                     54: \{     { return(PBEGIN); }
                     55: \}     { return(END); }
                     56: [0-9]+ { yylval.resu = atoi(yytext); return(VALUE); }
                     57: [a-zA-Z][_a-zA-Z0-9]*  {
                     58:                yylval.resu = newstring(yytext);
                     59:                if (isarrayvar(yytext)) return(ARNAME);
                     60:                if (isqset(yytext)) return(QSNAME);
                     61:                return(NAME);
                     62:        }
                     63: _PROCID        { yylval.resu = newstring("_PROCID"); return(NAME); }
                     64: "::"   { return(FLAG); }
                     65: "->"   { return(ARROW); }
                     66: ";"    { return(SEMICOLON); }
                     67: ":"    { return(COLON); }
                     68: \+\+   { return(INC); }
                     69: \-\-   { return(DEC); }
                     70: \+\=   { return(ADDEQ); }
                     71: \-\=   { return(SUBEQ); }
                     72: \*\=   { return(MULEQ); }
                     73: \/\=   { return(DIVEQ); }
                     74: \%\=   { return(MODEQ); }
                     75: \|\|   { return(OR); }
                     76: \&\&   { return(AND); }
                     77: \>\=   { return(GE); }
                     78: \<\=   { return(LE); }
                     79: \!\=   { return(NE); }
                     80: \>     { return(GT); }
                     81: \<     { return(LT); }
                     82: \!     { return(NOT); }
                     83: ==     { return(EQ); }
                     84: .      { return(yytext[0]); }

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