;;; GL
;;;
;;; Copyright (C) 2004 Philippe Brochard (hocwp@free.fr)
;;;
;;; #date#: Tue Feb  1 20:19:15 2005
;;;
;;; The authors grant you the rights to distribute
;;; and use this software as governed by the terms
;;; of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html),
;;; known as the LLGPL.


(load "../../ah2cl.lisp")


(ah2cl:parse-file "/usr/include/GL/gl.h"
		 :file-out "res-gl.lisp"
		 :ignored-keyword '("GLAPI" "GLAPIENTRY" "const" "ENTRY")
		 :ignore-lines '("glEnableTraceMESA" "glDisableTraceMESA"
				 "glNewTraceMESA" "glEndTraceMESA"
				 "glTraceAssertAttribMESA" "glTraceCommentMESA"
				 "glTraceTextureMESA" "glTraceListMESA"
				 "glTracePointerMESA" "glTracePointerRangeMESA")
		 :write-comment nil :write-original t :write-ignored t
		 :package-definition-type :append :package-name :gl
		 :library "libGL.so"
		 :language :stdc)


(ah2cl:parse-file "/usr/include/GL/glu.h"
		 :file-out "res-glu.lisp"
		 :ignored-keyword '("GLAPI" "GLAPIENTRY" "const" "extern" ("1.0e150" "1.0d150"))
		 :ignore-lines '("class")
		 :write-comment nil :write-original t :write-ignored t
		 :package-definition-type :append :package-name :gl
		 :library "libGLU.so"
		 :language :stdc)


(ah2cl:parse-file "/usr/include/GL/freeglut_std.h"
		 :file-out "res-glut.lisp"
		 :ignored-keyword '("FGAPI" "FGAPIENTRY" "ENTRY" "extern" "const")
		 :write-comment nil :write-original t :write-ignored t
		 :package-definition-type :append :package-name :gl
		 :library "libglut.so"
		 :language :stdc)


(ah2cl:parse-file "/usr/include/GL/freeglut_ext.h"
		 :file-out "res-glut-ext.lisp"
		 :ignored-keyword '("FGAPI" "FGAPIENTRY" "ENTRY" "extern" "const")
		 :write-comment nil :write-original t :write-ignored t
		 :package-definition-type :append :package-name :gl
		 :library "libglut.so"
		 :language :stdc)


(ah2cl:parse-file "/usr/include/GL/gl.h"
		 :file-out "res-gl-uffi.lisp"
		 :ignored-keyword '("GLAPI" "GLAPIENTRY" "const" "ENTRY")
		 :ignore-lines '("glEnableTraceMESA" "glDisableTraceMESA"
				 "glNewTraceMESA" "glEndTraceMESA"
				 "glTraceAssertAttribMESA" "glTraceCommentMESA"
				 "glTraceTextureMESA" "glTraceListMESA"
				 "glTracePointerMESA" "glTracePointerRangeMESA")
		 :write-comment nil :write-original t :write-ignored t
		 :package-definition-type :append :package-name :gl
		 :library "/usr/lib/libGL.so"
		 :language :stdc
		 :backend :uffi)


(ah2cl:parse-file "/usr/include/GL/glu.h"
		 :file-out "res-glu-uffi.lisp"
		 :ignored-keyword '("GLAPI" "GLAPIENTRY" "const" "extern" ("1.0e150" "1.0d150"))
		 :ignore-lines '("class")
		 :write-comment nil :write-original t :write-ignored t
		 :package-definition-type :append :package-name :gl
		 :library "/usr/lib/libGLU.so"
		 :language :stdc
		 :backend :uffi)


(ah2cl:parse-file "/usr/include/GL/freeglut_std.h"
		 :file-out "res-glut-uffi.lisp"
		 :ignored-keyword '("FGAPI" "FGAPIENTRY" "ENTRY" "extern" "const")
		 :write-comment nil :write-original t :write-ignored t
		 :package-definition-type :append :package-name :gl
		 :library "/usr/lib/libglut.so"
		 :language :stdc
		 :backend :uffi)


(ah2cl:parse-file "/usr/include/GL/freeglut_ext.h"
		 :file-out "res-glut-ext-uffi.lisp"
		 :ignored-keyword '("FGAPI" "FGAPIENTRY" "ENTRY" "extern" "const")
		 :write-comment nil :write-original t :write-ignored t
		 :package-definition-type :append :package-name :gl
		 :library "/usr/lib/libglut.so"
		 :language :stdc
		 :backend :uffi)


(quit)