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/glgen/gen-consts.sml
ViewVC logotype

Diff of /trunk/sml3d/gen/gen-from-xml/glgen/gen-consts.sml

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

revision 1412, Mon Apr 14 21:01:06 2014 UTC revision 1413, Mon Apr 14 22:48:52 2014 UTC
# Line 59  Line 59 
59            \    local\n\            \    local\n\
60            \      type glint = GLTypes.glint\n\            \      type glint = GLTypes.glint\n\
61            \      type glenum = GLTypes.glenum\n\            \      type glenum = GLTypes.glenum\n\
62              \      type glboolean = GLTypes.glboolean\n\
63            \      type gluint = GLTypes.gluint\n\            \      type gluint = GLTypes.gluint\n\
64            \      type gluint64 = GLTypes.gluint64\n\            \      type gluint64 = GLTypes.gluint64\n\
65            \    in\n\            \    in\n\
# Line 72  Line 73 
73            \"            \"
74    
75      val a_GLint = Atom.atom "GLint"      val a_GLint = Atom.atom "GLint"
76        val a_GLboolean = Atom.atom "GLboolean"
77      val a_GLenum = Atom.atom "GLenum"      val a_GLenum = Atom.atom "GLenum"
78      val a_GLuint = Atom.atom "GLuint"      val a_GLuint = Atom.atom "GLuint"
79      val a_GLuint64 = Atom.atom "GLuint64"      val a_GLuint64 = Atom.atom "GLuint64"
# Line 86  Line 88 
88                         of NONE => (false, "glenum")                         of NONE => (false, "glenum")
89                          | SOME(CType.NamedTy ty) =>                          | SOME(CType.NamedTy ty) =>
90                              if Atom.same(ty, a_GLint) then (true, "glint")                              if Atom.same(ty, a_GLint) then (true, "glint")
91                                else if Atom.same(ty, a_GLboolean) then (false, "glboolean")
92                              else if Atom.same(ty, a_GLenum) then (false, "glenum")                              else if Atom.same(ty, a_GLenum) then (false, "glenum")
93                              else if Atom.same(ty, a_GLuint) then (false, "gluint")                              else if Atom.same(ty, a_GLuint) then (false, "gluint")
94                              else if Atom.same(ty, a_GLuint64) then (false, "gluint64")                              else if Atom.same(ty, a_GLuint64) then (false, "gluint64")

Legend:
Removed from v.1412  
changed lines
  Added in v.1413

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