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 1388, Sat Apr 5 20:42:58 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 gluint = GLTypes.gluint\n\
63              \      type gluint64 = GLTypes.gluint64\n\
64              \    in\n\
65            \\n\            \\n\
66            \"            \"
67      val footer = "\      val footer = "\
68            \\n\            \\n\
69              \    end (* local *)\n\
70              \\n\
71            \  end (* %s *)\n\            \  end (* %s *)\n\
72            \"            \"
73    
# Line 59  Line 88 
88                              if Atom.same(ty, a_GLint) then (true, "glint")                              if Atom.same(ty, a_GLint) then (true, "glint")
89                              else if Atom.same(ty, a_GLenum) then (false, "glenum")                              else if Atom.same(ty, a_GLenum) then (false, "glenum")
90                              else if Atom.same(ty, a_GLuint) then (false, "gluint")                              else if Atom.same(ty, a_GLuint) then (false, "gluint")
91                              else if Atom.same(ty, a_GLuint64) then (false, "glint64")                              else if Atom.same(ty, a_GLuint64) then (false, "gluint64")
92                              else raise Fail "unknown C type"                              else raise Fail "unknown C type"
93                          | _ => raise Fail "unknown C type"                          | _ => raise Fail "unknown C type"
94                        (* end case *))                        (* end case *))

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

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