1 files changed, 0 insertions, 630 deletions
diff --git a/src/glx/apple/gen_funcs.tcl b/src/glx/apple/gen_funcs.tcl
deleted file mode 100644
index e78eb3278c..0000000000
--- a/src/glx/apple/gen_funcs.tcl
+++ /dev/null
@@ -1,630 +0,0 @@
-package require Tcl 8.5
-
-#input is specs/gl.spec
-
-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.
-*/
-}
-
-
-proc extension name {
-    global extensions
-
-    set extensions($name) 1
-}
-
-proc alias {from to} {
-    global aliases
-    
-    set aliases($from) $to
-}
-
-proc promoted name {
-    global promoted
-
-    set promoted($name) 1
-}
-
-proc noop name {
-    global noop
-    
-    set noop($name) 1
-}
-
-set dir [file dirname [info script]]
-
-source [file join $dir GL_extensions]
-source [file join $dir GL_aliases]
-source [file join $dir GL_promoted]
-source [file join $dir GL_noop]
-
-proc is-extension-supported? name {
-    global extensions
-
-    return [info exists extensions($name)]
-}
-
-#This is going to need to be updated for OpenGL >= 2.1 in SnowLeopard.
-# TextureComponentCount is GLenum in SL for everything
-# It is GLint in mesa, but is GLenum for glTexImage3DEXT
-array set typemap {
-    void void
-    List GLuint
-    Mode GLenum
-    CheckedFloat32 GLfloat
-    CheckedInt32 GLint
-    Float32 GLfloat
-    Int32 GLint
-    Int64 GLint64EXT
-    UInt64 GLuint64EXT
-    Float64 GLdouble
-    ListMode GLuint
-    SizeI GLsizei
-    ListNameType GLenum
-    Void void
-    BeginMode GLenum
-    CoordF GLfloat
-    UInt8 GLubyte
-    Boolean GLboolean
-    ColorIndexValueD GLdouble
-    ColorB GLbyte
-    ColorD GLdouble
-    ColorF GLfloat
-    ColorI GLint
-    ColorS GLshort
-    ColorUB GLubyte
-    ColorUI GLuint
-    ColorUS GLushort
-    ColorIndexValueF GLfloat
-    ColorIndexValueI GLint
-    ColorIndexValueS GLshort
-    Int8 GLbyte
-    CoordD GLdouble
-    Int16 GLshort
-    CoordI GLint
-    CoordS GLshort
-    ClipPlaneName GLenum
-    MaterialFace GLenum
-    ColorMaterialParameter GLenum
-    CullFaceMode GLenum
-    FogParameter GLenum
-    FrontFaceDirection GLenum
-    HintTarget GLenum
-    HintMode GLenum
-    LightName GLenum
-    LightParameter GLenum
-    LightModelParameter GLenum
-    LineStipple GLushort
-    MaterialParameter GLenum
-    PolygonMode GLenum
-    WinCoord GLint
-    ShadingModel GLenum
-    TextureTarget GLenum
-    TextureParameterName GLenum
-    TextureComponentCount GLint
-    PixelFormat GLenum
-    PixelType GLenum
-    TextureEnvTarget GLenum
-    TextureEnvParameter GLenum
-    TextureCoordName GLenum
-    TextureGenParameter GLenum
-    FeedbackType GLenum
-    FeedbackElement GLfloat
-    SelectName GLuint
-    RenderingMode GLenum
-    DrawBufferMode GLenum
-    ClearBufferMask GLbitfield
-    MaskedColorIndexValueF GLfloat
-    ClampedColorF GLclampf
-    StencilValue GLint
-    ClampedFloat64 GLclampd
-    MaskedStencilValue GLuint
-    MaskedColorIndexValueI GLuint
-    AccumOp GLenum
-    EnableCap GLenum
-    AttribMask GLbitfield
-    MapTarget GLenum
-    MeshMode1 GLenum
-    MeshMode2 GLenum
-    AlphaFunction GLenum
-    ClampedFloat32 GLclampf
-    BlendingFactorSrc GLenum
-    BlendingFactorDest GLenum
-    LogicOp GLenum
-    StencilFunction GLenum
-    ClampedStencilValue GLint
-    MaskedStencilValue GLuint
-    StencilOp GLenum
-    DepthFunction GLenum
-    PixelTransferParameter GLenum
-    PixelStoreParameter GLenum
-    PixelMap GLenum
-    UInt32 GLuint
-    UInt16 GLushort
-    ReadBufferMode GLenum
-    PixelCopyType GLenum
-    GetPName GLenum
-    ErrorCode GLenum
-    GetMapQuery GLenum
-    String "const GLubyte *"
-    StringName GLenum
-    GetTextureParameter GLenum
-    MatrixMode GLenum
-    ColorPointerType GLenum
-    DrawElementsType GLenum
-    GetPointervPName GLenum
-    VoidPointer "void *"
-    IndexPointerType GLenum
-    InterleavedArrayFormat GLenum
-    NormalPointerType GLenum
-    TexCoordPointerType GLenum
-    VertexPointerType GLenum
-    PixelInternalFormat GLenum
-    Texture GLuint
-    ColorIndexValueUB GLubyte
-    ClientAttribMask GLbitfield
-    BlendEquationMode GLenum
-    ColorTableTarget GLenum
-    ColorTableParameterPName GLenum
-    GetColorTableParameterPName GLenum
-    ConvolutionTarget GLenum
-    ConvolutionParameter GLenum
-    GetConvolutionParameterPName GLenum
-    SeparableTarget GLenum
-    HistogramTarget GLenum
-    GetHistogramParameterPName GLenum
-    MinmaxTarget GLenum
-    GetMinmaxParameterPName GLenum
-    TextureTarget GLenum
-    TextureUnit GLenum
-    CompressedTextureARB "void"
-    BlendFuncSeparateParameterEXT GLenum
-    FogPointerTypeEXT GLenum
-    PointParameterNameARB GLenum
-    GLenum GLenum
-    BufferTargetARB GLenum
-    ConstUInt32 "const GLuint"
-    BufferSize GLsizeiptr
-    ConstVoid "const GLvoid"
-    BufferUsageARB GLenum
-    BufferOffset GLintptr
-    BufferAccessARB GLenum
-    BufferPNameARB GLenum
-    BufferPointerNameARB GLenum
-    BlendEquationModeEXT GLenum
-    DrawBufferModeATI GLenum
-    StencilFaceDirection GLenum
-    Char GLchar
-    VertexAttribPropertyARB GLenum
-    VertexAttribPointerPropertyARB GLenum
-    CharPointer "GLchar *"
-    VertexAttribPointerTypeARB GLenum
-    ClampColorTargetARB unknown3.0
-    ClampColorModeARB unknown3.0
-    VertexAttribEnum GLenum
-    VertexAttribEnumNV GLenum
-    DrawBufferName unknown3.0
-    WeightPointerTypeARB GLenum
-    ProgramTargetARB GLenum
-    ProgramFormatARB GLenum
-    ProgramStringPropertyARB GLenum
-    BufferSizeARB GLsizeiptrARB
-    BufferOffsetARB GLintptrARB
-    handleARB GLhandleARB
-    charPointerARB "GLcharARB *"
-    charARB GLcharARB
-    RenderbufferTarget GLenum
-    FramebufferTarget GLenum
-    FramebufferAttachment GLenum
-    BinormalPointerTypeEXT GLenum
-    HintTargetPGI GLenum
-    ProgramParameterPName GLenum
-    ProgramPropertyARB GLenum
-    ElementPointerTypeATI GLenum
-    FenceNV GLuint
-    FenceConditionNV GLenum
-    ObjectTypeAPPLE GLenum
-    VertexArrayPNameAPPLE GLenum
-    SeparableTargetEXT GLenum
-    ColorTableTargetSGI GLenum
-    ColorTableParameterPNameSGI GLenum
-    CombinerOutputNV GLenum
-    CombinerStageNV GLenum
-    CombinerPortionNV GLenum
-    CombinerRegisterNV GLenum
-    CombinerScaleNV GLenum
-    CombinerBiasNV GLenum
-    CombinerComponentUsageNV GLenum
-    CombinerMappingNV GLenum
-    CombinerParameterNV GLenum
-    CombinerVariableNV GLenum
-    ConvolutionParameterEXT GLenum
-    ConvolutionTargetEXT GLenum
-    CullParameterEXT GLenum
-    FenceParameterNameNV GLenum
-    FragmentLightModelParameterSGIX GLenum
-    FragmentLightNameSGIX GLenum
-    FragmentLightParameterSGIX GLenum
-    GetColorTableParameterPNameSGI GLenum
-    GetHistogramParameterPNameEXT GLenum
-    GetMinmaxParameterPNameEXT GLenum
-    HistogramTargetEXT GLenum
-    LightEnvParameterSGIX GLenum
-    MinmaxTargetEXT GLenum
-    PNTrianglesPNameATI GLenum
-    ProgramCharacterNV GLubyte
-    SamplePatternEXT GLenum
-    SamplePatternSGIS GLenum
-    TypeEnum GLenum
-}
-
-proc psplit s {
-    set r [list]
-    set token ""
-
-    foreach c [split $s ""] {
-	if {[string is space -strict $c]} {
-	    if {[string length $token]} {
-		lappend r $token
-	    }
-	    set token ""
-	} else {
-	    append token $c
-	}
-    }
-
-    if {[string length $token]} {
-	lappend r $token
-    }
-
-    return $r
-}
-
-proc is-extension? str {
-    #Check if the trailing name of the function is NV, or EXT, and so on.
-    
-    if {[string is upper [string index $str end]]
-	&& [string is upper [string index $str end-1]]} {
-	return 1
-    } 
-
-    return 0
-}
-
-
-proc parse {data arvar} {
-    upvar 1 $arvar ar
-
-    set state ""
-    set name ""
-
-    foreach line [split $data \n] {
-	if {"attr" eq $state} {
-	    if {[string match "\t*" $line]} {
-		set plist [psplit [lindex [split $line "#"] 0]]
-		#puts PLIST:$plist
-		set master $ar($name)
-		set param [dict get $master parameters]
-
-		switch -- [llength $plist] {
-		    1 {
-			dict set master [lindex $plist 0] ""
-		    }
-
-		    2 {
-			#standard key, value pair
-			set key [lindex $plist 0]
-			set value [lindex $plist 1]
-
-			dict set master $key $value
-		    }
-
-		    default {
-			set key [lindex $plist 0]
-
-			#puts PLIST:$plist
-
-			if {"param" eq $key} {
-			    lappend param [list [lindex $plist 1] [lindex $plist 2] [lindex $plist 3] [lindex $plist 4]]
-			} else {
-			    dict set master $key [lrange $plist 1 end]
-			}
-		    }		    
-		}
-		
-		dict set master parameters $param
-
-		set ar($name) $master
-	    } else {
-		set state ""
-	    }
-	} elseif {[regexp {^([A-Z_a-z0-9]+)\((.*)\)\S*} $line all name argv] > 0} {
-	    #puts "MATCH:$name ARGV:$argv"
-	    
-	    #Trim the spaces in the elements.
-	    set newargv [list]
-	    foreach a [split $argv ,] {
-		lappend newargv [string trim $a]
-	    }
-	    
-
-	    set d [dict create name $name arguments $newargv \
-		       parameters [dict create]]
-	    set ar($name) $d
-	    set state attr
-	} 
-    }
-}
-
-#This returns true if the category is valid for an extension.
-proc is-valid-category? c {
-    set clist [list display-list drawing drawing-control feedback framebuf misc modeling pixel-op pixel-rw state-req xform VERSION_1_0 VERSION_1_0_DEPRECATED VERSION_1_1 VERSION_1_1_DEPRECATED VERSION_1_2 VERSION_1_2_DEPRECATED VERSION_1_3 VERSION_1_3_DEPRECATED VERSION_1_4 VERSION_1_4_DEPRECATED VERSION_1_5 VERSION_2_0 VERSION_2_1 VERSION_3_0 VERSION_3_0_DEPRECATED VERSION_3_1 VERSION_3_2]
-
-    set result [expr {$c in $clist}]
-
-
-    if {!$result} {
-	set result [is-extension-supported? $c]
-    }
-
-    return $result
-}
-
-proc translate-parameters {func parameters} {
-    global typemap
-
-    set newparams [list]
-
-    foreach p $parameters {
-	set var [lindex $p 0]
-	
-	set ptype [lindex $p 1]
-	
-	if {![info exists typemap($ptype)]} {
-	    set ::missingTypes($ptype) $func
-	    continue
-	}
-	
-	set type $typemap($ptype)
-	
-	if {"array" eq [lindex $p 3]} {
-	    if {"in" eq [lindex $p 2]} {
-		set final_type "const $type *"
-	    } else {
-		set final_type "$type *"
-	    }
-	} else {
-	    set final_type $type
-	}
-	    
-	lappend newparams [list $final_type $var]
-    }
- 
-    return $newparams
-}
-
-proc api-new-entry {info func} {
-    global typemap
-
-    set master [dict create]
-    set rettype [dict get $info return]
-    
-    if {![info exists typemap($rettype)]} {
-	set ::missingTypes($rettype) $func
-    } else {
-	dict set master return $typemap($rettype)
-    }
-    
-    dict set master parameters [translate-parameters $func \
-				    [dict get $info parameters]]
-
-    return $master
-}
-
-proc main {argc argv} {
-    global extensions typemap aliases promoted noop
-
-    set fd [open [lindex $argv 0] r]
-    set data [read $fd]
-    close $fd
-  
-    array set ar {}
-    
-    parse $data ar
-    
-    array set newapi {}
-    array set missingTypes {}
-
-    foreach {key value} [array get ar] {
-	puts "KEY:$key VALUE:$value"
-
-	set category [dict get $value category]
-	
-	#Invalidate any of the extensions and things not in the spec we support.
-	set valid [is-valid-category? $category]
-	puts VALID:$valid
-	
-	if {!$valid} {
-	   continue
-	}
-
-	puts "VALID:$key"
-
-	if {"BlitFramebuffer" eq $key} {
-	    #This was promoted to an ARB extension after Leopard it seems.
-	    set key BlitFramebufferEXT
-	}
-
-	if {"ARB_framebuffer_object" eq $category} {
-	    #This wasn't an ARB extension in Leopard either.
-	    if {![string match *EXT $key]} {
-		append key EXT
-	    }
-	}
-
-	set newapi($key) [api-new-entry $value $key]
-    }
-
-    #Now iterate and support as many aliases as we can for promoted functions
-    #based on if the newapi contains the function.
-    foreach {func value} [array get ar] {
-	if {![info exists promoted([dict get $value category])]} {
-	    continue
-	}
-
-	if {[dict exists $value alias]} {
-	    #We have an alias.  Let's see if we have the implementation.
-	    set alias [dict get $value alias]
-
-	    if {[info exists newapi($alias)] && ![info exists newapi($func)]} {
-		#We have an implementing function available.
-		puts "HAVE:$key ALIAS:$alias"
-
-		set master [api-new-entry $value $func]
-		dict set master alias_for $alias
-		set newapi($func) $master		
-	    }
-	}
-    } 
-
-    parray noop
-
-    #Now handle the no-op compatibility categories.
-    foreach {func value} [array get ar] {
-	if {[info exists noop([dict get $value category])]} {
-	    if {[info exists newapi($func)]} {
-		puts stderr "$func shouldn't be a noop"
-		exit 1
-	    }
-	    
-	    set master [api-new-entry $value $func]
-	    dict set master noop 1
-	    set newapi($func) $master
-	}
-    }
-
-    
-
-    parray newapi
-
-    if {[array size ::missingTypes]} {
-	parray ::missingTypes
-	return 1
-    }
-
-    foreach {from to} [array get aliases] {
-	set d $newapi($to)
-	dict set d alias_for $to
-	set newapi($from) $d
-    }
-
-    #Iterate the nm output and set each symbol in an associative array.
-    array set validapi {}
-
-    foreach line [split [exec nm -j -g /System/Library/Frameworks/OpenGL.framework/Libraries/libGL.dylib] \n] {
-	set fn [string trim $line]
-
-	#Only match the _gl functions.
-	if {[string match _gl* $fn]} {
-	    set finalfn [string range $fn 3 end]
-	    puts FINALFN:$finalfn
-	    set validapi($finalfn) $finalfn
-	}
-    }
-
-    puts "Correcting the API functions to match the OpenGL framework."
-    #parray validapi
-    
-    #Iterate the newapi and unset any members that the
-    #libGL.dylib doesn't support, assuming they aren't no-ops.
-    foreach fn [array names newapi] {
-	if {![info exists validapi($fn)]} {
-	    puts "WARNING: libGL.dylib lacks support for: $fn"
-
-	    if {[dict exists $newapi($fn) noop] 
-		&& [dict get $newapi($fn) noop]} {
-		#This is no-op, so we should skip it.
-		continue
-	    }
-
-	    #Is the function an alias for another in libGL?
-	    if {[dict exists $newapi($fn) alias_for]} {
-		set alias [dict get $newapi($fn) alias_for]
-
-		if {![info exists validapi($alias)]} {
-		    puts "WARNING: alias function doesn't exist for $fn."
-		    puts "The alias is $alias."
-		    puts "unsetting $fn"		    
-		    unset newapi($fn)
-		} 
-	    } else {
-		puts "unsetting $fn"
-		unset newapi($fn)
-	    }
-	}
-    }
-
-    
-    #Now print a warning about any symbols that libGL supports that we don't.
-    foreach fn [array names validapi] {
-	if {![info exists newapi($fn)]} {
-	    puts "AppleSGLX is missing $fn"
-	}
-    }
-
-    puts "NOW GENERATING:[lindex $::argv 1]"
-    set fd [open [lindex $::argv 1] w]
-
-    set sorted [lsort -dictionary [array names newapi]]
-
-    foreach f $sorted {
-	set attr $newapi($f)
-	set pstr ""
-	foreach p [dict get $attr parameters] {
-	    append pstr "[lindex $p 0] [lindex $p 1], "
-	}
-	set pstr [string trimright $pstr ", "]
-	puts $fd "[dict get $attr return] gl[set f]($pstr); "
-    }
-
-    close $fd
-
-    if {$::argc == 3} {
-	puts "NOW GENERATING:[lindex $::argv 2]"
-	#Dump the array as a serialized list.
-	set fd [open [lindex $::argv 2] w]
-	puts $fd [array get newapi]
-	close $fd
-    }
-
-    return 0
-}
-exit [main $::argc $::argv]
-