dh_clean -k
# Add here commands to install the package into debian/xmlutils.
dh_installdirs $(clc-systems) $(clc-xmlutils) $(doc-dir)
- dh_install debian/xmlutils.asd phtml.cl pxmls[0-3].cl build.cl $(clc-xmlutils)
+ dh_install debian/xmlutils.asd phtml.cl $(wildcard pxml[0-3].cl) build.cl $(clc-xmlutils)
dh_install $(shell echo *.html) $(doc-dir)
dh_link $(clc-xmlutils)/xmlutils.asd $(clc-systems)/xmlutils.asd
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Sep 2002
;;;;
-;;;; $Id: xmlutils.asd,v 1.1 2002/10/15 13:43:24 kevin Exp $
+;;;; $Id: xmlutils.asd,v 1.2 2002/10/15 13:59:37 kevin Exp $
;;;;
;;;; This file, part of cl-xmlutils, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(in-package :asdf)
+#-allegro (require :acl-compat)
+
(defsystem :xmlutils
:name "cl-xmlutils"
:author "Franz, Inc"
(pushnew :xmlutils cl:*features*))
:components
- ((:file "xmlutils")))
+ ((:file "phtml")
+ (:file "pxml0")
+ (:file "pxml1" :depends-on ("pxml0"))
+ (:file "pxml2" :depends-on ("pxml1"))
+ (:file "pxml3" :depends-on ("pxml2"))
+ ))
(when (ignore-errors (find-class 'load-compiled-op))
(defmethod perform :after ((op load-compiled-op) (c (eql (find-system :xmlutils))))
(pushnew :xmlutils cl:*features*)))
+(defmethod source-file-type ((c cl-source-file) (s (eql (find-system :xmlutils))))
+ "cl")
+
;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
;; Suite 330, Boston, MA 02111-1307 USA
;;
-;; $Id: pxml0.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $
+;; $Id: pxml0.cl,v 1.2 2002/10/15 13:59:37 kevin Exp $
;; pxml.cl - parse xml
;;
(in-package :net.xml.parser)
+#-allegro (defvar excl::*dribble-bug-hooks*)
+#-allegro (export '*dribble-bug-hooks* 'excl)
+
(unless (fboundp 'pxml-dribble-bug-hook)
(let ((pxml-version-strings nil))
(defun pxml-dribble-bug-hook (stream-or-string)
(push 'pxml-dribble-bug-hook excl:*dribble-bug-hooks*)))
-(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $")
+(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.2 2002/10/15 13:59:37 kevin Exp $")
(defun xml-char-p (char)
(declare (optimize (speed 3) (safety 1)))