lib/opengl-arb_shader_objects.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; ARB_shader_objects
   5
   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)
  40 (defglextfun
  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")))
  49 (defglextfun
  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")))
  57 (defglextfun
  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")))
  65 (defglextfun
  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")))
  77 (defglextfun
  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")))
  84 (defglextfun
  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")))
  93 (defglextfun
  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 ("?")))
 102 (defglextfun
 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 ("?")))
 110 (defglextfun
 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 ("?")))
 118 (defglextfun
 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")))
 127 (defglextfun
 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")))
 136 (defglextfun
 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")))
 145 (defglextfun
 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
 152   ("Uniform4iv")))
 153 (defglextfun
 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
 160   ("Uniform3iv")))
 161 (defglextfun
 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
 168   ("Uniform2iv")))
 169 (defglextfun
 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
 176   ("Uniform1iv")))
 177 (defglextfun
 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
 184   ("Uniform4fv")))
 185 (defglextfun
 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
 192   ("Uniform3fv")))
 193 (defglextfun
 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
 200   ("Uniform2fv")))
 201 (defglextfun
 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
 208   ("Uniform1fv")))
 209 (defglextfun
 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
 218   ("Uniform4i")))
 219 (defglextfun
 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
 227   ("Uniform3i")))
 228 (defglextfun
 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
 235   ("Uniform2i")))
 236 (defglextfun
 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
 242   ("Uniform1i")))
 243 (defglextfun
 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
 252   ("Uniform4f")))
 253 (defglextfun
 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
 261   ("Uniform3f")))
 262 (defglextfun
 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
 269   ("Uniform2f")))
 270 (defglextfun
 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
 276   ("Uniform1f")))
 277 (defglextfun
 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")))
 283 (defglextfun
 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")))
 288 (defglextfun
 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")))
 293 (defglextfun
 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
 299   ("AttachShader")))
 300 (defglextfun
 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
 304   ("CreateProgram")))
 305 (defglextfun
 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
 310   ("CompileShader")))
 311 (defglextfun
 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
 319   ("ShaderSource")))
 320 (defglextfun
 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
 325   ("CreateShader")))
 326 (defglextfun
 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
 332   ("DetachShader")))
 333 (defglextfun
 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 ("?")))
 339 (defglextfun
 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 ("?")))