#!/usr/local/bin/bigloo

(define *libdir*       (cadr (command-line)))
(define *make-lib.scm* (string-append *libdir* "/" "make-lib.scm"))

(let* ((port    (open-input-file *make-lib.scm*))
       (decl    (read port))
       (modules (append (map (lambda (x) (list 'dummy x))
			     '("bool" "bigloo" "ref" "sys" "obj" "iparsing"
                               "unix"))
			(cddr (caddr decl)))))
   (close-input-port port)
   (print ";; !!! generated file, don't edit !!!")
   (print ";; ==================================")
   (newline)
   (print "(module lib_module_list (export *lib-module-list*))")
   (display "(define *lib-module-list* '(")
   (for-each (lambda (m)
		(write (prefix (basename (cadr m))))
		(write-char #\space))
	     modules)
   (print "))")
   (newline))
   
