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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/nrrd/nrrd-enums.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/nrrd/nrrd-enums.sml

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

revision 2045, Sun Oct 21 14:33:29 2012 UTC revision 2046, Sun Oct 21 14:53:30 2012 UTC
# Line 13  Line 13 
13    
14    (* the subset of the axis kinds that Diderot can read and write *)    (* the subset of the axis kinds that Diderot can read and write *)
15      datatype axis_kind      datatype axis_kind
16        = KindDomain              (* any image domain *)        = KindUnknown             (* unknown axis kind *)
17          | KindDomain              (* any image domain *)
18        | KindSpace               (* spatial domain *)        | KindSpace               (* spatial domain *)
19        | KindList                (* flat vector of values; used to represent tensors that do *)        | KindList                (* flat vector of values; used to represent tensors that do *)
20                                  (* not have one of the shapes recoognized by Teem *)                                  (* not have one of the shapes recoognized by Teem *)
# Line 28  Line 29 
29     * http://teem.sourceforge.net/nrrd/format.html#kinds for info)     * http://teem.sourceforge.net/nrrd/format.html#kinds for info)
30     *)     *)
31      fun kindFromString s = (case s      fun kindFromString s = (case s
32             of "domain" => SOME KindDomain             of "none" => SOME KindUnknown
33                | "domain" => SOME KindDomain
34              | "space" => SOME KindSpace              | "space" => SOME KindSpace
35              | "list" => SOME KindList              | "list" => SOME KindList
36              | "scalar" => SOME KindScalar              | "scalar" => SOME KindScalar
# Line 42  Line 44 
44    
45    (* convert an axis kind to its nrrd enum constant *)    (* convert an axis kind to its nrrd enum constant *)
46      fun kindToEnum k = (case k      fun kindToEnum k = (case k
47             of KindDomain => "nrrdKindDomain"             of KindUnknown => "nrrdKindUnknown"
48                | KindDomain => "nrrdKindDomain"
49              | KindSpace => "nrrdKindSpace"              | KindSpace => "nrrdKindSpace"
50              | KindList => "nrrdKindList"              | KindList => "nrrdKindList"
51              | KindScalar => "nrrdKindScalar"              | KindScalar => "nrrdKindScalar"

Legend:
Removed from v.2045  
changed lines
  Added in v.2046

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