Return to invoke.sml CVS log

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

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

1.1       root        1: structure Invoke =
                      2:   struct
                      3:     structure Main = Main
                      4: 
                      5: (* User Interface *)
                      6: 
                      7:     fun cut_off_last_char s = (implode o rev o tl o rev o explode) s
                      8: 
                      9:     fun user_interface () =
                     10:       (output std_out "ML-Twig version 1.0, June 1989\n\
                     11:        \Name of the specification file : "; flush_out std_out;
                     12:        cut_off_last_char(input_line std_in))
                     13: 
                     14:     val dummy = Main.main(user_interface())
                     15: end;

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