| 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 | :version "0" |
| 14 | :maintainer "Vladimir Sedach <vsedach@gmail.com>" |
| 15 | :licence "BSD" |
| 16 | :description "Parenscript is a lispy language that compiles to Javascript." |
| 17 | :components ((:static-file "parenscript.asd") |
| 18 | (:module :src |
| 19 | :components ((:file "package") |
| 20 | (:file "utils" :depends-on ("package")) |
| 21 | (:file "namespace" :depends-on ("package")) |
| 22 | (:file "parse-lambda-list" :depends-on ("package")) |
| 23 | (:file "parser" :depends-on ("namespace")) |
| 24 | (:file "js-macrology" :depends-on ("parser")) |
| 25 | (:file "ps-macrology" :depends-on ("js-macrology" "parse-lambda-list")) |
| 26 | (:file "js-translation" :depends-on ("ps-macrology")) |
| 27 | ; (:file "js-ugly-translation" :depends-on ("js-translation")) |
| 28 | (:file "compilation-interface" :depends-on ("package" "js-translation")); "js-ugly-translation")) |
| 29 | (:file "deprecated-interface" :depends-on ("compilation-interface")) |
| 30 | ;; standard library |
| 31 | (:module :lib |
| 32 | :components ((:static-file "functional.lisp") |
| 33 | (:file "js-html") |
| 34 | (:file "css" ) |
| 35 | (:file "js-utils")) |
| 36 | :depends-on ("compilation-interface"))))) |
| 37 | :depends-on ()) |
| 38 | |
| 39 | (defmethod asdf:perform :after ((op asdf:load-op) (system (eql (asdf:find-system :parenscript)))) |
| 40 | (pushnew :parenscript cl:*features*)) |
| 41 | |
| 42 | (defmethod asdf:perform ((o test-op) (c (eql (find-system :parenscript)))) |
| 43 | (asdf:operate 'asdf:test-op :parenscript.test)) |
| 44 | |
| 45 | (defsystem :parenscript.test |
| 46 | :depends-on (:parenscript :fiveam :cl-ppcre) |
| 47 | :components ((:module :t |
| 48 | :components ((:file "test-package") |
| 49 | (:file "test" :depends-on ("test-package")) |
| 50 | (:file "ref2test" :depends-on ("test")) |
| 51 | (:file "reference-tests" :depends-on ("test")) |
| 52 | (:file "ps-tests" :depends-on ("test")) |
| 53 | (:file "package-system-tests" :depends-on ("test")))))) |
| 54 | |
| 55 | |
| 56 | (defmethod asdf:perform ((o test-op) (c (eql (find-system :parenscript.test)))) |
| 57 | (asdf:operate 'asdf:load-op :parenscript.test) |
| 58 | (funcall (intern (symbol-name :run-tests) |
| 59 | (find-package :parenscript-test)))) |