wol.asd

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: wol -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          wol.asd
   6 ;;;; Purpose:       ASDF system definition file for Wol package
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  July 2003
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
  13 ;;;; *************************************************************************
  14
  15 (in-package #:cl-user)
  16
  17 #+(or cmu lispworks sbcl openmcl
  18       (and allegro (not common-lisp-controller))) (require :aserve)
  19 #+(and allegro common-lisp-controller) (c-l-c::original-require :aserve)
  20 #+allegro (require :smtp)
  21 #+allegro (require :phtml)
  22 #+allegro (require :pxml)
  23 #+allegro (require :sock)
  24 #+(and allegro-v6.2 unix) (require :ipc)
  25
  26 (defpackage #:wol-system (:use #:cl #:asdf))
  27 (in-package #:wol-system)
  28
  29 (defsystem wol
  30     :depends-on (kmrcl modlisp lml2 hyperobject cl-base64 puri
  31                         #-allegro :acl-compat)
  32     :components
  33     ((:file "package")
  34      (:file "classes" :depends-on ("package"))
  35      ;;(:file "c-modlisp" :depends-on ("classes"))
  36      ;;(:file "c-aserve" :depends-on ("classes"))
  37      (:file "project" :depends-on ("classes")
  38             #+ignore ("c-modlisp" "c-aserve"))
  39      (:file "sessions" :depends-on ("classes"))
  40      (:file "uri" :depends-on ("classes"))
  41      (:file "log" :depends-on ("classes"))
  42      (:file "color-picker" :depends-on ("package"))
  43      ))
  44
  45 (defmethod perform ((o test-op) (c (eql (find-system 'wol))))
  46   (operate 'load-op 'wol-tests)
  47   (operate 'test-op 'wol-tests :force t))
  48
  49 (defsystem wol-tests
  50     :depends-on (wol xlunit)
  51     :components ((:file "tests")))
  52
  53 (defmethod perform ((o test-op) (c (eql (find-system 'wol-tests))))
  54   (operate 'load-op 'wol-tests)
  55   (or (funcall (intern (symbol-name '#:do-tests)
  56                        (find-package '#:wol-tests)))
  57       (error "test-op failed")))
  58