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

SCM Repository

[diderot] Diff of /trunk/src/compiler/tree-il/tree-il.sml
ViewVC logotype

Diff of /trunk/src/compiler/tree-il/tree-il.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 61  Line 61 
61        | S_IfThen of exp * block        | S_IfThen of exp * block
62        | S_IfThenElse of exp * block * block        | S_IfThenElse of exp * block * block
63      (* special Diderot forms *)      (* special Diderot forms *)
64        | S_LoadImage of var * int * exp  (* load image data *)        | S_LoadNrrd of var * Ty.ty * string
65        | S_Input of var * string * string * exp option (* get input *)        | S_Input of var * string * string option * exp option (* get input *)
66          | S_InputNrrd of var * string * string option * string option (* get image/seq input *)
67        | S_New of Atom.atom * exp list   (* new strand creation *)        | S_New of Atom.atom * exp list   (* new strand creation *)
68        | S_Save of state_var list * exp  (* save strand state *)        | S_Save of state_var list * exp  (* save strand state *)
69        | S_Exit of exp list        | S_Exit of exp list
# Line 87  Line 88 
88        }        }
89    
90      and var_kind      and var_kind
91        = VK_Global                       (* global variable *)        = VK_Input                        (* global input variable *)
92          | VK_Global                       (* global variable *)
93        | VK_Local                        (* includes strand parameters *)        | VK_Local                        (* includes strand parameters *)
94    
95      structure Var : sig      structure Var : sig
# Line 137  Line 139 
139        end        end
140    
141      fun kindToString k = (case k      fun kindToString k = (case k
142             of VK_Global => "Global"             of VK_Input => "Input"
143                | VK_Global => "Global"
144              | VK_Local => "Local"              | VK_Local => "Local"
145            (* end case *))            (* end case *))
146    

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