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 132, Fri Jul 2 21:30:59 2010 UTC revision 135, Fri Jul 2 21:57:47 2010 UTC
# Line 12  Line 12 
12              dim : int,                          (* dimension of space *)              dim : int,                          (* dimension of space *)
13              ty : RawTypes.ty,                   (* types of scalar samples *)              ty : RawTypes.ty,                   (* types of scalar samples *)
14              origin : FloatLit.float list,       (* center of first sample *)              origin : FloatLit.float list,       (* center of first sample *)
15              ??              sizes : int list                    (* number of samples along each axis *)
16            }            }
17    
18      val getInfo : string -> info      val getInfo : string -> info
19    
20    end = struct    end = struct
21    
22        type info = {
23                dim : int,                          (* dimension of space *)
24                ty : RawTypes.ty,                   (* types of scalar samples *)
25                origin : FloatLit.float list,       (* center of first sample *)
26                sizes : int list                    (* number of samples along each axis *)
27              }
28    
29        fun getInfo fileName = let
30              val {version, header} = RunDNorm.run fileName
31              in
32    (* FIXME*)raise Fail "getInfo"
33              end
34    
35    end    end

Legend:
Removed from v.132  
changed lines
  Added in v.135

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