Diff of /trunk/src/compiler/fields/image-info.sml

Parent Directory | Revision Log | Patch

	revision 393, Thu Oct 14 15:45:01 2010 UTC	revision 394, Thu Oct 14 16:30:29 2010 UTC
#	Line 29	Line 29
29	val getInfo : string -> info	val getInfo : string -> info
30
31	val toString : info -> string	val toString : info -> string
32		val dim : info -> int                       (* dimension of space *)
33
34	end = struct	end = struct
35
#	Line 79	Line 80
80	}	}
81	end	end
82
83	fun toString (ImgInfo{...}) = "IMAGE" (* FIXME *)	fun toString (ImgInfo{dim, ...}) = concat["IMAGE", Int.toString dim, "D"] (* FIXME *)
84
85		fun dim (ImgInfo{dim, ...}) = dim
86
87	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.393   changed lines   Added in v.394

---

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