Return to lexer.sml CVS log

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

Annotation of researchv10no/cmd/sml/lib/twig/lexer.sml, revision 1.1.1.1

1.1       root        1: 
                      2: (* December 1988, Jussi Rintanen, Helsinki University of Technology *)
                      3: 
                      4: (* This is the interface between the abstract definition of ML Twig lexical
                      5:    analyzer and the actual implementation as a lexer specified with ML Lex. *)
                      6: 
                      7: signature LEXER =
                      8:   sig
                      9:     exception LexError
                     10:     datatype lexresult = IDENTIFIER of string | INT of string | EQ | RPAREN |
                     11:       LPAREN | COLON | SEMICOLON | COMMA | OTHER of string | SPACE of string |
                     12:       TREEREF of int list | EOF
                     13:       
                     14:     val make_lexer : instream -> (unit -> lexresult)
                     15:     val current_line : unit -> int
                     16:   end;
                     17:   
                     18: structure Lexer : LEXER =
                     19:   struct
                     20:     structure ActualLexer = TwigLexer
                     21:     open ActualLexer.UserDeclarations ActualLexer
                     22:     fun make_lexer stream = ActualLexer.makeLexer (input stream)
                     23:   end;

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