Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: ac49465281
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 79 lines (69 sloc) 2.772 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
;;;;
;;;; Copyright © 2009 Josh Marchan, Adlai Chandrasekhar
;;;;
;;;; Another System Definition
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(asdf:defsystem chanl
  :name "chanl"
  :maintainer "Josh Marchan"
  :author "Josh Marchan"
  :description "Communicating Sequential Process support for Common Lisp"
  :depends-on (:bordeaux-threads)
  :components ((:module "src"
                        :components ((:file "package")
                                     (:file "utils" :depends-on ("package"))
                                     (:file "procs" :depends-on ("package"))
                                     (:file "queues" :depends-on ("utils"))
                                     (:file "channels" :depends-on ("queues"))
                                     (:file "select" :depends-on ("procs" "channels"))))))

;;; ... And a few more!

(asdf:defsystem chanl.examples.base
  :name "chanl examples"
  :maintainer "Adlai Chandrasekhar"
  :author "Josh Marchan"
  :description "Examples of how to use chanl"
  :depends-on (:chanl)
  :components ((:module "examples"
                        :components ((:file "package")
                                     (:file "utils" :depends-on ("package"))))))

(asdf:defsystem chanl.examples.conditions
  :name "ChanL cross-thread conditions example"
  :depends-on (:chanl.examples.base)
  :components
  ((:module "examples"
            :components ((:file "conditions")))))

(asdf:defsystem chanl.examples.sieve
  :name "ChanL parallel sieve example"
  :depends-on (:chanl.examples.base)
  :components
  ((:module "examples"
            :components ((:file "sieve")))))

(asdf:defsystem chanl.examples.ltk
  :name "ChanL LTK example"
  :depends-on (:ltk :chanl.examples.base)
  :components
  ((:module "examples"
            :components ((:file "tk")))))

(asdf:defsystem chanl.examples
  :depends-on (:chanl.examples.ltk :chanl.examples.sieve :chanl.examples.conditions))

(asdf:defsystem chanl.tests
  :name "chanl tests"
  :description "Unit Tests for the ChanL library and its examples"
  :depends-on (:chanl :eos :chanl.examples)
  :serial t
  :components
  ((:module "tests"
            :serial t
            :components ((:file "setup-tests")
                         (:file "procs")
                         (:file "queues")
                         (:file "channels")
                         (:file "select")))))

(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :chanl))))
  (format t "~2&*******************~@
** Loading tests **~@
*******************~%")
  (asdf:oos 'asdf:load-op :chanl.tests)
  (asdf:oos 'asdf:test-op :chanl.tests))
Something went wrong with that request. Please try again.