source: project/release/4/vandusen/trunk/vandusen.setup @ 21101

(define version (call-with-input-file "VERSION" read-line))

;; these macros are stolen from hato

(define-syntax compile-module
  (er-macro-transformer
   (lambda (expr rename compare)
     (let* ((module (cadr expr))
            (mod-str (symbol->string module))
            (mod-src (string-append mod-str ".scm"))
            (mod-import (string-append mod-str ".import.scm"))
            (mod-so (string-append mod-str ".so"))
            (mod-import-so (string-append mod-str ".import.so"))
            (_begin (rename 'begin))
            (_make (rename 'make))
            (_compile (rename 'compile))
            (_install-extension (rename 'install-extension)))
       `(,_begin 
         (,_make ((,mod-so (,mod-src)
                           (,_begin
                            (,_compile -s -O2 -j ,module ,mod-src)
                            (,_compile -s -O2 ,mod-import)))))
         (,_install-extension
          ',module
          '(,mod-so ,mod-import-so)
          '((version ,version))))))))

(define-syntax compile-executable
  (er-macro-transformer
   (lambda (expr rename compare)
     (let* ((executable (cadr expr))
            (exec-str (symbol->string (caddr expr)))
            (exec-src (string-append (symbol->string (cadr expr)) ".scm"))
            (_begin (rename 'begin))
            (_make (rename 'make))
            (_compile (rename 'compile))
            (_install-program (rename 'install-program)))
       `(,_begin
         (,_make ((,exec-str (,exec-src)
                             (,_begin
                              (,_compile -o ,exec-str -O2 -d2 ,exec-src)))))
         (,_install-program
          ',executable
          '(,exec-str)
          '((version ,version))))))))


(compile-module vandusen)
(compile-module vandusen-doc)
(compile-module vandusen-eval)
(compile-module vandusen-remote)
(compile-module vandusen-random-talk)
(compile-module vandusen-poll)
(compile-module vandusen-control)
(compile-module vandusen-pager)
(compile-executable vandusen-cmd vandusen)