Home My Page Projects Code Snippets Project Openings 3D graphics for Standard ML
Summary Activity SCM

SCM Repository

[sml3d] Diff of /trunk/sml3d/gen/gen-from-xml/spec-db/xml-spec.grm
ViewVC logotype

Diff of /trunk/sml3d/gen/gen-from-xml/spec-db/xml-spec.grm

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

revision 1376, Wed Apr 2 17:51:39 2014 UTC revision 1377, Fri Apr 4 20:45:22 2014 UTC
# Line 115  Line 115 
115          ;          ;
116    
117  ReturnType  ReturnType
118          : "<" "return-type" "ctype" "=" CType ("mltype" "=" STR)? "/>"          : "<" "return-type" "ctype" "=" CType MLTypeAttr? "/>"
119                  => ({cty = CType, mlty = SR})                  => ({cty = CType, mlty = MLTypeAttr})
120            ;
121    
122    MLTypeAttr
123            : "mltype" "=" STR
124                    => (STR)
125          ;          ;
126    
127  Param  Param
128          : "<" "param" NameAttr "ctype" "=" CType ("mltype" "=" STR)? "/>"          : "<" "param" NameAttr GroupAttr? "ctype" "=" CType MLTypeAttr? "/>"
129                  => (X.Param{name = NameAttr, cty = CType, mlty = SR})                  => (X.Param{name = NameAttr, group = GroupAttr, cty = CType, mlty = MLTypeAttr})
130            ;
131    
132    GroupAttr
133            : "group" "=" STR
134                    => (Atom.atom STR)
135          ;          ;
136    
137  Groups  Groups
# Line 148  Line 158 
158          ;          ;
159    
160  Feature  Feature
161          : "<" "feature" NameAttr "version" "=" STR TypeIds EnumIds CommandIds "</" "feature" ">"          : "<" "feature" NameAttr VersionAttr TypeIds EnumIds CommandIds "</" "feature" ">"
162                  => (X.Feature{                  => (X.Feature{
163                          name = NameAttr, version = STR,                          name = NameAttr, version = VersionAttr,
164                          types = TypeIds,                          types = TypeIds,
165                          enums = EnumIds,                          enums = EnumIds,
166                          commands = CommandIds                          commands = CommandIds
167                        })                        })
168          ;          ;
169    
170    VersionAttr
171            : "version" "=" STR
172                    => (List.map (valOf o Int.fromString) (String.tokens (fn #"." => true | _ => false) STR))
173            ;
174    
175  TypeIds  TypeIds
176          : "<" "types" ">" Id+ "</" "types" ">"          : "<" "types" ">" Id+ "</" "types" ">"
177                  => (Id)                  => (Id)

Legend:
Removed from v.1376  
changed lines
  Added in v.1377

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