Update of /project/cxml/cvsroot/cxml In directory clnet:/tmp/cvs-serv31965 Added Files: runes.asd Log Message: runes.asd --- /project/cxml/cvsroot/cxml/runes.asd 2007/05/26 22:05:14 NONE +++ /project/cxml/cvsroot/cxml/runes.asd 2007/05/26 22:05:14 1.1 ;;; XXX Die vielen verschiedenen Systeme hier sollten vielleicht ;;; Module eines grossen Systems CXML werden? (defpackage :runes-system (:use :asdf :cl) (:export #:*utf8-runes-readtable*)) (in-package :runes-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 (and (< x char-code-limit) (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 :runes :default-component-class closure-source-file :pathname (merge-pathnames "runes/" (make-pathname :name nil :type nil :defaults *load-truename*)) :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") (:file "encodings") (:file "encodings-data") (:file "xstream") (:file "ystream")))