root/oct.asd @ 3d37e3b9346092b58e820723ae20f114dc912d44

Revision 3d37e3b9346092b58e820723ae20f114dc912d44, 2.8 KB (checked in by Raymond Toy <toy.raymond@…>, 4 years ago)

Move #Q reader functions to new file qd-reader.lisp.

qd-reader.lisp:
o New file containing #Q reader functions.
o Create a new readtable containing our reader functions so we don't

destructively modify the default *readtable*.

oct.asd:
o Add qd-reader.lisp.

qd-complex.lisp:
qd-elliptic.lisp:
qd-format.lisp:
o Set the *readtable* to *oct-readtable* before compiling these

files.

  • 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-02-09"                 ; 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-methods"
56          :depends-on ("qd-class"))
57   (:file "qd-reader"
58          :depends-on ("qd-methods"))
59   (:file "qd-format"
60          :depends-on ("qd-methods" "qd-reader"))
61   (:file "qd-complex"
62          :depends-on ("qd-methods" "qd-reader"))
63   (:file "qd-elliptic"
64          :depends-on ("qd-methods" "qd-reader"))
65   ))
66
67(defmethod perform ((op test-op) (c (eql (find-system :oct))))
68  (oos 'test-op 'oct-tests))
69
70(asdf:defsystem oct-tests
71  :depends-on (oct)
72  :version "2011-02-09"                 ; Just use the date
73  :in-order-to ((compile-op (load-op :rt))
74                (test-op (load-op :rt :oct)))
75  :components
76  ((:file "qd-extra")
77   (:file "qd-test")
78   (:file "rt-tests")))
79
80(defmethod perform ((op test-op) (c (eql (find-system :oct-tests))))
81  (or (funcall (intern "DO-TESTS" (find-package "RT")))
82      (error "TEST-OP failed for OCT-TESTS")))
Note: See TracBrowser for help on using the browser.