Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/driver/main.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/driver/main.sml

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

revision 525, Sat Feb 12 22:59:18 2011 UTC revision 526, Sat Feb 12 23:17:46 2011 UTC
# Line 33  Line 33 
33    
34      fun doFile filename = let      fun doFile filename = let
35            val errStrm = Error.mkErrStream filename            val errStrm = Error.mkErrStream filename
36              val baseName = (case OS.Path.splitBaseExt filename
37                     of {base, ext=SOME "diderot"} => base
38                      | _ => (errnl "expected diderot file"; quitWithError filename)
39                    (* end case *))
40            val inS = TextIO.openIn filename            val inS = TextIO.openIn filename
41            val checkTypes = Typechecker.check errStrm            val checkTypes = Typechecker.check errStrm
42          (***** PARSING *****)          (***** PARSING *****)
# Line 80  Line 84 
84                    then quitWithError filename                    then quitWithError filename
85                    else ())                    else ())
86            in            in
87              () (* FIXME *)            (***** CODE GENERATION *****)
88                CBackEnd.generate (baseName, lowIL)
89            end            end
90    
91      fun doOptions args = let      fun doOptions args = let

Legend:
Removed from v.525  
changed lines
  Added in v.526

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