floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle the shader lambda-list (preamble)

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-04-04 23:42:56 +02:00
parent c66e3c62e8
commit a7fd8e4842
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/render/shader/glsl.lisp
View file

@ -104,9 +104,15 @@ the forms comprised of these keywords will be printed in comments."
first first
(walk-1 first)) (walk-list rest))) (walk-1 first)) (walk-list rest)))
(defun glsl-compile (lambda-list body) (defun handle-preamble (form)
(declare (ignore lambda-list)) "Handle a preamble declaration."
(format nil "~%~a~%void main ()~%{~%~a}~%" (format nil "~@[layout (location = ~a) ~]~@[~(~a~) ~]~(~a~) ~(~a~) ~(~a~);~%"
(awhen (member :location form) (cadr it))
(awhen (member :interp form) (cadr it))
(third form) (second form) (glsl-name (first form))))
(defun glsl-compile (lambda-list body)
(format nil "~a~%~%~{~a~}~%void main ()~%{~%~a}~%"
(mapcar #'handle-preamble lambda-list)
(let ((*current-indent* 2)) (let ((*current-indent* 2))
(walk `(progn ,body) *form-handlers* #'default-handler *env*)))) (walk `(progn ,body) *form-handlers* #'default-handler *env*))))