;;; -*- Mode: LISP; Package: :cl-user; BASE: 10; Syntax: ANSI-Common-Lisp; -*-
;;;  Time-stamp: <05/06/19 18:27:48 madhu>
;;;; Touched:<19-Oct-03 02:30:58 IST, madhu>
;;;; vim :ft=lisp
(in-package "CL-USER")

(defparameter *simlab-base-directory* (truename "/home/madhu/cmu/simlab/")
  #+nil #p"c:/madhu/proj/simlab"
  #+nil (make-pathname :name nil :type nil :version nil :defaults (parse-namestring *load-truename*)))

(defparameter *simlab-binary-directory*
  #+cmu  #p"/var/local/build/simlab/binary-cmucl/"
  #+clisp  (binary-directory *simlab-base-directory*)
  #+nil(make-pathname :directory (append (pathname-directory *simlab-base-directory*) (list (user:%fasldir "binary")))))


(defvar make::*simlab-srcdir* 		; Excise this
  (make-pathname :name nil :version nil :type nil
		 :directory
		 (append (pathname-directory *simlab-base-directory*)
			 (list "registry"))))
		 

(defun root (root &rest names)
  (make-pathname :name nil :version nil :type nil
		 :directory (append (pathname-directory root) names)
		 :defaults root))


(mk:defsystem :basic-support
    :source-pathname (root *simlab-base-directory* "utilities" "lisp")
    :binary-pathname (root *simlab-binary-directory* "utilities" "lisp")
    :source-extension "lisp"
    :components ("basic-support"))

(mk:defsystem :weyl
    :source-pathname (root *simlab-base-directory* "weyl" "src")
    :binary-pathname (root *simlab-binary-directory* "weyl" "src")
    :source-extension "lisp"
    :depends-on (:basic-support)
    :components
    ((:file "packages" :load-only t)
     (:file "maintenance" :load-only t)
     (:file "lisp-support" :depends-on ("packages"))
     (:file "domain-support" :depends-on ("lisp-support"))
     ;; All defclass definitions are included in this module.  This
     ;; eliminates some painful dependencies.
     (:module classes
	      :source-pathname ""
	      :depends-on ("domain-support")
	      :components ((:file "algebraic-domains")
			   (:file "space-classes")
			   (:file "general-classes")))
     (:file "avl" :depends-on (classes))
     (:file "lisp-numbers" :depends-on (classes))
     (:file "sets" :depends-on (classes))
     (:file "morphisms" :depends-on (classes "avl"))
     (:file "quotient-fields" :depends-on (classes))
     (:module general
	      :source-pathname ""
	      :depends-on (classes)
	      :components ((:file "general")
			   (:file "fourier")))
     (:file "functions" :depends-on (classes general))
     (:file "direct-sums" :depends-on (classes))
     (:module numbers
	      :source-pathname ""
	      :depends-on (classes)
	      :components ((:file "bigfloat")
			   (:file "numbers" :depends-on ("bigfloat"))
			   (:file "gfp")))
     (:module polynomials
	      :source-pathname ""
	      :depends-on (classes)
	      :components
	      ((:file "poly-tools")
	       (:file "mpolynomial" :depends-on ("poly-tools"))
	       (:file "upolynomial" :depends-on ("poly-tools"))
	       (:file "epolynomial" :depends-on ("poly-tools"))
	       (:file "sparsegcd" :depends-on ("mpolynomial"))
	       (:file "grobner" :depends-on ("mpolynomial" "epolynomial"))))
     (:file "tpower" :depends-on (polynomials))
     (:file "taylor" :depends-on (tpower))
     (:file "rational-functions" :depends-on (polynomials "quotient-fields"))
     (:file "differential-domains" :depends-on (polynomials))
     (:file "algebraic-extension" :depends-on (polynomials))

     (:module vector-spaces
	      :source-pathname ""
	      :depends-on ("sets")
	      :components
	      ((:file "vector")
	       (:file "projective-space" :depends-on ("vector"))
	       (:file "quaternions" :depends-on ("vector"))))
     (:file "matrix" :depends-on ("morphisms"))
     (:file "topology" :depends-on ("avl" polynomials vector-spaces))
     ;; Really on space-classes
     (:file "funct-spaces" :depends-on (classes vector-spaces))
     (:file "mesh" :depends-on ("topology"))

     ;; patch (ugh!)
     (:private-file #.(namestring
		       (merge-pathnames "patch.lisp"
					*simlab-base-directory* )))     )

    :finally-do (progn
		  (pushnew :weyl *features*)
		  (funcall (intern "INITIALIZE-CONTEXTS" 'weyli))
		  (funcall (intern "RESET-DOMAINS" 'weyli))
		  (make::print-system-banner 'weyl t)))


(mk:defsystem :gfx
    :source-extension "lisp"
    :source-pathname (root *simlab-base-directory* "gfx" "src")
    :binary-pathname (root *simlab-binary-directory* "gfx" "src")
    :depends-on (:weyl)
    :finally-do (progn
		  (pushnew :gfx *features*)
		  (make::print-system-banner 'gfx t))
    :components
    (:serial
     (:file "version")
     "package" "patch1" "patch2"	; madhu, added files
     #-apple (:file "new-windows")
     (:file "algebra-utils")
     (:file "geom-utils")
     (:file "transforms")
     #-apple (:file "basic-graphics" :depends-on ("new-windows"))
     (:file "views")
     (:file "rendering" :depends-on ("basic-graphics"))
     #+APPLE (:file "drawmac")
     "draw-topology"			; madhu, added file
     (:file "init" :depends-on ("rendering")) ))


#||
(mk:load-system :basic-support  :compile-during-load t)
(mk:load-system :weyl :minimal-load nil :compile-during-load t)
(require 'clx)
(mk:load-system :gfx :minimal-load t :compile-during-load t)

(import 'weyli::*simlab-process*)

(basic-graphics:init-gfx)

(defvar *simlab-process* nil)
(unless *simlab-process* 
  (setq *simlab-process*
	(mp:make-process #'(lambda () (basic-graphics::mainloop))
			 :name "Simlab refresher")))
(setf weyli::*delaunay* nil)
(weyli::look weyli::*mesh* :position '(0 0 1000))

||#