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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/c-util/output-util.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/c-util/output-util.sml

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

revision 3087, Tue Mar 17 16:35:47 2015 UTC revision 3088, Tue Mar 17 18:27:27 2015 UTC
# Line 50  Line 50 
50      val NRRD = CL.mkVar "NRRD"      val NRRD = CL.mkVar "NRRD"
51      val msgV = CL.mkVar "msg"      val msgV = CL.mkVar "msg"
52    
     fun wrldPtr tgt = CL.T_Ptr(CL.T_Named(N.worldTy tgt))  
   
53      fun infoOf (tgt : Properties.props, ty) = (case ty      fun infoOf (tgt : Properties.props, ty) = (case ty
54             of Ty.IntTy => if #longint tgt             of Ty.IntTy => if #longint tgt
55                  then (CL.int64, Nrrd.TypeLLong, Nrrd.KindScalar, 1)                  then (CL.int64, Nrrd.TypeLLong, Nrrd.KindScalar, 1)
# Line 236  Line 234 
234                    ]                    ]
235            fun printNrrd (ty, name) = [] (* FIXME *)            fun printNrrd (ty, name) = [] (* FIXME *)
236            in [            in [
237              CL.D_Func(["static"], CL.voidTy, "WriteOutput", [CL.PARAM([], wrldPtr tgt, "wrld")],              CL.D_Func(["static"], CL.voidTy, "WriteOutput", [CL.PARAM([], N.worldPtrTy tgt, "wrld")],
238                CL.mkBlock(outDecls @ List.foldr (fn (output, l) => writeNrrd output @ l) [] outputs)),                CL.mkBlock(outDecls @ List.foldr (fn (output, l) => writeNrrd output @ l) [] outputs)),
239              CL.D_Func(["static"], CL.voidTy, "PrintOutput", [CL.PARAM([], wrldPtr tgt, "wrld")],              CL.D_Func(["static"], CL.voidTy, "PrintOutput", [CL.PARAM([], N.worldPtrTy tgt, "wrld")],
240                CL.mkBlock(prDecls @ List.foldr (fn (output, l) => printNrrd output @ l) [] outputs))                CL.mkBlock(prDecls @ List.foldr (fn (output, l) => printNrrd output @ l) [] outputs))
241            ] end            ] end
242    

Legend:
Removed from v.3087  
changed lines
  Added in v.3088

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