trivial-shell.asd

   1 #|
   2
   3 Author: Gary King
   4
   5 Code forked from Kevin Rosenberg's KMRCL and borrowed from
   6 Alexander Repenning's Apple event code.
   7 |#
   8
   9 (defpackage :trivial-shell-system (:use #:cl #:asdf))
  10 (in-package :trivial-shell-system)
  11
  12 (defsystem trivial-shell
  13   :version "0.1.5"
  14   :author "Gary Warren King <gwking@metabang.com>"
  15   :maintainer "Gary Warren King <gwking@metabang.com>"
  16   :licence "MIT Style License"
  17   :description "OS and Implementation independent access to the shell"
  18   :components ((:module
  19                 "dev"
  20                 :components
  21                 ((:static-file "notes.text")
  22
  23                  (:file "package")
  24                  (:file "definitions"
  25                         :depends-on ("package"))
  26                  (:file "macros"
  27                         :depends-on ("package"))
  28                  (:file "shell"
  29                         :depends-on ("definitions" "macros" #+digitool "mcl"))
  30
  31                  #+allegro
  32                  (:file "allegro" :depends-on ("shell"))
  33                  #+clisp
  34                  (:file "clisp" :depends-on ("shell"))
  35                  #+cmu
  36                  (:file "cmucl" :depends-on ("shell"))
  37                  #+digitool
  38                  (:file "digitool" :depends-on ("shell"))
  39                  #+lispworks
  40                  (:file "lispworks" :depends-on ("shell"))
  41                  #+openmcl
  42                  (:file "openmcl" :depends-on ("shell"))
  43                  #+sbcl
  44                  (:file "sbcl" :depends-on ("shell"))
  45
  46                  #-(or allegro clisp cmu digitool lispworks openmcl sbcl)
  47                  (:file "unsupported")
  48
  49                  #+digitool
  50                  (:module "mcl"
  51                           :components ((:file "eval-apple-script")))))
  52                (:module
  53                 "website"
  54                 :components
  55                 ((:module "source"
  56                           :components ((:static-file "index.lml"))))))
  57   :in-order-to ((test-op (load-op trivial-shell-test)))
  58   :perform (test-op :after (op c)
  59                     (funcall
  60                       (intern (symbol-name '#:run-tests) :lift)
  61                       :config :generic))
  62   :depends-on ())
  63
  64 (defmethod operation-done-p
  65            ((o test-op)
  66             (c (eql (find-system 'trivial-shell))))
  67   (values nil))
  68
  69