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 1811, Sat Apr 7 20:46:07 2012 UTC revision 1812, Sat Apr 7 21:33:09 2012 UTC
# Line 106  Line 106 
106                          then []                          then []
107                          else [                          else [
108                              CL.D_Var([], CL.T_Ptr(CL.T_Named "const char"),                              CL.D_Var([], CL.T_Ptr(CL.T_Named "const char"),
109                                concat[prefix, "Desc_", name],                                concat[prefix, name, "Desc"],
110                                SOME(CL.I_Exp(CL.mkStr desc)))                                SOME(CL.I_Exp(CL.mkStr desc)))
111                            ]                            ]
112                  val getDcl = if hasDflt                  val getDcl = if hasDflt
113                          then let                          then let
114                            val getName = concat[prefix, name]                            val getName = concat[prefix, name, "Get"]
115                          (* convert the input type to a by-reference C type *)                          (* convert the input type to a by-reference C type *)
116                            val outTy = (case ty                            val outTy = (case ty
117                                   of Ty.BoolTy => CL.T_Ptr(trType ty)                                   of Ty.BoolTy => CL.T_Ptr(trType ty)
# Line 134  Line 134 
134                              val dim = ImageInfo.dim info                              val dim = ImageInfo.dim info
135                              in [                              in [
136                                CL.D_Func(                                CL.D_Func(
137                                  [], CL.boolTy, concat[prefix, "Set_", name, "_ByName"],                                  [], CL.boolTy, concat[prefix, name, "SetByName"],
138                                  [wrldParam, CL.PARAM(["const"], CL.charPtr, "s")],                                  [wrldParam, CL.PARAM(["const"], CL.charPtr, "s")],
139                                  CL.mkBlock[                                  CL.mkBlock[
140  (* FIXME: we should also generate code to check that the loaded image has the right type, etc. *)  (* FIXME: we should also generate code to check that the loaded image has the right type, etc. *)
# Line 146  Line 146 
146                                            ]))))                                            ]))))
147                                    ]),                                    ]),
148                                CL.D_Func(                                CL.D_Func(
149                                  [], CL.boolTy, concat[prefix, "Set_", name],                                  [], CL.boolTy, concat[prefix, name, "Set"],
150                                  [wrldParam, CL.PARAM([], nrrdPtrTy, "nin")],                                  [wrldParam, CL.PARAM([], nrrdPtrTy, "nin")],
151                                  CL.mkBlock[                                  CL.mkBlock[
152  (* FIXME: we should also generate code to check that the loaded image has the right type, etc. *)  (* FIXME: we should also generate code to check that the loaded image has the right type, etc. *)
# Line 161  Line 161 
161                          | Ty.DynSeqTy _ => raise Fail "dynamic input not supported yet"                          | Ty.DynSeqTy _ => raise Fail "dynamic input not supported yet"
162                          | _ => [                          | _ => [
163                                CL.D_Func(                                CL.D_Func(
164                                  [], CL.boolTy, concat[prefix, "Set_", name],                                  [], CL.boolTy, concat[prefix, name, "Set"],
165                                  [wrldParam, CL.PARAM([], trType ty, "v")],                                  [wrldParam, CL.PARAM([], trType ty, "v")],
166                                  CL.mkBlock[                                  CL.mkBlock[
167                                      copy(ty, global name, CL.mkVar "v"),                                      copy(ty, global name, CL.mkVar "v"),

Legend:
Removed from v.1811  
changed lines
  Added in v.1812

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