4 ;;;; ARB_shader_objects
6 (defconstant +program-object-arb
+ #x8B40
)
7 (defconstant +shader-object-arb
+ #x8B48
)
8 (defconstant +object-type-arb
+ #x8B4E
)
9 (defconstant +object-subtype-arb
+ #x8B4F
)
10 (defconstant +float-vec2-arb
+ #x8B50
)
11 (defconstant +float-vec3-arb
+ #x8B51
)
12 (defconstant +float-vec4-arb
+ #x8B52
)
13 (defconstant +int-vec2-arb
+ #x8B53
)
14 (defconstant +int-vec3-arb
+ #x8B54
)
15 (defconstant +int-vec4-arb
+ #x8B55
)
16 (defconstant +bool-arb
+ #x8B56
)
17 (defconstant +bool-vec2-arb
+ #x8B57
)
18 (defconstant +bool-vec3-arb
+ #x8B58
)
19 (defconstant +bool-vec4-arb
+ #x8B59
)
20 (defconstant +float-mat2-arb
+ #x8B5A
)
21 (defconstant +float-mat3-arb
+ #x8B5B
)
22 (defconstant +float-mat4-arb
+ #x8B5C
)
23 (defconstant +sampler-1d-arb
+ #x8B5D
)
24 (defconstant +sampler-2d-arb
+ #x8B5E
)
25 (defconstant +sampler-3d-arb
+ #x8B5F
)
26 (defconstant +sampler-cube-arb
+ #x8B60
)
27 (defconstant +sampler-1d-shadow-arb
+ #x8B61
)
28 (defconstant +sampler-2d-shadow-arb
+ #x8B62
)
29 (defconstant +sampler-2d-rect-arb
+ #x8B63
)
30 (defconstant +sampler-2d-rect-shadow-arb
+ #x8B64
)
31 (defconstant +object-delete-status-arb
+ #x8B80
)
32 (defconstant +object-compile-status-arb
+ #x8B81
)
33 (defconstant +object-link-status-arb
+ #x8B82
)
34 (defconstant +object-validate-status-arb
+ #x8B83
)
35 (defconstant +object-info-log-length-arb
+ #x8B84
)
36 (defconstant +object-attached-objects-arb
+ #x8B85
)
37 (defconstant +object-active-uniforms-arb
+ #x8B86
)
38 (defconstant +object-active-uniform-max-length-arb
+ #x8B87
)
39 (defconstant +object-shader-source-length-arb
+ #x8B88
)
41 (("GetShaderSourceARB" get-shader-source-arb
) :args
42 ((:name |obj|
:type |handleARB|
:direction
:in
)
43 (:name |maxLength|
:type |SizeI|
:direction
:in
)
44 (:name |length|
:type |SizeI|
:direction
:out
:array t
:size
#x1
)
45 (:name |source|
:type |charARB|
:direction
:out
:array t
:size length
))
46 :return
("void") :category
("ARB_shader_objects") :dlflags
("notlistable")
47 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore") :alias
48 ("GetShaderSource") :glsalias
("GetShaderSource")))
50 (("GetUniformivARB" get-uniform-iv-arb
) :args
51 ((:name |programObj|
:type |handleARB|
:direction
:in
)
52 (:name |location|
:type |Int32|
:direction
:in
)
53 (:name |params|
:type |Int32|
:direction
:out
:array t
:size location
))
54 :return
("void") :category
("ARB_shader_objects") :dlflags
("notlistable")
55 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore") :alias
56 ("GetUniformiv") :glsalias
("GetUniformiv")))
58 (("GetUniformfvARB" get-uniform-fv-arb
) :args
59 ((:name |programObj|
:type |handleARB|
:direction
:in
)
60 (:name |location|
:type |Int32|
:direction
:in
)
61 (:name |params|
:type |Float32|
:direction
:out
:array t
:size location
))
62 :return
("void") :category
("ARB_shader_objects") :dlflags
("notlistable")
63 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore") :alias
64 ("GetUniformfv") :glsalias
("GetUniformfv")))
66 (("GetActiveUniformARB" get-active-uniform-arb
) :args
67 ((:name |programObj|
:type |handleARB|
:direction
:in
)
68 (:name |index|
:type |UInt32|
:direction
:in
)
69 (:name |maxLength|
:type |SizeI|
:direction
:in
)
70 (:name |length|
:type |SizeI|
:direction
:out
:array t
:size
#x1
)
71 (:name |size|
:type |Int32|
:direction
:out
:array t
:size
#x1
)
72 (:name |type|
:type |GLenum|
:direction
:out
:array t
:size
#x1
)
73 (:name |name|
:type |charARB|
:direction
:out
:array t
))
74 :return
("void") :category
("ARB_shader_objects") :dlflags
("notlistable")
75 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore") :alias
76 ("GetActiveUniform") :glsalias
("GetActiveUniform")))
78 (("GetUniformLocationARB" get-uniform-location-arb
) :args
79 ((:name |programObj|
:type |handleARB|
:direction
:in
)
80 (:name |name|
:type |charARB|
:direction
:in
:array t
))
81 :return
("Int32") :category
("ARB_shader_objects") :dlflags
("notlistable")
82 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore") :alias
83 ("GetUniformLocation") :glsalias
("GetUniformLocation")))
85 (("GetAttachedObjectsARB" get-attached-objects-arb
) :args
86 ((:name |containerObj|
:type |handleARB|
:direction
:in
)
87 (:name |maxCount|
:type |SizeI|
:direction
:in
)
88 (:name |count|
:type |SizeI|
:direction
:out
:array t
:size
#x1
)
89 (:name |obj|
:type |handleARB|
:direction
:out
:array t
:size count
))
90 :return
("void") :category
("ARB_shader_objects") :dlflags
("notlistable")
91 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore") :alias
92 ("GetAttachedShaders") :glsalias
("GetAttachedShaders")))
94 (("GetInfoLogARB" get-info-log-arb
) :args
95 ((:name |obj|
:type |handleARB|
:direction
:in
)
96 (:name |maxLength|
:type |SizeI|
:direction
:in
)
97 (:name |length|
:type |SizeI|
:direction
:out
:array t
:size
#x1
)
98 (:name |infoLog|
:type |charARB|
:direction
:out
:array t
:size length
))
99 :return
("void") :category
("ARB_shader_objects") :dlflags
("notlistable")
100 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore")
101 :glsflags
("get") :glsopcode
("?") :offset
("?")))
103 (("GetObjectParameterivARB" get-object-parameter-iv-arb
) :args
104 ((:name |obj|
:type |handleARB|
:direction
:in
)
105 (:name |pname|
:type |GLenum|
:direction
:in
)
106 (:name |params|
:type |Int32|
:direction
:out
:array t
:size pname
))
107 :return
("void") :category
("ARB_shader_objects") :dlflags
("notlistable")
108 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore")
109 :glsflags
("get") :glsopcode
("?") :offset
("?")))
111 (("GetObjectParameterfvARB" get-object-parameter-fv-arb
) :args
112 ((:name |obj|
:type |handleARB|
:direction
:in
)
113 (:name |pname|
:type |GLenum|
:direction
:in
)
114 (:name |params|
:type |Float32|
:direction
:out
:array t
:size pname
))
115 :return
("void") :category
("ARB_shader_objects") :dlflags
("notlistable")
116 :version
("1.2") :extension nil
:glxsingle
("?") :glxflags
("ignore")
117 :glsflags
("get") :glsopcode
("?") :offset
("?")))
119 (("UniformMatrix4fvARB" uniform-matrix-4fv-arb
) :args
120 ((:name |location|
:type |Int32|
:direction
:in
)
121 (:name |count|
:type |SizeI|
:direction
:in
)
122 (:name |transpose|
:type |Boolean|
:direction
:in
)
123 (:name |value|
:type |Float32|
:direction
:in
:array t
:size count
))
124 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
125 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("UniformMatrix4fv")
126 :glsalias
("UniformMatrix4fv")))
128 (("UniformMatrix3fvARB" uniform-matrix-3fv-arb
) :args
129 ((:name |location|
:type |Int32|
:direction
:in
)
130 (:name |count|
:type |SizeI|
:direction
:in
)
131 (:name |transpose|
:type |Boolean|
:direction
:in
)
132 (:name |value|
:type |Float32|
:direction
:in
:array t
:size count
))
133 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
134 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("UniformMatrix3fv")
135 :glsalias
("UniformMatrix3fv")))
137 (("UniformMatrix2fvARB" uniform-matrix-2fv-arb
) :args
138 ((:name |location|
:type |Int32|
:direction
:in
)
139 (:name |count|
:type |SizeI|
:direction
:in
)
140 (:name |transpose|
:type |Boolean|
:direction
:in
)
141 (:name |value|
:type |Float32|
:direction
:in
:array t
:size count
))
142 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
143 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("UniformMatrix2fv")
144 :glsalias
("UniformMatrix2fv")))
146 (("Uniform4ivARB" uniform-4iv-arb
) :args
147 ((:name |location|
:type |Int32|
:direction
:in
)
148 (:name |count|
:type |SizeI|
:direction
:in
)
149 (:name |value|
:type |Int32|
:direction
:in
:array t
:size count
))
150 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
151 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform4iv") :glsalias
154 (("Uniform3ivARB" uniform-3iv-arb
) :args
155 ((:name |location|
:type |Int32|
:direction
:in
)
156 (:name |count|
:type |SizeI|
:direction
:in
)
157 (:name |value|
:type |Int32|
:direction
:in
:array t
:size count
))
158 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
159 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform3iv") :glsalias
162 (("Uniform2ivARB" uniform-2iv-arb
) :args
163 ((:name |location|
:type |Int32|
:direction
:in
)
164 (:name |count|
:type |SizeI|
:direction
:in
)
165 (:name |value|
:type |Int32|
:direction
:in
:array t
:size count
))
166 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
167 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform2iv") :glsalias
170 (("Uniform1ivARB" uniform-1iv-arb
) :args
171 ((:name |location|
:type |Int32|
:direction
:in
)
172 (:name |count|
:type |SizeI|
:direction
:in
)
173 (:name |value|
:type |Int32|
:direction
:in
:array t
:size count
))
174 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
175 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform1iv") :glsalias
178 (("Uniform4fvARB" uniform-4fv-arb
) :args
179 ((:name |location|
:type |Int32|
:direction
:in
)
180 (:name |count|
:type |SizeI|
:direction
:in
)
181 (:name |value|
:type |Float32|
:direction
:in
:array t
:size count
))
182 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
183 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform4fv") :glsalias
186 (("Uniform3fvARB" uniform-3fv-arb
) :args
187 ((:name |location|
:type |Int32|
:direction
:in
)
188 (:name |count|
:type |SizeI|
:direction
:in
)
189 (:name |value|
:type |Float32|
:direction
:in
:array t
:size count
))
190 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
191 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform3fv") :glsalias
194 (("Uniform2fvARB" uniform-2fv-arb
) :args
195 ((:name |location|
:type |Int32|
:direction
:in
)
196 (:name |count|
:type |SizeI|
:direction
:in
)
197 (:name |value|
:type |Float32|
:direction
:in
:array t
:size count
))
198 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
199 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform2fv") :glsalias
202 (("Uniform1fvARB" uniform-1fv-arb
) :args
203 ((:name |location|
:type |Int32|
:direction
:in
)
204 (:name |count|
:type |SizeI|
:direction
:in
)
205 (:name |value|
:type |Float32|
:direction
:in
:array t
:size count
))
206 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
207 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform1fv") :glsalias
210 (("Uniform4iARB" uniform-4i-arb
) :args
211 ((:name |location|
:type |Int32|
:direction
:in
)
212 (:name |v0|
:type |Int32|
:direction
:in
)
213 (:name |v1|
:type |Int32|
:direction
:in
)
214 (:name |v2|
:type |Int32|
:direction
:in
)
215 (:name |v3|
:type |Int32|
:direction
:in
))
216 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
217 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform4i") :glsalias
220 (("Uniform3iARB" uniform-3i-arb
) :args
221 ((:name |location|
:type |Int32|
:direction
:in
)
222 (:name |v0|
:type |Int32|
:direction
:in
)
223 (:name |v1|
:type |Int32|
:direction
:in
)
224 (:name |v2|
:type |Int32|
:direction
:in
))
225 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
226 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform3i") :glsalias
229 (("Uniform2iARB" uniform-2i-arb
) :args
230 ((:name |location|
:type |Int32|
:direction
:in
)
231 (:name |v0|
:type |Int32|
:direction
:in
)
232 (:name |v1|
:type |Int32|
:direction
:in
))
233 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
234 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform2i") :glsalias
237 (("Uniform1iARB" uniform-1i-arb
) :args
238 ((:name |location|
:type |Int32|
:direction
:in
)
239 (:name |v0|
:type |Int32|
:direction
:in
))
240 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
241 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform1i") :glsalias
244 (("Uniform4fARB" uniform-4f-arb
) :args
245 ((:name |location|
:type |Int32|
:direction
:in
)
246 (:name |v0|
:type |Float32|
:direction
:in
)
247 (:name |v1|
:type |Float32|
:direction
:in
)
248 (:name |v2|
:type |Float32|
:direction
:in
)
249 (:name |v3|
:type |Float32|
:direction
:in
))
250 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
251 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform4f") :glsalias
254 (("Uniform3fARB" uniform-3f-arb
) :args
255 ((:name |location|
:type |Int32|
:direction
:in
)
256 (:name |v0|
:type |Float32|
:direction
:in
)
257 (:name |v1|
:type |Float32|
:direction
:in
)
258 (:name |v2|
:type |Float32|
:direction
:in
))
259 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
260 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform3f") :glsalias
263 (("Uniform2fARB" uniform-2f-arb
) :args
264 ((:name |location|
:type |Int32|
:direction
:in
)
265 (:name |v0|
:type |Float32|
:direction
:in
)
266 (:name |v1|
:type |Float32|
:direction
:in
))
267 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
268 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform2f") :glsalias
271 (("Uniform1fARB" uniform-1f-arb
) :args
272 ((:name |location|
:type |Int32|
:direction
:in
)
273 (:name |v0|
:type |Float32|
:direction
:in
))
274 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
275 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("Uniform1f") :glsalias
278 (("ValidateProgramARB" validate-program-arb
) :args
279 ((:name |programObj|
:type |handleARB|
:direction
:in
)) :return
("void")
280 :category
("ARB_shader_objects") :version
("1.2") :extension nil
:glxropcode
281 ("?") :glxflags
("ignore") :alias
("ValidateProgram") :glsalias
282 ("ValidateProgram")))
284 (("UseProgramObjectARB" use-program-object-arb
) :args
285 ((:name |programObj|
:type |handleARB|
:direction
:in
)) :return
("void")
286 :category
("ARB_shader_objects") :version
("1.2") :extension nil
:glxropcode
287 ("?") :glxflags
("ignore") :alias
("UseProgram") :glsalias
("UseProgram")))
289 (("LinkProgramARB" link-program-arb
) :args
290 ((:name |programObj|
:type |handleARB|
:direction
:in
)) :return
("void")
291 :category
("ARB_shader_objects") :version
("1.2") :extension nil
:glxropcode
292 ("?") :glxflags
("ignore") :alias
("LinkProgram") :glsalias
("LinkProgram")))
294 (("AttachObjectARB" attach-object-arb
) :args
295 ((:name |containerObj|
:type |handleARB|
:direction
:in
)
296 (:name |obj|
:type |handleARB|
:direction
:in
))
297 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
298 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("AttachShader") :glsalias
301 (("CreateProgramObjectARB" create-program-object-arb
) :args nil
:return
302 ("handleARB") :category
("ARB_shader_objects") :version
("1.2") :extension
303 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("CreateProgram") :glsalias
306 (("CompileShaderARB" compile-shader-arb
) :args
307 ((:name |shaderObj|
:type |handleARB|
:direction
:in
)) :return
("void")
308 :category
("ARB_shader_objects") :version
("1.2") :extension nil
:glxropcode
309 ("?") :glxflags
("ignore") :alias
("CompileShader") :glsalias
312 (("ShaderSourceARB" shader-source-arb
) :args
313 ((:name |shaderObj|
:type |handleARB|
:direction
:in
)
314 (:name |count|
:type |SizeI|
:direction
:in
)
315 (:name |string|
:type |charPointerARB|
:direction
:in
:array t
:size count
)
316 (:name |length|
:type |Int32|
:direction
:in
:array t
:size
#x1
))
317 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
318 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("ShaderSource") :glsalias
321 (("CreateShaderObjectARB" create-shader-object-arb
) :args
322 ((:name |shaderType|
:type |GLenum|
:direction
:in
)) :return
("handleARB")
323 :category
("ARB_shader_objects") :version
("1.2") :extension nil
:glxropcode
324 ("?") :glxflags
("ignore") :alias
("CreateShader") :glsalias
327 (("DetachObjectARB" detach-object-arb
) :args
328 ((:name |containerObj|
:type |handleARB|
:direction
:in
)
329 (:name |attachedObj|
:type |handleARB|
:direction
:in
))
330 :return
("void") :category
("ARB_shader_objects") :version
("1.2") :extension
331 nil
:glxropcode
("?") :glxflags
("ignore") :alias
("DetachShader") :glsalias
334 (("GetHandleARB" get-handle-arb
) :args
335 ((:name |pname|
:type |GLenum|
:direction
:in
)) :return
("handleARB")
336 :category
("ARB_shader_objects") :dlflags
("notlistable") :version
("1.2")
337 :extension nil
:glxsingle
("?") :glxflags
("ignore") :glsflags
("get")
338 :glsopcode
("?") :offset
("?")))
340 (("DeleteObjectARB" delete-object-arb
) :args
341 ((:name |obj|
:type |handleARB|
:direction
:in
)) :return
("void") :category
342 ("ARB_shader_objects") :version
("1.2") :extension nil
:glxropcode
("?")
343 :glxflags
("ignore") :glsopcode
("?") :offset
("?")))