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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/simple/simple-types.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/simple/simple-types.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4431, Thu Aug 18 23:21:27 2016 UTC revision 4432, Fri Aug 19 15:10:12 2016 UTC
# Line 24  Line 24 
24      (* convolution kernel *)      (* convolution kernel *)
25        | T_Kernel        | T_Kernel
26      (* data sets from NRRD *)      (* data sets from NRRD *)
27        | T_Image of ImageInfo.info       (* image properties; either from proxy image or        | T_Image of ImageInfo.t          (* image properties; either from proxy image or
28                                           * synthetic.                                           * synthetic.
29                                           *)                                           *)
30      (* continuous field reconstructed from a data set *)      (* continuous field reconstructed from a data set *)
# Line 67  Line 67 
67              | T_Tuple tys => concat["(", String.concatWithMap "," toString tys, ")"]              | T_Tuple tys => concat["(", String.concatWithMap "," toString tys, ")"]
68              | T_Strand id => Atom.toString id              | T_Strand id => Atom.toString id
69              | T_Kernel => "kernel"              | T_Kernel => "kernel"
70              | T_Image info => let              | T_Image info => ImageInfo.toString info
                   val ty = [  
                           "(", Int.toString(ImageInfo.dim info), ")[",  
                           shapeToString(ImageInfo.voxelShape info), "]"  
                         ]  
                   val ty = (case ImageInfo.sampleTy info  
                          of NONE => "image<>" :: ty  
                           | SOME rTy => "image<" :: RawTypes.toString rTy :: ">" :: ty  
                         (* end case *))  
                   in  
                     concat ty  
                   end  
71              | T_Field{diff, dim, shape} => concat[              | T_Field{diff, dim, shape} => concat[
72                    "field#", Int.toString diff, "(", Int.toString dim,                    "field#", Int.toString diff, "(", Int.toString dim,
73                    ")[", shapeToString shape, "]"                    ")[", shapeToString shape, "]"

Legend:
Removed from v.4431  
changed lines
  Added in v.4432

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