uffi.asd

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          uffi.asd
   6 ;;;; Purpose:       ASDF system definition file for UFFI package
   7 ;;;; Author:        Kevin M. Rosenberg
   8 ;;;; Date Started:  Aug 2002
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; UFFI users are granted the rights to distribute and use this software
  15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  17 ;;;; *************************************************************************
  18
  19 (defpackage #:uffi-system (:use #:asdf #:cl))
  20 (in-package #:uffi-system)
  21
  22 #+(or allegro lispworks cmu mcl cormanlisp sbcl scl)
  23 (defsystem uffi
  24   :name "uffi"
  25   :author "Kevin Rosenberg <kevin@rosenberg.net>"
  26   :version "1.2.x"
  27   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
  28   :licence "Lessor Lisp General Public License"
  29   :description "Universal Foreign Function Library for Common Lisp"
  30   :long-description "UFFI provides a universal foreign function interface (FFI) for Common Lisp. UFFI supports CMUCL, Lispworks, and AllegroCL."
  31
  32   :components
  33   ((:module :src
  34             :components
  35             ((:file "package")
  36              (:file "primitives" :depends-on ("package"))
  37              #+mcl (:file "readmacros-mcl" :depends-on ("package"))
  38              (:file "objects" :depends-on ("primitives"))
  39              (:file "aggregates" :depends-on ("primitives"))
  40              (:file "strings" :depends-on ("primitives" "functions" "aggregates" "objects"))
  41              (:file "functions" :depends-on ("primitives"))
  42              (:file "libraries" :depends-on ("package"))
  43              (:file "os" :depends-on ("package"))))
  44    ))
  45
  46 #+(or allegro lispworks cmu mcl cormanlisp sbcl scl)
  47 (defmethod perform ((o test-op) (c (eql (find-system 'uffi))))
  48   (oos 'load-op 'uffi-tests)
  49   (oos 'test-op 'uffi-tests :force t))
  50
  51