#!/bin/csh -f
# Copyright 1988 SRI International
source obj3-config
cd $obj3dir
$kclcompile << \eoi >& ! obj3-compile.log
(progn
(load "obj3-config")

(defun do-compile-file (file)
  (let* ((nm (concatenate 'string file ".lsp"))
	 (pn (probe-file nm)))
    (if pn
      (let* ((onm (concatenate 'string file ".o"))
	     (opn (probe-file onm)))
	(if (or (not opn)
		(< (file-write-date onm) (file-write-date nm)))
            (progn
	      ;(princ "Compiling file: ") (princ file) (terpri)
	      (compile-file file)
	      (terpri))
	  (progn (princ "Already up to date: ") (princ file) (terpri)))
	'done)
      (progn (princ "No such lisp file as: ") (princ file) (terpri)
	     'err))))

(princ "==========================================================") (terpri)
(princ "Compiling version: ") (prin1 *version*) (terpri)

(princ "==========================================================") (terpri)
(princ "Compilation environment files") (terpri)
(dolist (f env_file_list)
  (load f))
; load everything
(dolist (f file_list)
  (load (concatenate 'string f ".lsp")))

(princ "==========================================================") (terpri)
(princ "Compiling system files") (terpri)

(dolist (f file_list)
(princ "----------------------------------------------------------") (terpri)
  (do-compile-file f))
'done
)
\eoi