/[cl-store]/cl-store/cl-store-xml.noasd
ViewVC logotype

Contents of /cl-store/cl-store-xml.noasd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Thu Dec 2 10:31:54 2004 UTC (9 years, 4 months ago) by sross
Branch: MAIN
CVS Tags: v0-5, HEAD
Changelog 2004-12-02
1 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;; See the file LICENCE for licence information.
3
4 ;; THIS BACKEND IS DEPRECATED AND WILL NOT WORK.
5 (in-package #:cl-user)
6
7 (defpackage #:cl-store-xml.system
8 (:use #:cl #:asdf))
9
10 (in-package #:cl-store-xml.system)
11
12 (defclass non-required-file (cl-source-file) ()
13 (:documentation
14 "File containing implementation dependent code which may or may not be there."))
15
16 (defun lisp-system-shortname ()
17 #+mcl mcl #+lispworks :lispworks #+cmu :cmucl #+clisp :clisp #+sbcl :sbcl)
18
19 (defmethod component-pathname ((component non-required-file))
20 (let ((pathname (call-next-method))
21 (name (string-downcase (lisp-system-shortname))))
22 (merge-pathnames
23 (make-pathname :directory (list :relative name))
24 pathname)))
25
26 (defmethod perform ((op compile-op) (component non-required-file))
27 (when (probe-file (component-pathname component))
28 (call-next-method)))
29
30 (defmethod perform ((op load-op) (component non-required-file))
31 (when (probe-file (component-pathname component))
32 (call-next-method)))
33
34 (defmethod operation-done-p ((o operation) (c non-required-file))
35 (when (probe-file (component-pathname c))
36 (call-next-method)))
37
38
39 (defsystem cl-store-xml
40 :name "CL-STORE-XML"
41 :author "Sean Ross <sdr@jhb.ucs.co.za>"
42 :maintainer "Sean Ross <sdr@jhb.ucs.co.za>"
43 :description "Xml Backend for cl-store"
44 :version "0.2.9"
45 :licence "MIT"
46 :components ((:file "xml-package")
47 (:file "xml-backend" :depends-on ("xml-package"))
48 (:non-required-file "custom-xml" :depends-on ("xml-backend")))
49 :depends-on (:cl-store :xmls))
50
51 (defmethod perform :after ((o load-op) (c (eql (find-system :cl-store-xml))))
52 (provide 'cl-store-xml))
53
54 (defmethod perform ((op test-op) (sys (eql (find-system :cl-store-xml))))
55 (oos 'load-op :cl-store-xml-tests)
56 (oos 'test-op :cl-store-xml-tests))
57
58 (defsystem cl-store-xml-tests
59 :components ((:file "xml-tests"))
60 :depends-on (cl-store-tests cl-store-xml))
61
62 (defmethod perform ((op test-op)
63 (sys (eql (find-system :cl-store-xml-tests))))
64 (or (funcall (find-symbol "RUN-TESTS" "CL-STORE-TESTS")
65 (symbol-value (find-symbol "*XML-BACKEND*" "CL-STORE-XML")))
66 (error "Test-op Failed.")))
67
68
69 ;; EOF

  ViewVC Help
Powered by ViewVC 1.1.5