Return to sample.lex CVS log

Up to [Research Unix] / researchv10no / cmd / sml / lib / mlyacc

Annotation of researchv10no/cmd/sml/lib/mlyacc/sample.lex, revision 1.1.1.1

1.1       root        1: open Calc.LexValue
                      2: type lexresult=V
                      3: val eof = fn () => EOF
                      4: %%
                      5: alpha=[A-Za-z];
                      6: digit=[0-9];
                      7: ws = [\ \t\n];
                      8: %%
                      9: {ws}+   => (lex());
                     10: {digit}+ => (NUM (revfold (fn (a,r) => ord(a)-ord("0")+10*r) (explode yytext) 0));
                     11: "+"     => (PLUS);
                     12: "*"     => (TIMES);
                     13: ";"     => (EOS);
                     14: {alpha}+ => (if yytext="print" then PRINT else ID yytext);
                     15: "-"     => (SUB);
                     16: "^"     => (CARAT);
                     17: "/"     => (DIV);
                     18: .       => (Calc.HDR.error ("ignoring bad character " ^ yytext); lex());

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