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-library-interface.sml
ViewVC logotype

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

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

revision 1806, Sat Apr 7 00:02:25 2012 UTC revision 1807, Sat Apr 7 12:00:48 2012 UTC
# Line 82  Line 82 
82                  val setDcl = (case ty                  val setDcl = (case ty
83                         of Ty.ImageTy _ => [                         of Ty.ImageTy _ => [
84                                CL.D_Proto(                                CL.D_Proto(
85                                  [], CL.voidTy, concat[prefix, "Set_", name, "_ByName"],                                  [], CL.boolTy, concat[prefix, "Set_", name, "_ByName"],
86                                  [wrldParam, CL.PARAM(["const"], CL.charPtr, "s")]),                                  [wrldParam, CL.PARAM(["const"], CL.charPtr, "s")]),
87                                CL.D_Proto(                                CL.D_Proto(
88                                  [], CL.voidTy, concat[prefix, "Set_", name],                                  [], CL.boolTy, concat[prefix, "Set_", name],
89                                  [wrldParam, CL.PARAM([], nrrdPtrTy, "data")])                                  [wrldParam, CL.PARAM([], nrrdPtrTy, "data")])
90                              ]                              ]
91                          | Ty.DynSeqTy _ => raise Fail "dynamic input not supported yet"                          | Ty.DynSeqTy _ => raise Fail "dynamic input not supported yet"
92                          | _ => [                          | _ => [
93                                CL.D_Proto(                                CL.D_Proto(
94                                  [], CL.voidTy, concat[prefix, "Set_", name],                                  [], CL.boolTy, concat[prefix, "Set_", name],
95                                  [wrldParam, CL.PARAM([], trType ty, "v")])                                  [wrldParam, CL.PARAM([], trType ty, "v")])
96                              ]                              ]
97                        (* end case *))                        (* end case *))

Legend:
Removed from v.1806  
changed lines
  Added in v.1807

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