closure.asd

;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; Encoding: utf-8; -*-

;; commit test
(defpackage :closure-system (:use #:asdf #:cl))
(in-package :closure-system)

;;; Random early Lisp Implementation-specific fix ups:

;(eval-when (compile eval load)
;  (pushnew :DEBUG-CLOSURE *features*))

;;;;
;;;; Optimization levels:
;;;;

;; FIXME: This is not exactly the right place!

;; We choose to make them constants for read-time evaluation, since we
;; want the presence of the :DEBUG-CLOSURE feature to override any
;; (saftey 0) declaration.

(defparameter +optimize-very-fast+
  '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 0)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))

(defparameter +optimize-very-fast-trusted+
  '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 0)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))

(defparameter +optimize-fast+
  '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 1)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))

(defparameter +optimize-normal+
  '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 2)) (speed 1) #+:DEBUG-CLOSURE (debug 3)))

(export '+optimize-very-fast-trusted+)
(export '+optimize-very-fast+)
(export '+optimize-fast+)
(export '+optimize-normal+)

;; Finally declaim normal optimization level
(declaim #.+optimize-normal+)

(defclass closure-source-file (cl-source-file) ())

#+sbcl
(defmethod perform :around ((o compile-op) (s closure-source-file))
  ;; shut up already.  Correctness first.
  (handler-bind ((sb-ext:compiler-note #'muffle-warning))
    (call-next-method)))

;;; Convenience feature: will stop it from breaking into the debugger
;;; under sbcl for full WARNINGs (better to fix the warnings :-).
#+sbcl
(defmethod perform :around ((o compile-op) s)
  (setf (operation-on-failure o) :warn)
  (call-next-method o s))

(defpackage :glisp (:use))
(asdf:defsystem glisp
    :pathname "src/glisp/"
    :default-component-class closure-source-file
    :depends-on (:cxml
		 :closure-html
		 ;; uncomment this if we actually need gray streams:
		 ;; :trivial-gray-streams
		 #+sbcl :sb-bsd-sockets)
    :components
    ((:file dependent
	    :pathname
	    #+CLISP                             "dep-clisp"
	    #+(AND :CMU (NOT SCL))              "dep-cmucl"
	    #+sbcl                              "dep-sbcl"
	    #+SCL                               "dep-scl"
	    #+ALLEGRO                           "dep-acl"
	    #+GCL                               "dep-gcl"
	    #+OPENMCL                           "dep-openmcl"
	    #-(OR sbcl CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!"))
     (:file "package"
	    :depends-on (dependent))
     (:file "util"
	    :depends-on ("package" dependent))
     (:file "match"
	    :depends-on ("package" dependent "util"))))


(asdf:defsystem closure
    :depends-on (:mcclim
                 :glisp
		 :bordeaux-threads
		 :drakma
		 ;;:iolib
		 ;;:iolib/trivial-sockets
		 :zip
		 :flexi-streams
                 :skippy)
    :default-component-class closure-source-file
    :components
    ((:module src
	      :serial t
	      :components 
	      (;;; Patches
	       (:module patches
			:components
			((:file  "clx-patch")))

	       ;; Images
     
	       (:module imagelib
			:serial t
			:components
			((:file "package")
			 (:file "basic")
			 (:file "deflate")
			 (:file "png")
                         (:file "gif")
                         (:file "jpeg")))
	       
	       ;; Early package definitions
	       
	       (:file "defpack")

	       ;; Closure Protocol Declarations first
     
	       (:module protocols
			:serial t
			:components
			((:file "package")
			 (:file "element")
			 (:file "css-support")))

	       ;; Libraries

	       ;; Networking stuff
     
	       (:module net
			:components
			((:file "package"       :depends-on ("url"))
			 ;;(:file "common-parse"  :depends-on ("package"))
			 (:file "url"           :depends-on ())
			 (:file "http"          :depends-on ("package" "url"))
			 ;;	 (:file "ftp"           :depends-on ("package" "url")) ))
			 ))

	       ;; More Random Utilities
     
	       (:module util
			:components
			((:file "character-set")
			 (:file  "xterm")))

	       ;; CSS

	       (:module css
			:depends-on (net  ;needs URL package
				     "defpack")
			:serial t
			:components
			((:file "package")
			 (:file "css-support")
			 (:file "css-parse")
			 (:file "css-selector")
			 (:file "css-setup")
			 (:file "css-properties")))

	       ;; Renderer
     
	       (:module renderer
			:serial t
			:components
			(
			 (:file "package")

			 (:file "pt")

			 (:file "device") ;Declaration of the device abstraction
			 (:file "fonts")	;Font Databases
         
			 (:file "texpara")
			 (:file "images")
			 (:file "x11")
			 (:file "r-struct")
			 (:file "document")
			 (:file "raux")
			 (:file "renderer")
			 (:file "hyphenation")	;Hyphenation of words
			 (:file "clim-draw") ;some drawing "primitives" for the clim device
			 (:file "renderer2")
			 (:file "list-item")     
					; "tables"
			 (:file "clim-device")))

	       ;; HTML
     
	       (:module html
			:components
			((:file "html-style")))

	       ;; GUI

	       (:module gui
			:serial t
			:components
			((:file "gui") (:file "clue-gui")
			 (:file "dce-and-pce") (:file "clue-input")
			 (:file "clim-gui")) )

	       ;; Patches

	       (:file "patch")
	       ))
     
     ;; Some resources
     
     (:module resources
	      :components
	      ((:file "resources")) )))

(in-package :cl-user)

(import '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
	 CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
	 CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
	 CLOSURE-SYSTEM:+OPTIMIZE-FAST+))
(export '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
	  CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
	  CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
	  CLOSURE-SYSTEM:+OPTIMIZE-FAST+))