[cxml-cvs] CVS closure-common

[dlichteblau]

Update of /project/cxml/cvsroot/closure-common
In directory clnet:/tmp/cvs-serv20249

Added Files:
	closure-common.asd 
Log Message:
added missing .asd file



--- /project/cxml/cvsroot/closure-common/closure-common.asd	2007/10/09 13:08:49	NONE
+++ /project/cxml/cvsroot/closure-common/closure-common.asd	2007/10/09 13:08:49	1.1
(defpackage :closure-common-system
  (:use :asdf :cl)
  (:export #:*utf8-runes-readtable*))

(in-package :closure-common-system)

(defvar *utf8-runes-readtable*)

(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))
    (let (#+sbcl (*compile-print* nil))
      (call-next-method))))

#-(or rune-is-character rune-is-integer)
(progn
  (format t "~&;;; Checking for wide character support...")
  (force-output)
  (pushnew (dotimes (x 65536
                      (progn
                        (format t " ok, characters have at least 16 bits.~%")
                        :rune-is-character))
             (unless (or (<= #xD800 x #xDFFF)
			 (and (< x char-code-limit) (code-char x)))
	       (print (code-char x))
               (format t " no, reverting to octet strings.~%")
               (return :rune-is-integer)))
           *features*))

#-rune-is-character
(format t "~&;;; Building Closure with (UNSIGNED-BYTE 16) RUNES~%")

#+rune-is-character
(format t "~&;;; Building Closure with CHARACTER RUNES~%") 

(defsystem :closure-common
    :default-component-class closure-source-file
    :serial t
    :components
    ((:file "package")
     (:file "definline")
     (:file runes
            :pathname
             #-rune-is-character "runes"
             #+rune-is-character "characters")
     #+rune-is-integer (:file "utf8")
     (:file "syntax")
     #-x&y-streams-are-stream (:file "encodings")
     #-x&y-streams-are-stream (:file "encodings-data")
     #-x&y-streams-are-stream (:file "xstream")
     #-x&y-streams-are-stream (:file "ystream")
     #+x&y-streams-are-stream (:file #+scl "stream-scl")
     )
    :depends-on (#-scl :trivial-gray-streams))