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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/simplify/simplify.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/simplify/simplify.sml

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

revision 1992, Thu Sep 27 10:23:12 2012 UTC revision 1993, Fri Sep 28 14:51:23 2012 UTC
# Line 43  Line 43 
43                        end                        end
44                    | AST.D_Input(x, desc, SOME(AST.E_LoadNrrd(tvs, nrrd, ty))) => let                    | AST.D_Input(x, desc, SOME(AST.E_LoadNrrd(tvs, nrrd, ty))) => let
45                      (* load the nrrd prox here *)                      (* load the nrrd prox here *)
46                        val info = NrrdInfo.getInfo filename                        val info = NrrdInfo.getInfo nrrd
47                        val stm = (case TypeUtil.pruneHead ty                        val stm = (case TypeUtil.pruneHead ty
48                               of Ty.T_DynSequence _ => (* FIXME *) raise Fail "unimplemented"                               of Ty.T_DynSequence _ => (* FIXME *) raise Fail "unimplemented"
49                                | Ty.T_Image _ => (* FIXME *) raise Fail "unimplemented"                                | Ty.T_Image _ => (* FIXME *) raise Fail "unimplemented"
# Line 263  Line 263 
263      fun transform (errStrm, ast) = let      fun transform (errStrm, ast) = let
264            val simple = simplifyProgram ast            val simple = simplifyProgram ast
265            val _ = SimplePP.output (Log.logFile(), simple)       (* DEBUG *)            val _ = SimplePP.output (Log.logFile(), simple)       (* DEBUG *)
266    (*
267            val simple = Lift.transform simple            val simple = Lift.transform simple
268                  handle Eval.Error msg => (Error.error(errStrm, msg); simple)                  handle Eval.Error msg => (Error.error(errStrm, msg); simple)
269    *)
270            in            in
271              simple              simple
272            end            end

Legend:
Removed from v.1992  
changed lines
  Added in v.1993

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