build-ecl-examples.lisp

   1 (require '#:cmp)
   2 (require '#:asdf)
   3
   4 (proclaim '(optimize (debug 3)))
   5
   6 (defparameter *examples-defaults*  (merge-pathnames "examples/" *load-truename*))
   7 (format t "Making examples in ~S~%" *examples-defaults*)
   8
   9 (defvar *examples* '("simple" "shader" "shader-arb" "triangle" "vbo" "gears" "keytest" "listmodes"))
  10
  11 (let ((load-library-lisp (make-pathname :name "load-library" :type "lisp" :defaults *examples-defaults*))
  12       (load-library-object (make-pathname :name "load-library" :type "o" :defaults *examples-defaults*)))
  13   (compile-file load-library-lisp :system-p t :verbose t)
  14
  15   (dolist (example *examples*)
  16     (let ((lisp-file (make-pathname :name example :type "lisp" :defaults *examples-defaults*))
  17           (object-file (make-pathname :name example :type "o" :defaults *examples-defaults*))
  18           (exe-file (make-pathname :name example :type #-windows nil #+windows "exe" :defaults *examples-defaults*)))
  19       (compile-file lisp-file :system-p t :verbose t)
  20       (c:build-program exe-file :lisp-files (list load-library-object object-file)))))