lib/opengl-arb_shader_subroutine.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_subroutine
   6
   7 (defconstant +active-subroutines+ #x8DE5)
   8 (defconstant +active-subroutine-uniforms+ #x8DE6)
   9 (defconstant +max-subroutines+ #x8DE7)
  10 (defconstant +max-subroutine-uniform-locations+ #x8DE8)
  11 (defconstant +active-subroutine-uniform-locations+ #x8E47)
  12 (defconstant +active-subroutine-max-length+ #x8E48)
  13 (defconstant +active-subroutine-uniform-max-length+ #x8E49)
  14 (defconstant +num-compatible-subroutines+ #x8E4A)
  15 (defconstant +compatible-subroutines+ #x8E4B)
  16 (defconstant +active-subroutines+ #x8DE5)
  17 (defconstant +active-subroutine-uniforms+ #x8DE6)
  18 (defconstant +active-subroutine-uniform-locations+ #x8E47)
  19 (defconstant +active-subroutine-max-length+ #x8E48)
  20 (defconstant +active-subroutine-uniform-max-length+ #x8E49)
  21 (defconstant +max-subroutines+ #x8DE7)
  22 (defconstant +max-subroutine-uniform-locations+ #x8DE8)
  23 (defconstant +num-compatible-subroutines+ #x8E4A)
  24 (defconstant +compatible-subroutines+ #x8E4B)
  25 (defconstant +uniform-size+ #x8A38)
  26 (defconstant +uniform-name-length+ #x8A39)
  27 (defglextfun "GetProgramStageiv" get-program-stage-iv :return "void" :args
  28  ((:name |program| :type |UInt32| :direction :in)
  29   (:name |shadertype| :type |GLenum| :direction :in)
  30   (:name |pname| :type |GLenum| :direction :in)
  31   (:name |values| :type |Int32| :direction :out :array t :size #x1))
  32  :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  33 (defglextfun "GetUniformSubroutineuiv" get-uniform-subroutine-uiv :return
  34  "void" :args
  35  ((:name |shadertype| :type |GLenum| :direction :in)
  36   (:name |location| :type |Int32| :direction :in)
  37   (:name |params| :type |UInt32| :direction :out :array t :size #x1))
  38  :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  39 (defglextfun "UniformSubroutinesuiv" uniform-subroutines-uiv :return "void"
  40  :args
  41  ((:name |shadertype| :type |GLenum| :direction :in)
  42   (:name |count| :type |SizeI| :direction :in)
  43   (:name |indices| :type |UInt32| :direction :in :array t :size count))
  44  :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  45 (defglextfun "GetActiveSubroutineName" get-active-subroutine-name :return
  46  "void" :args
  47  ((:name |program| :type |UInt32| :direction :in)
  48   (:name |shadertype| :type |GLenum| :direction :in)
  49   (:name |index| :type |UInt32| :direction :in)
  50   (:name |bufsize| :type |SizeI| :direction :in)
  51   (:name |length| :type |SizeI| :direction :out :array t :size #x1)
  52   (:name |name| :type |Char| :direction :out :array t :size bufsize))
  53  :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  54 (defglextfun "GetActiveSubroutineUniformName"
  55  get-active-subroutine-uniform-name :return "void" :args
  56  ((:name |program| :type |UInt32| :direction :in)
  57   (:name |shadertype| :type |GLenum| :direction :in)
  58   (:name |index| :type |UInt32| :direction :in)
  59   (:name |bufsize| :type |SizeI| :direction :in)
  60   (:name |length| :type |SizeI| :direction :out :array t :size #x1)
  61   (:name |name| :type |Char| :direction :out :array t :size bufsize))
  62  :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  63 (defglextfun "GetActiveSubroutineUniformiv" get-active-subroutine-uniform-iv
  64  :return "void" :args
  65  ((:name |program| :type |UInt32| :direction :in)
  66   (:name |shadertype| :type |GLenum| :direction :in)
  67   (:name |index| :type |UInt32| :direction :in)
  68   (:name |pname| :type |GLenum| :direction :in)
  69   (:name |values| :type |Int32| :direction :out :array t :size (|pname|)))
  70  :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  71 (defglextfun "GetSubroutineIndex" get-subroutine-index :return "UInt32" :args
  72  ((:name |program| :type |UInt32| :direction :in)
  73   (:name |shadertype| :type |GLenum| :direction :in)
  74   (:name |name| :type |Char| :direction :in :array t))
  75  :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  76 (defglextfun "GetSubroutineUniformLocation" get-subroutine-uniform-location
  77  :return "Int32" :args
  78  ((:name |program| :type |UInt32| :direction :in)
  79   (:name |shadertype| :type |GLenum| :direction :in)
  80   (:name |name| :type |Char| :direction :in :array t))
  81  :category "ARB_shader_subroutine" :deprecated nil :version "1.2")