summaryrefslogtreecommitdiff
path: root/src/glx/apple/gen_api_header.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'src/glx/apple/gen_api_header.tcl')
-rw-r--r--src/glx/apple/gen_api_header.tcl86
1 files changed, 0 insertions, 86 deletions
diff --git a/src/glx/apple/gen_api_header.tcl b/src/glx/apple/gen_api_header.tcl
deleted file mode 100644
index 9e986de504..0000000000
--- a/src/glx/apple/gen_api_header.tcl
+++ /dev/null
@@ -1,86 +0,0 @@
-
-package require Tcl 8.5
-
-set license {
-/*
- Copyright (c) 2008, 2009 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.
-*/
-}
-
-set this_script [info script]
-
-proc main {argc argv} {
- if {2 != $argc} {
- puts stderr "syntax is: [set ::this_script] serialized-array-file output.h"
- return 1
- }
-
- set fd [open [lindex $argv 0] r]
- array set api [read $fd]
- close $fd
-
- set fd [open [lindex $argv 1] w]
-
- puts $fd "/* This file was automatically generated by [set ::this_script]. */"
- puts $fd $::license
-
- puts $fd "
-#ifndef APPLE_XGL_API_H
-#define APPLE_XGL_API_H
-"
-
- puts $fd "struct apple_xgl_api \{"
-
- set sorted [lsort -dictionary [array names api]]
-
- foreach f $sorted {
- set attr $api($f)
- set pstr ""
-
- if {[dict exists $attr alias_for] || [dict exists $attr noop]} {
- #Skip this function.
- continue
- }
-
- foreach p [dict get $attr parameters] {
- append pstr "[lindex $p 0] [lindex $p 1], "
- }
-
- set pstr [string trimright $pstr ", "]
- puts $fd "\t[dict get $attr return] (*[set f])([set pstr]);"
- }
-
- puts $fd "\};"
- puts $fd "void apple_xgl_init_direct(void);
-
-#endif /*APPLE_XGL_API_H*/
-"
-
- return 0
-}
-exit [main $::argc $::argv] \ No newline at end of file