| 1 |
#| |
|---|
| 2 |
Copyright 2006,2007 Greg Pfeil |
|---|
| 3 |
|
|---|
| 4 |
Distributed under the MIT license (see LICENSE file) |
|---|
| 5 |
|# |
|---|
| 6 |
|
|---|
| 7 |
(defpackage bordeaux-threads-system |
|---|
| 8 |
(:use #:cl #:asdf)) |
|---|
| 9 |
|
|---|
| 10 |
(in-package :bordeaux-threads-system) |
|---|
| 11 |
|
|---|
| 12 |
(eval-when (:compile-toplevel :load-toplevel :execute) |
|---|
| 13 |
#+allegro (require :process) |
|---|
| 14 |
#+corman (require :threads)) |
|---|
| 15 |
|
|---|
| 16 |
(eval-when (:compile-toplevel :load-toplevel :execute) |
|---|
| 17 |
#+(or (and allegro multiprocessing) |
|---|
| 18 |
armedbear |
|---|
| 19 |
(and cmu mp) |
|---|
| 20 |
corman |
|---|
| 21 |
(and digitool ccl-5.1) |
|---|
| 22 |
(and ecl threads) |
|---|
| 23 |
lispworks |
|---|
| 24 |
(and openmcl openmcl-native-threads) |
|---|
| 25 |
(and sbcl sb-thread)) |
|---|
| 26 |
(pushnew :thread-support *features*)) |
|---|
| 27 |
|
|---|
| 28 |
(defsystem bordeaux-threads |
|---|
| 29 |
:description "" |
|---|
| 30 |
:long-description "" |
|---|
| 31 |
:author "Greg Pfeil <greg@technomadic.org>" |
|---|
| 32 |
;; based on original Bordeaux-MP spec by Dan Barlow <dan@telent.net> |
|---|
| 33 |
;; contributors: |
|---|
| 34 |
;; Attila Lendvai <attila.lendvai@gmail.com> |
|---|
| 35 |
;; - better handling of unsupported Lisps |
|---|
| 36 |
;; Vladimir Sekissov <svg@surnet.ru> |
|---|
| 37 |
;; - fixes for CMUCL implementation |
|---|
| 38 |
;; Pierre Thierry <nowhere.man@levallois.eu.org> |
|---|
| 39 |
;; - added license information |
|---|
| 40 |
;; Stelian Ionescu <sionescu@common-lisp.net> |
|---|
| 41 |
;; - finished conversion from generic functions |
|---|
| 42 |
;; - enabled running thread-safe code in unthreaded lisps |
|---|
| 43 |
:licence "MIT" |
|---|
| 44 |
:version "0.4.0" |
|---|
| 45 |
:components ((:module "src" |
|---|
| 46 |
:serial t |
|---|
| 47 |
:components |
|---|
| 48 |
((:file "bordeaux-threads") |
|---|
| 49 |
(:file #+(and thread-support allegro) "allegro" |
|---|
| 50 |
#+(and thread-support armedbear) "armedbear" |
|---|
| 51 |
#+(and thread-support cmu) "cmu" |
|---|
| 52 |
#+(and thread-support corman) "corman" |
|---|
| 53 |
#+(and thread-support digitool) "mcl" |
|---|
| 54 |
#+(and thread-support ecl) "ecl" |
|---|
| 55 |
#+(and thread-support lispworks) "lispworks" |
|---|
| 56 |
#+(and thread-support openmcl) "openmcl" |
|---|
| 57 |
#+(and thread-support sbcl) "sbcl" |
|---|
| 58 |
#-thread-support "unsupported") |
|---|
| 59 |
(:file "default-implementations") |
|---|
| 60 |
#+(and thread-support |
|---|
| 61 |
(or armedbear ecl lispworks digitool)) |
|---|
| 62 |
(:file "condition-variables")))) |
|---|
| 63 |
:in-order-to ((test-op (load-op bordeaux-threads-test))) |
|---|
| 64 |
:perform (test-op :after (op c) |
|---|
| 65 |
(describe |
|---|
| 66 |
(funcall |
|---|
| 67 |
(intern (symbol-name (read-from-string "run-tests")) |
|---|
| 68 |
:lift) |
|---|
| 69 |
:suite (intern |
|---|
| 70 |
(symbol-name |
|---|
| 71 |
(read-from-string "test-bordeaux-threads")) |
|---|
| 72 |
:bordeaux-threads-test))))) |
|---|
| 73 |
|
|---|
| 74 |
(defmethod operation-done-p ((op test-op) |
|---|
| 75 |
(c (eql (find-system :bordeaux-threads)))) |
|---|
| 76 |
(values nil)) |
|---|
| 77 |
|
|---|
| 78 |
(defsystem bordeaux-threads-test |
|---|
| 79 |
:depends-on (bordeaux-threads lift) |
|---|
| 80 |
:components ((:module "test" :components ((:file "bordeaux-threads-test"))))) |
|---|
