Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /ml-burg/releases/release-110.67/main.sml
ViewVC logotype

Diff of /ml-burg/releases/release-110.67/main.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 250, Sat Apr 17 18:57:03 1999 UTC revision 568, Tue Mar 7 03:59:09 2000 UTC
# Line 3  Line 3 
3   * COPYRIGHT (c) 1994 AT&T Bell Laboratories.   * COPYRIGHT (c) 1994 AT&T Bell Laboratories.
4   *   *
5   * $Log$   * $Log$
6     * Revision 1.2  2000/03/07 03:59:09  blume
7     * build script now uses new mechanism for building stanalone programs
8     *
9     * Revision 1.1.1.8.4.1  2000/02/20 14:44:33  blume
10     * CMB.deliver merged with CMB.make; runtime boot code made more flexible
11     *
12   * Revision 1.1.1.8  1999/04/17 18:56:04  monnier   * Revision 1.1.1.8  1999/04/17 18:56:04  monnier
13   * version 110.16   * version 110.16
14   *   *
# Line 24  Line 30 
30   * Version 109   * Version 109
31   *   *
32   *)   *)
33    structure Main = struct
 structure Main =  
   struct  
34    
35      fun main (cmdName, argv) = let      fun main (cmdName, argv) = let
36            fun help () = (            fun help () = (
# Line 68  Line 72 
72     * Takes a filename (something.burg) as argument, and produces something.sml     * Takes a filename (something.burg) as argument, and produces something.sml
73     *)     *)
74      fun doit s = main ("", [s])      fun doit s = main ("", [s])
75    end
   (* create a stand-alone executable *)  
     fun export name = SMLofNJ.exportFn (name, main)  
   
   end;  
   

Legend:
Removed from v.250  
changed lines
  Added in v.568

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0