OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix asd file for ASDF 3.3

Browse Source 
Follow convention for secondary system names.

Fix to find the DTD pathname the correct ASDF 2+ way.
This commit is contained in:
Francois-Rene Rideau
2017-03-28 09:47:03 -04:00
committed by Pierre R. Mai
parent 9365c4b93c
commit 6bdee6e7dc
2 changed files with 22 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
cxml.asd
View File

@ -2,11 +2,6 @@
(:use :asdf :cl))
(in-package :cxml-system)
(defclass dummy-cxml-component () ())
(defmethod asdf:component-name ((c dummy-cxml-component))
:cxml)
(progn
(format t "~&;;; Checking for wide character support...")
(force-output)
@ -45,12 +40,9 @@
(let (#+sbcl (*compile-print* nil))
(call-next-method))))
(asdf:defsystem :cxml-xml
(defsystem "cxml/xml"
:default-component-class closure-source-file
:pathname #+asdf2 "xml/"
#-asdf2 (merge-pathnames
"xml/"
(make-pathname :name nil :type nil :defaults *load-truename*))
:pathname "xml/"
:components
((:file "package")
(:file "util" :depends-on ("package"))
@ -75,7 +67,7 @@
(name (concatenate 'string (pathname-name normal) "-utf8")))
(list (make-pathname :name name :defaults normal))))
;; must be an extra method because of common-lisp-controller's :around method
;; must be an extra method because of common-lisp-controller's :around method
(defmethod output-files :around ((operation compile-op) (c utf8dom-file))
(let ((x (call-next-method)))
(setf (slot-value c 'of) (car x))
@ -91,12 +83,9 @@
:closure-common-system))))
(call-next-method)))
(asdf:defsystem :cxml-dom
(defsystem "cxml/dom"
:default-component-class closure-source-file
:pathname #+asdf2 "dom/"
#-asdf2 (merge-pathnames
"dom/"
(make-pathname :name nil :type nil :defaults *load-truename*))
:pathname "dom/"
:components
((:file "package")
(:file rune-impl :pathname "dom-impl" :depends-on ("package"))
@ -106,31 +95,24 @@
#+rune-is-integer
(utf8dom-file utf8-builder :pathname "dom-builder" :depends-on (utf8-impl))
(:file "dom-sax" :depends-on ("package")))
:depends-on (:cxml-xml))
:depends-on ("cxml/xml"))
(asdf:defsystem :cxml-klacks
(defsystem "cxml/klacks"
:default-component-class closure-source-file
:pathname #+asdf2 "klacks/"
#-asdf2 (merge-pathnames
"klacks/"
(make-pathname :name nil :type nil :defaults *load-truename*))
:pathname "klacks/"
:serial t
:components
((:file "package")
(:file "klacks")
(:file "klacks-impl")
(:file "tap-source"))
:depends-on (:cxml-xml))
:depends-on ("cxml/xml"))
(asdf:defsystem :cxml-test
:default-component-class closure-source-file
:pathname #+asdf2 "test/"
#-asdf2 (merge-pathnames
"test/"
(make-pathname :name nil :type nil :defaults *load-truename*))
:components ((:file "domtest") (:file "xmlconf"))
:depends-on (:cxml-xml :cxml-klacks :cxml-dom))
(defsystem "cxml/test"
:default-component-class closure-source-file
:pathname "test/"
:components ((:file "domtest") (:file "xmlconf"))
:depends-on ("cxml/xml" "cxml/klacks" "cxml/dom"))
(asdf:defsystem :cxml
:components ()
:depends-on (:cxml-dom :cxml-klacks #-allegro :cxml-test))
(defsystem "cxml"
:depends-on ("cxml/dom" "cxml/klacks" #-allegro "cxml/test"))

14
xml/catalog.lisp
View File

@ -226,14 +226,12 @@
(warn "ignoring catalog error: ~A" c))))
(defparameter *catalog-dtd*
(let* ((cxml
(slot-value (asdf:find-system :cxml) 'asdf::relative-pathname))
(dtd (merge-pathnames "catalog.dtd" cxml)))
(with-open-file (s dtd :element-type '(unsigned-byte 8))
(let ((bytes
(make-array (file-length s) :element-type '(unsigned-byte 8))))
(read-sequence bytes s)
bytes))))
(let ((dtd (asdf:system-relative-pathname :cxml "catalog.dtd")))
(with-open-file (s dtd :element-type '(unsigned-byte 8))
(let ((bytes
(make-array (file-length s) :element-type '(unsigned-byte 8))))
(read-sequence bytes s)
bytes))))
(defun parse-catalog-file/strict (uri)
(let* ((*catalog* nil)