source: oct.asd @ 5da3f9

Last change on this file since 5da3f9 was 5da3f9, checked in by Raymond Toy <toy.raymond@…>, 3 years ago

Revert previous blank line insertions.

The blanks were for testing integration of git and trac to close trac
tickets. It's working now.

  • Property mode set to 100644
File size: 3.0 KB
RevLine 
[8792d1]1;;;; -*- Mode: lisp -*-
2;;;;
[e3b5af]3;;;; Copyright (c) 2007, 2011 Raymond Toy
[8792d1]4;;;;
5;;;; Permission is hereby granted, free of charge, to any person
6;;;; obtaining a copy of this software and associated documentation
7;;;; files (the "Software"), to deal in the Software without
8;;;; restriction, including without limitation the rights to use,
9;;;; copy, modify, merge, publish, distribute, sublicense, and/or sell
10;;;; copies of the Software, and to permit persons to whom the
11;;;; Software is furnished to do so, subject to the following
12;;;; conditions:
13;;;;
14;;;; The above copyright notice and this permission notice shall be
15;;;; included in all copies or substantial portions of the Software.
16;;;;
17;;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
18;;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
19;;;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
20;;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
21;;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
22;;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
23;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
24;;;; OTHER DEALINGS IN THE SOFTWARE.
25
26;;; This is the asdf definition for oct.  I don't normally use this,
27;;; so it might be out of date.  Use at your own risk.
28
29(defpackage #:oct-system
[cc9eb3]30  (:use #:cl #:asdf))
[8792d1]31
32(in-package #:oct-system)
33
34(asdf:defsystem oct
35  :description "A portable implementation of quad-double arithmetic.  See <http://www.common-lisp.net/project/oct>."
36  :author "Raymond Toy"
[93c7ff]37  :maintainer "See <http://www.common-lisp.net/project/oct>"
[8792d1]38  :licence "MIT"
[e3b5af]39  :version "2011-02-09"                 ; Just use the date
[8792d1]40  :components
41  ((:file "qd-package")
42   (:file "qd-rep" :depends-on ("qd-package"))
43   #-cmu
[c3f30b]44   (:file "qd-dd" :depends-on ("qd-package" "qd-rep"))
[8792d1]45   (:file "qd"
[c3f30b]46          :depends-on ("qd-rep" #-cmu "qd-dd"))
[8792d1]47   (:file "qd-io"
48          :depends-on ("qd"))
49   (:file "qd-const"
50          :depends-on ("qd-io"))
51   (:file "qd-fun"
52          :depends-on ("qd" "qd-const"))
53   (:file "qd-class"
54          :depends-on ("qd-fun"))
[d26505]55   (:file "qd-const2" :depends-on ("qd-class"))
[8792d1]56   (:file "qd-methods"
57          :depends-on ("qd-class"))
[3d37e3]58   (:file "qd-reader"
[8792d1]59          :depends-on ("qd-methods"))
[3d37e3]60   (:file "qd-format"
61          :depends-on ("qd-methods" "qd-reader"))
[8792d1]62   (:file "qd-complex"
[3d37e3]63          :depends-on ("qd-methods" "qd-reader"))
[535d25]64   (:file "qd-elliptic"
[3d37e3]65          :depends-on ("qd-methods" "qd-reader"))
[8ade17]66   (:file "qd-theta"
67          :depends-on ("qd-methods" "qd-reader"))
[a40062c]68   (:file "qd-gamma"
[70745f]69          :depends-on ("qd-methods" "qd-reader"))
[8792d1]70   ))
[cc9eb3]71
72(defmethod perform ((op test-op) (c (eql (find-system :oct))))
73  (oos 'test-op 'oct-tests))
74
75(asdf:defsystem oct-tests
76  :depends-on (oct)
77  :version "2011-02-09"                 ; Just use the date
78  :in-order-to ((compile-op (load-op :rt))
79                (test-op (load-op :rt :oct)))
80  :components
81  ((:file "qd-extra")
82   (:file "qd-test")
83   (:file "rt-tests")))
84
85(defmethod perform ((op test-op) (c (eql (find-system :oct-tests))))
86  (or (funcall (intern "DO-TESTS" (find-package "RT")))
[7310f8]87      (error "TEST-OP failed for OCT-TESTS")))
[aee073]88
Note: See TracBrowser for help on using the repository browser.