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 1998, Thu Oct 4 12:30:44 2012 UTC revision 1999, Thu Oct 4 12:34:24 2012 UTC
# Line 134  Line 134 
134                                            ]))))                                            ]))))
135                                    ])                                    ])
136                              ] end                              ] end
137                          | Ty.DynSeqTy _ => raise Fail "dynamic input not supported yet"  (* dynamic sequence loader prototype:
138    Diderot_DynSeq_t *Diderot_DynSeqLoadTY (
139        WorldPrefix_t *wrld,
140        Nrrd *nin,
141        unsigned int nDims,
142        unsigned int *dims);
143    *)
144    (*
145                            | Ty.DynSeqTy elemTy => [
146                                  CL.D_Func(
147                                    [], CL.boolTy, N.inputSetByName(tgt, name),
148                                    [wrldParam, CL.PARAM(["const"], CL.charPtr, "s")],
149                                    CL.mkBlock[
150                                        CL.mkReturn(SOME(
151                                          CL.mkBinOp(CL.mkVar "DIDEROT_FAIL", CL.#==,
152                                            CL.mkApply(N.loadSeq elemTy, [
153                                                CL.mkCast(wrldPrefixTy, CL.mkVar "wrld"),
154                                                CL.mkVar "s", CL.mkUnOp(CL.%&, global name)
155                                              ]))))
156                                      ]),
157                                  CL.D_Func(
158                                    [], CL.boolTy, N.inputSet(tgt, name),
159                                    [wrldParam, CL.PARAM([], nrrdPtrTy, "nin")],
160                                    CL.mkBlock[
161                                        CL.mkReturn(SOME(
162                                          CL.mkBinOp(CL.mkVar "DIDEROT_FAIL", CL.#==,
163                                            CL.mkApply(N.loadSeq elemTy, [
164                                                CL.mkCast(wrldPrefixTy, CL.mkVar "wrld"),
165                                                CL.mkVar "nin", CL.mkUnOp(CL.%&, global name)
166                                              ]))))
167                                      ])
168                                ]
169    *)
170                            | Ty.DynSeqTy elemTy => raise Fail "dynamic input not supported yet"
171                          | _ => [                          | _ => [
172                                CL.D_Func(                                CL.D_Func(
173                                  [], CL.boolTy, N.inputSet(tgt, name),                                  [], CL.boolTy, N.inputSet(tgt, name),

Legend:
Removed from v.1998  
changed lines
  Added in v.1999

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