Diff of /branches/vis12/src/compiler/tree-il/tree-il-pp.sml

Parent Directory | Revision Log | Patch

	revision 2022, Wed Oct 10 11:55:39 2012 UTC	revision 2023, Wed Oct 10 12:27:13 2012 UTC
#	Line 151	Line 151
151	String.toString name, "\",\"", descToString desc, "\",",	String.toString name, "\",\"", descToString desc, "\",",
152	expToString dflt, ");\n"	expToString dflt, ");\n"
153	])	])
154	| IL.S_InputImage(x, name, desc, NONE) =>	| IL.S_InputNrrd(x, name, desc, NONE) =>
155	prln (out, [	prln (out, [
156	Var.name x, " = input-image<", Ty.toString(Var.ty x), "> (\"",	Var.name x, " = input-nrrd<", Ty.toString(Var.ty x), "> (\"",
157	String.toString name, "\",\"", descToString desc, "\");\n"	String.toString name, "\",\"", descToString desc, "\");\n"
158	])	])
159	| IL.S_InputImage(x, name, desc, SOME dflt) =>	| IL.S_InputNrrd(x, name, desc, SOME dflt) =>
160	prln (out, [	prln (out, [
161	Var.name x, " = input-image<", Ty.toString(Var.ty x), "> (\"",	Var.name x, " = input-nrrd<", Ty.toString(Var.ty x), "> (\"",
	String.toString name, "\",\"", descToString desc, "\",\"",
	String.toString dflt, "\");\n"
	])
	| IL.S_InputSeq(x, name, desc, NONE) =>
	prln (out, [
	Var.name x, " = input-seq<", Ty.toString(Var.ty x), "> (\"",
	String.toString name, "\",\"", descToString desc, "\");\n"
	])
	| IL.S_InputSeq(x, name, desc, SOME dflt) =>
	prln (out, [
	Var.name x, " = input-seq<", Ty.toString(Var.ty x), "> (\"",
162	String.toString name, "\",\"", descToString desc, "\",\"",	String.toString name, "\",\"", descToString desc, "\",\"",
163	String.toString dflt, "\");\n"	String.toString dflt, "\");\n"
164	])	])

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.2022   changed lines   Added in v.2023

---

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