summaryrefslogtreecommitdiffstats
path: root/src/glx/apple/gen_code.tcl
diff options
context:
space:
mode:
authorJeremy Huddleston <[email protected]>2010-04-01 11:01:31 -0700
committerJeremy Huddleston <[email protected]>2010-04-01 12:33:45 -0700
commit0594cf70883b64692ba617d85f4f9b4e636e5c2b (patch)
tree4f0180af9c072c393e3d6270825953bf46a9152e /src/glx/apple/gen_code.tcl
parent86a7978d37393ee34f876569ac06ffdb8d7289ae (diff)
apple: Initial import of libGL for OSX from AppleSGLX svn repository.
Signed-off-by: Jeremy Huddleston <[email protected]>
Diffstat (limited to 'src/glx/apple/gen_code.tcl')
-rw-r--r--src/glx/apple/gen_code.tcl50
1 files changed, 50 insertions, 0 deletions
diff --git a/src/glx/apple/gen_code.tcl b/src/glx/apple/gen_code.tcl
new file mode 100644
index 00000000000..bb38d9f1c97
--- /dev/null
+++ b/src/glx/apple/gen_code.tcl
@@ -0,0 +1,50 @@
+if 0 {
+ Copyright (c) 2008 Apple Inc.
+
+ Permission is hereby granted, free of charge, to any person
+ obtaining a copy of this software and associated documentation files
+ (the "Software"), to deal in the Software without restriction,
+ including without limitation the rights to use, copy, modify, merge,
+ publish, distribute, sublicense, and/or sell copies of the Software,
+ and to permit persons to whom the Software is furnished to do so,
+ subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be
+ included in all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE ABOVE LISTED COPYRIGHT
+ HOLDER(S) BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+ DEALINGS IN THE SOFTWARE.
+
+ Except as contained in this notice, the name(s) of the above
+ copyright holders shall not be used in advertising or otherwise to
+ promote the sale, use or other dealings in this Software without
+ prior written authorization.
+}
+
+package require Tcl 8.5
+
+proc main {} {
+ set tclsh [info nameofexecutable]
+
+ puts TYPES
+ exec $tclsh ./gen_types.tcl stage.1
+ puts DEFS
+ exec $tclsh ./gen_defs.tcl specs/enum.spec stage.2
+ puts FUNCS
+ exec $tclsh ./gen_funcs.tcl specs/gl.spec stage.3 stage.4
+ puts HEADER
+ exec $tclsh ./gen_api_header.tcl stage.4 apple_xgl_api.h
+ puts "C API"
+ exec $tclsh ./gen_api_library.tcl stage.4 apple_xgl_api.c
+ puts "EXPORTS"
+ exec $tclsh ./gen_exports.tcl stage.4 exports.list
+
+ return 0
+}
+exit [main]