lib/opengl-arb_shader_objects.lisp

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