root/oct.asd @ 405df618a38d3b8ddaae691f865bbf068e931ac5

Revision 405df618a38d3b8ddaae691f865bbf068e931ac5, 3.0 KB (checked in by Raymond Toy <toy.raymond@…>, 2 years ago)

Add Euler's constant and fix dependencies.

oct.asd:
o qd-const2 depends on qd-const.

qd-const.lisp:
o Add qd value for Euler's constant

qd-const2.lisp:
o Add qd-real value for Euler's constant.

  • Property mode set to 100644
Line 
1;;;; -*- Mode: lisp -*-
2;;;;
3;;;; Copyright (c) 2007, 2011 Raymond Toy
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
30  (:use #:cl #:asdf))
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"
37  :maintainer "See <http://www.common-lisp.net/project/oct>"
38  :licence "MIT"
39  :version "2011.12.05"                 ; Just use the date
40  :components
41  ((:file "qd-package")
42   (:file "qd-rep" :depends-on ("qd-package"))
43   #-cmu
44   (:file "qd-dd" :depends-on ("qd-package" "qd-rep"))
45   (:file "qd"
46          :depends-on ("qd-rep" #-cmu "qd-dd"))
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"))
55   (:file "qd-const2" :depends-on ("qd-class" "qd-const"))
56   (:file "qd-methods"
57          :depends-on ("qd-class"))
58   (:file "qd-reader"
59          :depends-on ("qd-methods"))
60   (:file "qd-format"
61          :depends-on ("qd-methods" "qd-reader"))
62   (:file "qd-complex"
63          :depends-on ("qd-methods" "qd-reader"))
64   (:file "qd-elliptic"
65          :depends-on ("qd-methods" "qd-reader"))
66   (:file "qd-theta"
67          :depends-on ("qd-methods" "qd-reader"))
68   (:file "qd-gamma"
69          :depends-on ("qd-methods" "qd-reader"))
70   ))
71
72(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct))))
73  (oos 'test-op 'oct-tests))
74
75(asdf:defsystem oct-tests
76  :depends-on (oct)
77  :version "2011.12.05"                 ; 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 (asdf:find-system :oct-tests))))
86  (or (funcall (intern "DO-TESTS" (find-package "RT")))
87      (error "TEST-OP failed for OCT-TESTS")))
88
Note: See TracBrowser for help on using the browser.