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

SCM Repository

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

Diff of /branches/vis12/src/compiler/c-util/gen-inputs.sml

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

revision 2032, Fri Oct 12 01:55:56 2012 UTC revision 2033, Fri Oct 12 03:05:33 2012 UTC
# Line 57  Line 57 
57            val globV = CL.mkVar "glob"            val globV = CL.mkVar "glob"
58            val optsV = CL.mkVar "opts"            val optsV = CL.mkVar "opts"
59          (* register a given input *)          (* register a given input *)
60            fun registerInput (ty, name, desc, hasDflt) = CL.mkCall(N.input ty, [            fun registerInput (Ty.DynSeqTy elemTy, name, desc, hasDflt) = CL.mkCall("dummy", [
61                      optsV, CL.mkStr name, CL.mkStr(Option.getOpt(desc, "")),
62                      CL.mkUnOp(CL.%&, CL.mkIndirect(globV, name)),
63                      CL.mkBool hasDflt
64                    ])
65                | registerInput (Ty.ImageTy info, name, desc, hasDflt) = CL.mkCall("dummy", [
66                      optsV, CL.mkStr name, CL.mkStr(Option.getOpt(desc, "")),
67                      CL.mkUnOp(CL.%&, CL.mkIndirect(globV, name)),
68                      CL.mkBool hasDflt
69                    ])
70                | registerInput (ty, name, desc, hasDflt) = CL.mkCall(N.input ty, [
71                    optsV, CL.mkStr name, CL.mkStr(Option.getOpt(desc, "")),                    optsV, CL.mkStr name, CL.mkStr(Option.getOpt(desc, "")),
72                    CL.mkUnOp(CL.%&, CL.mkIndirect(globV, name)),                    CL.mkUnOp(CL.%&, CL.mkIndirect(globV, name)),
73                    CL.mkBool hasDflt                    CL.mkBool hasDflt

Legend:
Removed from v.2032  
changed lines
  Added in v.2033

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