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

SCM Repository

[diderot] Diff of /trunk/src/compiler/c-util/runtime-names.sml
ViewVC logotype

Diff of /trunk/src/compiler/c-util/runtime-names.sml

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

revision 2635, Mon May 26 14:06:39 2014 UTC revision 2636, Tue May 27 16:18:36 2014 UTC
# Line 26  Line 26 
26    
27    (* Diderot runtime system hooks *)    (* Diderot runtime system hooks *)
28      val statusTy = "Status_t"      val statusTy = "Status_t"
29        fun setImage dim = concat["Diderot_SetImage", Int.toString dim, "D"]
30      fun loadImage dim = concat["Diderot_LoadImage", Int.toString dim, "D"]      fun loadImage dim = concat["Diderot_LoadImage", Int.toString dim, "D"]
31        fun freeImage dim = concat["Diderot_FreeImage", Int.toString dim, "D"]
32      val strandDescTy = "Strand_t"      val strandDescTy = "Strand_t"
33      val worldTy = "Diderot_World_t"      val worldTy = "Diderot_World_t"
34      val optionsTy = "Diderot_Options_t"      val optionsTy = "Diderot_Options_t"
# Line 39  Line 41 
41      val evals2x2 = "Diderot_evals2x2"      val evals2x2 = "Diderot_evals2x2"
42      val evals3x3 = "Diderot_evals3x3"      val evals3x3 = "Diderot_evals3x3"
43    
44    (* functions for defining program inputs *)    (* functions for defining program inputs; note that images come from
45       * nrrd files, which are specified by their filenames.
46       *)
47      fun input ty = (case ty      fun input ty = (case ty
48             of Ty.StringTy => "Diderot_OptAddString"             of Ty.StringTy => "Diderot_OptAddString"
49              | Ty.BoolTy => "Diderot_OptAddBool"              | Ty.BoolTy => "Diderot_OptAddBool"
# Line 48  Line 52 
52              | Ty.TensorTy[2] => "Diderot_OptAddReal2"              | Ty.TensorTy[2] => "Diderot_OptAddReal2"
53              | Ty.TensorTy[3] => "Diderot_OptAddReal3"              | Ty.TensorTy[3] => "Diderot_OptAddReal3"
54              | Ty.TensorTy[4] => "Diderot_OptAddReal4"              | Ty.TensorTy[4] => "Diderot_OptAddReal4"
55                | Ty.ImageTy _ => "Diderot_OptAddString"
56              | ty => raise Fail("unsupported input type " ^ Ty.toString ty)              | ty => raise Fail("unsupported input type " ^ Ty.toString ty)
57            (* end case *))            (* end case *))
58    

Legend:
Removed from v.2635  
changed lines
  Added in v.2636

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