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 1379, Fri Apr 4 23:40:39 2014 UTC revision 1413, Mon Apr 14 22:48:52 2014 UTC
# Line 26  Line 26 
26            \ * COPYRIGHT (c) %4d The SML3d Project (http://sml3d.cs.uchicago.edu)\n\            \ * COPYRIGHT (c) %4d The SML3d Project (http://sml3d.cs.uchicago.edu)\n\
27            \ * All rights reserved.\n\            \ * All rights reserved.\n\
28            \ *\n\            \ *\n\
29            \ * These are the OpenGL constants taken from %s.\n\            \ * These are the OpenGL constants taken from %s, which has the following\n\
30              \ * copyright notice:\n\
31              \ *\n\
32              \ * Copyright (c) 2013-2014 The Khronos Group Inc.\n\
33              \ *\n\
34              \ * Permission is hereby granted, free of charge, to any person obtaining a\n\
35              \ * copy of this software and/or associated documentation files (the\n\
36              \ * \"Materials\"), to deal in the Materials without restriction, including\n\
37              \ * without limitation the rights to use, copy, modify, merge, publish,\n\
38              \ * distribute, sublicense, and/or sell copies of the Materials, and to\n\
39              \ * permit persons to whom the Materials are furnished to do so, subject to\n\
40              \ * the following conditions:\n\
41              \ *\n\
42              \ * The above copyright notice and this permission notice shall be included\n\
43              \ * in all copies or substantial portions of the Materials.\n\
44              \ *\n\
45              \ * THE MATERIALS ARE PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND,\n\
46              \ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF\n\
47              \ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.\n\
48              \ * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY\n\
49              \ * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,\n\
50              \ * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE\n\
51              \ * MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS.\n\
52            \ *\n\            \ *\n\
53            \ * WARNING: this file is generated; do not edit!!!\n\            \ * WARNING: this file is generated; do not edit!!!\n\
54            \ *)\n\            \ *)\n\
# Line 34  Line 56 
56            \structure %s =\n\            \structure %s =\n\
57            \  struct\n\            \  struct\n\
58            \\n\            \\n\
59              \    local\n\
60              \      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\
64              \      type gluint64 = GLTypes.gluint64\n\
65              \    in\n\
66            \\n\            \\n\
67            \"            \"
68      val footer = "\      val footer = "\
69            \\n\            \\n\
70              \    end (* local *)\n\
71              \\n\
72            \  end (* %s *)\n\            \  end (* %s *)\n\
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 57  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, "glint64")                              else if Atom.same(ty, a_GLuint64) then (false, "gluint64")
95                              else raise Fail "unknown C type"                              else raise Fail "unknown C type"
96                          | _ => raise Fail "unknown C type"                          | _ => raise Fail "unknown C type"
97                        (* end case *))                        (* end case *))

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

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