contrib/sb-introspect/sb-introspect.asd

   1 ;;; -*-  Lisp -*-
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; This software is derived from the CMU CL system, which was
   7 ;;;; written at Carnegie Mellon University and released into the
   8 ;;;; public domain. The software is in the public domain and is
   9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  10 ;;;; files for more information.
  11
  12 (defpackage :sb-introspect-system
  13   (:use :asdf :cl))
  14
  15 (in-package :sb-introspect-system)
  16
  17 (defsystem :sb-introspect
  18   :components ((:file "introspect")))
  19
  20 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-introspect))))
  21   (provide 'sb-introspect))
  22
  23 (defmethod perform ((o test-op) (c (eql (find-system :sb-introspect))))
  24   (operate 'load-op :sb-introspect-tests)
  25   (operate 'test-op :sb-introspect-tests))
  26
  27 (defclass plist-file (cl-source-file)
  28   ((source-plist
  29     :initform nil
  30     :initarg :source-plist
  31     :reader plist-file-source-plist)))
  32
  33 (defmethod perform ((op compile-op) (com plist-file))
  34   (with-compilation-unit (:source-plist (plist-file-source-plist com))
  35     (call-next-method)))
  36
  37 (defmethod perform ((op load-op) (com plist-file))
  38   (with-compilation-unit (:source-plist (plist-file-source-plist com))
  39     (call-next-method)))
  40
  41 (defclass source-only-file (cl-source-file)
  42   ())
  43
  44 (defmethod perform ((op compile-op) (com source-only-file)))
  45
  46 (defmethod output-files ((op compile-op) (com source-only-file))
  47   (list (component-pathname com)))
  48
  49 (defsystem :sb-introspect-tests
  50   :depends-on (:sb-introspect :sb-rt)
  51   :components ((:file "xref-test-data")
  52                (:file "xref-test" :depends-on ("xref-test-data"))
  53                (:plist-file "test" :source-plist (:test-outer "OUT"))
  54                (:source-only-file "load-test")
  55                (:file "test-driver" :depends-on ("test" "load-test"))))
  56
  57 (defmethod perform ((op test-op) (com (eql (find-system :sb-introspect-tests))))
  58   ;; N.b. At least DEFINITION-SOURCE-PLIST.1 assumes that CWD is the
  59   ;; contrib/sb-introspect directory which is true for when this is
  60   ;; implicitly run via make-target-contribs.sh -- but not when this
  61   ;; is executed manually.
  62   (let ((*default-pathname-defaults*
  63          (make-pathname :directory (pathname-directory
  64                                     '#.(or *compile-file-pathname*
  65                                            *load-pathname*)))))
  66     (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
  67         (error "~S failed" 'test-op))))