| 1 | ;;;; -*- lisp -*- |
| 2 | |
| 3 | (in-package :cl-user) |
| 4 | |
| 5 | (defpackage :parenscript.system |
| 6 | (:use :cl :asdf)) |
| 7 | |
| 8 | (in-package :parenscript.system) |
| 9 | |
| 10 | (defsystem :parenscript |
| 11 | :name "parenscript" |
| 12 | :author "Manuel Odendahl <manuel@bl0rg.net>" |
| 13 | :maintainer "Vladimir Sedach <vsedach@gmail.com>" |
| 14 | :licence "BSD" |
| 15 | :description "Parenscript is a Lispy language that compiles to JavaScript." |
| 16 | :components ((:static-file "parenscript.asd") |
| 17 | (:module :src |
| 18 | :serial t |
| 19 | :components ((:file "package") |
| 20 | (:file "utils") |
| 21 | (:file "namespace") |
| 22 | (:file "parse-lambda-list") |
| 23 | (:file "compiler") |
| 24 | (:file "special-forms") |
| 25 | (:file "printer") |
| 26 | (:file "compilation-interface") |
| 27 | (:file "deprecated-interface") |
| 28 | ;; standard library |
| 29 | (:module :lib |
| 30 | :components ((:file "ps-html") |
| 31 | (:file "ps-macro-lib") |
| 32 | (:file "ps-runtime-lib")) |
| 33 | :depends-on ("compilation-interface"))))) |
| 34 | :depends-on ()) |
| 35 | |
| 36 | (defmethod asdf:perform :after ((op asdf:load-op) (system (eql (asdf:find-system :parenscript)))) |
| 37 | (pushnew :parenscript cl:*features*)) |
| 38 | |
| 39 | (defmethod asdf:perform ((o test-op) (c (eql (find-system :parenscript)))) |
| 40 | (asdf:operate 'asdf:test-op :parenscript.test)) |
| 41 | |
| 42 | (defsystem :parenscript.test |
| 43 | :components ((:module :t |
| 44 | :serial t |
| 45 | :components ((:file "test-package") |
| 46 | (:file "test") |
| 47 | (:file "ref2test") |
| 48 | (:file "reference-tests") |
| 49 | (:file "ps-tests") |
| 50 | (:file "package-system-tests")))) |
| 51 | :depends-on (:parenscript :fiveam :cl-ppcre)) |
| 52 | |
| 53 | (defmethod asdf:perform ((o test-op) (c (eql (find-system :parenscript.test)))) |
| 54 | (asdf:operate 'asdf:load-op :parenscript.test) |
| 55 | (funcall (intern (symbol-name :run-tests) |
| 56 | (find-package :parenscript-test)))) |