add :qualifiers option to input/output (doesn't print correctly yet t…

…hough)
3b · Sep 23, 2017 · 538d508 · 538d508
1 parent 8b65d21
commit 538d508
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/api.lisp b/api.lisp
@@ -321,11 +321,11 @@ uniform \"foo.bar[1].baz\".
   (declare (ignore location))
   `(3bgl-shaders::compile-form '(attribute ,name ,type ,@args)))
 
-(cl:defmacro input (name type &rest args &key  stage location)
+(cl:defmacro input (name type &rest args &key  stage location qualifiers)
   (declare (ignore location stage))
   `(3bgl-shaders::compile-form '(input ,name ,type ,@args)))
 
-(cl:defmacro output (name type &rest args &key stage location)
+(cl:defmacro output (name type &rest args &key stage location qualifiers)
   (declare (ignore location stage))
   `(3bgl-shaders::compile-form '(output ,name ,type ,@args)))
 

diff --git a/types.lisp b/types.lisp
@@ -305,15 +305,17 @@
   nil)
 
 (%glsl-macro 3bgl-glsl::input (%name type &key location (stage t)
-                                      internal)
+                                      internal qualifiers)
   (in/out/uniform/attrib :in %name type
-                         :location location :internal internal :stage stage)
+                         :location location :internal internal :stage stage
+                         :qualifiers qualifiers)
   nil)
 
 (%glsl-macro 3bgl-glsl::output (%name type &key location (stage t)
-                                       internal)
+                                       internal qualifiers)
   (in/out/uniform/attrib :out %name type
-                         :location location :internal internal :stage stage)
+                         :location location :internal internal :stage stage
+                         :qualifiers qualifiers)
   nil)
 
 (%glsl-macro 3bgl-glsl::uniform (%name type &key location (stage t)