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

SCM Repository

[diderot] Diff of /trunk/src/compiler/fields/image-info.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

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