;; -*- mode: common-lisp; package: user -*-
;;
;; defsys.cl for ray-trace example
;;

;; Defsystem is a semi-portable tool for describing how to compile and build a multi-file
;; software system.  You can use this simple defsystem, or else just compile and load the
;; several files in order.

(in-package :user)

(defsystem :ray-trace
    (:default-pathname #.*load-pathname*)
  (:serial
   "color"
   "dib"
   "ppm"
   "raytrace"
   ))

(format t "~%;; To compile and load the ray tracing application, ~
execute these forms.~%~s~%~s~%"
	'(excl:compile-system :ray-trace)
	'(excl:load-system    :ray-trace))

(defsystem :xml-generator
    (:default-pathname #.*load-pathname*)
  (:serial
   "xml-generator"
   ))

(defsystem :web-ray-trace
    (:default-pathname #.*load-pathname*)
  (:serial
   :ray-trace
   :xml-generator
   "webpage"
   ))

(format t "~%;; To compile and load the ray tracing application with web control, ~
execute these forms.~%~s~%~s~%To start the server, execute ~s.~%~
The port defaults to 8097.~%"
	'(excl:compile-system :web-ray-trace)
	'(excl:load-system    :web-ray-trace)
	'(start-server [port]))