2691084809
avoid name conflicts with functions from "glisp" of the same name. - Renamed defsubst to definline for the same reason. (This is a commit to the cxml repository, not the main closure repository. If you don't want cxml commit messages on the closure list, please complain to me and I'll change it.)
113 lines
4.2 KiB
Common Lisp
113 lines
4.2 KiB
Common Lisp
;;; XXX Die vielen verschiedenen Systeme hier sollten vielleicht
|
|
;;; Module eines grossen Systems CXML werden?
|
|
|
|
(defpackage :cxml-system
|
|
(:use :asdf :cl))
|
|
(in-package :cxml-system)
|
|
|
|
;; XXX das sollte natuerlich erst beim laden stattfinden
|
|
#+cmu
|
|
(require :gray-streams)
|
|
|
|
(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-octet)
|
|
(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-octet)))
|
|
*features*))
|
|
|
|
#-rune-is-character
|
|
(format t "~&;;; Building cxml with (UNSIGNED-BYTE 16) RUNES~%")
|
|
|
|
#+rune-is-character
|
|
(format t "~&;;; Building cxml with CHARACTER RUNES~%")
|
|
|
|
(defsystem runes
|
|
:default-component-class closure-source-file
|
|
:pathname (merge-pathnames
|
|
"runes/"
|
|
(make-pathname :name nil :type nil :defaults *load-truename*))
|
|
:components
|
|
((:file "package")
|
|
(:file dependent
|
|
:pathname
|
|
#+CLISP "dep-clisp"
|
|
#+(AND :CMU (NOT :PTHREAD)) "dep-cmucl"
|
|
#+sbcl "dep-sbcl"
|
|
#+(AND :CMU :PTHREAD) "dep-cmucl-dtc"
|
|
#+(and allegro-version>= (version>= 5.0)) "dep-acl5"
|
|
#+(and allegro-version>= (not (version>= 5.0))) "dep-acl"
|
|
#+openmcl "dep-openmcl"
|
|
#-(or sbcl CLISP CMU allegro openmcl) #.(error "Configure!")
|
|
:depends-on ("package"))
|
|
(:file runes
|
|
:pathname
|
|
#-rune-is-character "runes"
|
|
#+rune-is-character "characters"
|
|
:depends-on ("package" dependent))
|
|
(:file "syntax" :depends-on ("package" dependent runes))
|
|
(:file "encodings" :depends-on ("package"))
|
|
(:file "encodings-data" :depends-on ("package" "encodings"))
|
|
(:file "xstream"
|
|
:depends-on ("package" dependent "syntax" "encodings-data"))))
|
|
|
|
(asdf:defsystem :xml
|
|
:default-component-class closure-source-file
|
|
:pathname (merge-pathnames
|
|
"xml/"
|
|
(make-pathname :name nil :type nil :defaults *load-truename*))
|
|
:components
|
|
((:file "package")
|
|
(:file "util" :depends-on ("package"))
|
|
(:file "sax-handler")
|
|
(:file "characters" :depends-on ("package"))
|
|
(:file "xml-name-rune-p" :depends-on ("package"))
|
|
(:file "split-sequence" :depends-on ("package"))
|
|
(:file "xml-parse" :depends-on ("package" "util" "sax-handler" "split-sequence" "xml-name-rune-p" "characters"))
|
|
(:file "characters" :depends-on ("package"))
|
|
(:file "unparse" :depends-on ("xml-parse"))
|
|
(:file "xmls-compat" :depends-on ("xml-parse"))
|
|
(:file "recoder" :depends-on ("xml-parse"))
|
|
(:file "catalog" :depends-on ("xml-parse"))
|
|
(:file "sax-proxy" :depends-on ("xml-parse")))
|
|
:depends-on (:runes :puri))
|
|
|
|
(asdf:defsystem :dom
|
|
:default-component-class closure-source-file
|
|
:pathname (merge-pathnames
|
|
"dom/"
|
|
(make-pathname :name nil :type nil :defaults *load-truename*))
|
|
:components
|
|
((:file "package")
|
|
(:file "dom-impl" :depends-on ("package"))
|
|
(:file "dom-builder" :depends-on ("dom-impl"))
|
|
(:file "unparse" :depends-on ("package"))
|
|
(:file "simple-dom" :depends-on ("package"))
|
|
(:file "dom-sax" :depends-on ("package")))
|
|
:depends-on (:xml))
|
|
|
|
(asdf:defsystem :cxml-test
|
|
:default-component-class closure-source-file
|
|
:pathname (merge-pathnames
|
|
"test/"
|
|
(make-pathname :name nil :type nil :defaults *load-truename*))
|
|
:components ((:file "domtest") (:file "xmlconf"))
|
|
:depends-on (:xml :dom))
|
|
|
|
(asdf:defsystem :cxml :components () :depends-on (:dom :cxml-test))
|