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")
  82 (make-extension-loader |ARB_shader_subroutine|
  83  (("GetProgramStageiv" get-program-stage-iv :return "void" :args
  84    ((:name |program| :type |UInt32| :direction :in)
  85     (:name |shadertype| :type |GLenum| :direction :in)
  86     (:name |pname| :type |GLenum| :direction :in)
  87     (:name |values| :type |Int32| :direction :out :array t :size #x1))
  88    :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  89   ("GetUniformSubroutineuiv" get-uniform-subroutine-uiv :return "void" :args
  90    ((:name |shadertype| :type |GLenum| :direction :in)
  91     (:name |location| :type |Int32| :direction :in)
  92     (:name |params| :type |UInt32| :direction :out :array t :size #x1))
  93    :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  94   ("UniformSubroutinesuiv" uniform-subroutines-uiv :return "void" :args
  95    ((:name |shadertype| :type |GLenum| :direction :in)
  96     (:name |count| :type |SizeI| :direction :in)
  97     (:name |indices| :type |UInt32| :direction :in :array t :size count))
  98    :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
  99   ("GetActiveSubroutineName" get-active-subroutine-name :return "void" :args
 100    ((:name |program| :type |UInt32| :direction :in)
 101     (:name |shadertype| :type |GLenum| :direction :in)
 102     (:name |index| :type |UInt32| :direction :in)
 103     (:name |bufsize| :type |SizeI| :direction :in)
 104     (:name |length| :type |SizeI| :direction :out :array t :size #x1)
 105     (:name |name| :type |Char| :direction :out :array t :size bufsize))
 106    :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
 107   ("GetActiveSubroutineUniformName" get-active-subroutine-uniform-name :return
 108    "void" :args
 109    ((:name |program| :type |UInt32| :direction :in)
 110     (:name |shadertype| :type |GLenum| :direction :in)
 111     (:name |index| :type |UInt32| :direction :in)
 112     (:name |bufsize| :type |SizeI| :direction :in)
 113     (:name |length| :type |SizeI| :direction :out :array t :size #x1)
 114     (:name |name| :type |Char| :direction :out :array t :size bufsize))
 115    :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
 116   ("GetActiveSubroutineUniformiv" get-active-subroutine-uniform-iv :return
 117    "void" :args
 118    ((:name |program| :type |UInt32| :direction :in)
 119     (:name |shadertype| :type |GLenum| :direction :in)
 120     (:name |index| :type |UInt32| :direction :in)
 121     (:name |pname| :type |GLenum| :direction :in)
 122     (:name |values| :type |Int32| :direction :out :array t :size (|pname|)))
 123    :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
 124   ("GetSubroutineIndex" get-subroutine-index :return "UInt32" :args
 125    ((:name |program| :type |UInt32| :direction :in)
 126     (:name |shadertype| :type |GLenum| :direction :in)
 127     (:name |name| :type |Char| :direction :in :array t))
 128    :category "ARB_shader_subroutine" :deprecated nil :version "1.2")
 129   ("GetSubroutineUniformLocation" get-subroutine-uniform-location :return
 130    "Int32" :args
 131    ((:name |program| :type |UInt32| :direction :in)
 132     (:name |shadertype| :type |GLenum| :direction :in)
 133     (:name |name| :type |Char| :direction :in :array t))
 134    :category "ARB_shader_subroutine" :deprecated nil :version "1.2")))