| 1 |
;;; -*- lisp -*- |
|---|
| 2 |
|
|---|
| 3 |
(eval-when (:compile-toplevel :load-toplevel :execute) |
|---|
| 4 |
(unless (find-package :it.bese.arnesi.system) |
|---|
| 5 |
(defpackage :it.bese.arnesi.system |
|---|
| 6 |
(:documentation "ASDF System package for ARNESI.") |
|---|
| 7 |
(:use :common-lisp :asdf)))) |
|---|
| 8 |
|
|---|
| 9 |
(in-package :it.bese.arnesi.system) |
|---|
| 10 |
|
|---|
| 11 |
(defsystem :arnesi |
|---|
| 12 |
:components ((:static-file "arnesi.asd") |
|---|
| 13 |
(:module :src |
|---|
| 14 |
:components ((:file "accumulation" :depends-on ("packages" "one-liners")) |
|---|
| 15 |
(:file "asdf" :depends-on ("packages" "io")) |
|---|
| 16 |
(:file "csv" :depends-on ("packages" "string")) |
|---|
| 17 |
(:file "compat" :depends-on ("packages")) |
|---|
| 18 |
(:module :call-cc |
|---|
| 19 |
:components ((:file "interpreter") |
|---|
| 20 |
(:file "handlers") |
|---|
| 21 |
(:file "apply") |
|---|
| 22 |
(:file "generic-functions") |
|---|
| 23 |
(:file "common-lisp-cc")) |
|---|
| 24 |
:serial t |
|---|
| 25 |
:depends-on ("packages" "walk" "flow-control" "lambda-list" "list" "string" "defclass-struct")) |
|---|
| 26 |
(:file "debug" :depends-on ("accumulation")) |
|---|
| 27 |
(:file "decimal-arithmetic" :depends-on ("packages")) |
|---|
| 28 |
(:file "defclass-struct" :depends-on ("packages" "list")) |
|---|
| 29 |
(:file "flow-control" :depends-on ("packages" "one-liners")) |
|---|
| 30 |
(:file "hash" :depends-on ("packages" "list" "one-liners" "string")) |
|---|
| 31 |
(:file "http" :depends-on ("packages" "vector" "string")) |
|---|
| 32 |
(:file "io" :depends-on ("packages" "flow-control" "string")) |
|---|
| 33 |
(:file "lambda" :depends-on ("packages")) |
|---|
| 34 |
(:file "lambda-list" :depends-on ("packages" "walk")) |
|---|
| 35 |
(:file "lisp1" :depends-on ("packages" "lambda-list" "one-liners" "walk" "unwalk")) |
|---|
| 36 |
(:file "lexenv" :depends-on ("packages" "one-liners")) |
|---|
| 37 |
(:file "list" :depends-on ("packages" "one-liners" "accumulation" "flow-control")) |
|---|
| 38 |
(:file "log" :depends-on ("packages" "numbers" "hash" "io")) |
|---|
| 39 |
(:file "matcher" :depends-on ("packages" "hash" "list" "flow-control" "one-liners")) |
|---|
| 40 |
(:file "mop" :depends-on ("packages" "mopp")) |
|---|
| 41 |
(:file "mopp" :depends-on ("packages" "list" "flow-control")) |
|---|
| 42 |
(:file "numbers" :depends-on ("packages")) |
|---|
| 43 |
(:file "one-liners" :depends-on ("packages")) |
|---|
| 44 |
(:file "packages") |
|---|
| 45 |
(:file "pf-reader" :depends-on ("packages")) |
|---|
| 46 |
(:file "posixenv" :depends-on ("packages")) |
|---|
| 47 |
(:file "queue" :depends-on ("packages")) |
|---|
| 48 |
(:file "sequence" :depends-on ("packages")) |
|---|
| 49 |
(:file "bracket-reader" :depends-on ("list")) |
|---|
| 50 |
(:file "sharpl-reader" :depends-on ("packages" "flow-control" "mopp")) |
|---|
| 51 |
(:file "specials" :depends-on ("packages" "hash")) |
|---|
| 52 |
(:file "string" :depends-on ("packages" "list")) |
|---|
| 53 |
(:file "time" :depends-on ("packages")) |
|---|
| 54 |
(:file "unwalk" :depends-on ("packages" "walk")) |
|---|
| 55 |
(:file "vector" :depends-on ("packages" "flow-control")) |
|---|
| 56 |
(:file "walk" :depends-on ("packages" "list" "mopp" "lexenv" "one-liners"))))) |
|---|
| 57 |
:properties ((:features "v1.4.0" "v1.4.1" "v1.4.2" "cc-interpreter" |
|---|
| 58 |
"join-strings-return-value" "getenv"))) |
|---|
| 59 |
|
|---|
| 60 |
(defsystem :arnesi.test |
|---|
| 61 |
:components ((:module :t |
|---|
| 62 |
:components ((:file "accumulation" :depends-on ("suite")) |
|---|
| 63 |
(:file "call-cc" :depends-on ("suite")) |
|---|
| 64 |
(:file "http" :depends-on ("suite")) |
|---|
| 65 |
(:file "log" :depends-on ("suite")) |
|---|
| 66 |
(:file "matcher" :depends-on ("suite")) |
|---|
| 67 |
(:file "numbers" :depends-on ("suite")) |
|---|
| 68 |
(:file "queue" :depends-on ("suite")) |
|---|
| 69 |
(:file "read-macros" :depends-on ("suite")) |
|---|
| 70 |
(:file "string" :depends-on ("suite")) |
|---|
| 71 |
(:file "sequence" :depends-on ("suite")) |
|---|
| 72 |
(:file "sharpl" :depends-on ("suite")) |
|---|
| 73 |
(:file "flow-control" :depends-on ("suite")) |
|---|
| 74 |
(:file "walk" :depends-on ("suite")) |
|---|
| 75 |
(:file "csv" :depends-on ("suite")) |
|---|
| 76 |
(:file "suite")))) |
|---|
| 77 |
:depends-on (:arnesi :FiveAM) |
|---|
| 78 |
:in-order-to ((compile-op (load-op :arnesi)))) |
|---|
| 79 |
|
|---|
| 80 |
(defsystem :arnesi.cl-ppcre-extras |
|---|
| 81 |
:components ((:module :src |
|---|
| 82 |
:components ((:file "cl-ppcre-extras")))) |
|---|
| 83 |
:depends-on (:cl-ppcre :arnesi)) |
|---|
| 84 |
|
|---|
| 85 |
(defsystem :arnesi.slime-extras |
|---|
| 86 |
:components ((:module :src :components ((:file "slime-extras")))) |
|---|
| 87 |
:depends-on (:arnesi :swank)) |
|---|
| 88 |
|
|---|
| 89 |
(defmethod perform ((op asdf:test-op) (system (eql (find-system :arnesi)))) |
|---|
| 90 |
(asdf:oos 'asdf:load-op :arnesi.test) |
|---|
| 91 |
(funcall (intern (string :run!) (string :it.bese.FiveAM)) |
|---|
| 92 |
:it.bese.arnesi)) |
|---|
| 93 |
|
|---|
| 94 |
(defmethod operation-done-p ((op test-op) (system (eql (find-system :arnesi)))) |
|---|
| 95 |
nil) |
|---|
| 96 |
|
|---|
| 97 |
;;;; * Introduction |
|---|
| 98 |
|
|---|
| 99 |
;;;; A collection of various common lisp utilites. |
|---|
| 100 |
|
|---|
| 101 |
;;;;@include "src/packages.lisp" |
|---|
| 102 |
|
|---|
| 103 |
|
|---|
| 104 |
;; Copyright (c) 2002-2006 Edward Marco Baringer |
|---|
| 105 |
;; Copyright (c) 2006 Luca Capello http://luca.pca.it <luca@pca.it> |
|---|
| 106 |
;; All rights reserved. |
|---|
| 107 |
;; |
|---|
| 108 |
;; Redistribution and use in source and binary forms, with or without |
|---|
| 109 |
;; modification, are permitted provided that the following conditions are |
|---|
| 110 |
;; met: |
|---|
| 111 |
;; |
|---|
| 112 |
;; - Redistributions of source code must retain the above copyright |
|---|
| 113 |
;; notice, this list of conditions and the following disclaimer. |
|---|
| 114 |
;; |
|---|
| 115 |
;; - Redistributions in binary form must reproduce the above copyright |
|---|
| 116 |
;; notice, this list of conditions and the following disclaimer in the |
|---|
| 117 |
;; documentation and/or other materials provided with the distribution. |
|---|
| 118 |
;; |
|---|
| 119 |
;; - Neither the name of Edward Marco Baringer, Luca Capello, nor |
|---|
| 120 |
;; BESE, nor the names of its contributors may be used to endorse |
|---|
| 121 |
;; or promote products derived from this software without specific |
|---|
| 122 |
;; prior written permission. |
|---|
| 123 |
;; |
|---|
| 124 |
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|---|
| 125 |
;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|---|
| 126 |
;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|---|
| 127 |
;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|---|
| 128 |
;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|---|
| 129 |
;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|---|
| 130 |
;; LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|---|
| 131 |
;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|---|
| 132 |
;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|---|
| 133 |
;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|---|
| 134 |
;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|---|
