summaryrefslogtreecommitdiff
path: root/src/glx/apple/gen_code.tcl
diff options
context:
space:
mode:
authorJeremy Huddleston <jeremyhu@apple.com>2010-04-01 11:01:31 -0700
committerJeremy Huddleston <jeremyhu@apple.com>2010-04-27 11:26:50 -0700
commitad503c41557606d15b0420c824369456f6d20a8f (patch)
tree7155272412f9b20b559fa172a1718fd8dfe6e98a /src/glx/apple/gen_code.tcl
parentf1381880a8e0e0cdd96c4c725ff35a28b250b09d (diff)
apple: Initial import of libGL for OSX from AppleSGLX svn repository.
Signed-off-by: Jeremy Huddleston <jeremyhu@apple.com>
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 0000000000..bb38d9f1c9
--- /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]