mirror of
https://gitlab.freedesktop.org/mesa/mesa.git
synced 2026-05-19 07:08:05 +02:00
50 lines
1.8 KiB
Tcl
50 lines
1.8 KiB
Tcl
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]
|