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 /sml/trunk/src/compiler/TopLevel/batch/smlfile.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/batch/smlfile.sml

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

revision 878, Wed Jul 18 17:43:27 2001 UTC revision 879, Thu Jul 19 18:59:38 2001 UTC
# Line 2  Line 2 
2  (* smlfile.sml *)  (* smlfile.sml *)
3    
4  signature SMLFILE = sig  signature SMLFILE = sig
     exception Compile of string  
5      val parseOne : Source.inputSource -> unit -> Ast.dec option      val parseOne : Source.inputSource -> unit -> Ast.dec option
6      val parse : Source.inputSource -> Ast.dec      val parse : Source.inputSource -> Ast.dec
7  end  end
8    
9  structure SmlFile :> SMLFILE = struct  structure SmlFile :> SMLFILE = struct
10    
     exception Compile of string  
   
11      structure FE = FrontEnd      structure FE = FrontEnd
12    
13      val parsePhase = Stats.makePhase "Compiler 010 parse"      val parsePhase = Stats.makePhase "Compiler 010 parse"
14    
15      fun fail s = raise (Compile s)      fun fail s = raise (CompileExn.Compile s)
16    
17      fun parseOne source = let      fun parseOne source = let
18          val parser = FE.parse source          val parser = FE.parse source

Legend:
Removed from v.878  
changed lines
  Added in v.879

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