Return to sample.sml CVS log

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

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

1.1       root        1: structure Sample =
                      2:    struct
                      3:       val run = fn filename =>
                      4:           let val in_str = open_in filename
                      5:              val lexer =  Mlex.makeLexer (input in_str)
                      6:              val p = (Calc.HDR.lineno := 0;
                      7:                       Calc.parse lexer (5,5))
                      8:           in (close_in in_str; p)
                      9:           end
                     10:     
                     11:       fun run_std_in () =
                     12:            (* more suitable for interactive use *)
                     13:        let val lexer = Mlex.makeLexer (fn _ => input_line std_in)
                     14:            val p = (Calc.HDR.lineno := 0;
                     15:                       Calc.parse lexer (0,0))
                     16:         in p
                     17:         end
                     18:    end

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