external/oct/qd-package.lisp

   1 ;;;; -*- Mode: lisp -*-
   2 ;;;;
   3 ;;;; Copyright (c) 2007 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 (defpackage #:quad-double-internal
  27   (:use #:cl #+cmu #:extensions)
  28   (:nicknames #:qdi)
  29   (:export #:%quad-double
  30            #:read-qd
  31            #:add-qd
  32            #:add-qd-d
  33            #:cmu #:add-qd-dd
  34            #:add-d-qd
  35            #:sub-qd
  36            #:sub-qd-d
  37            #:cmu #:sub-qd-dd
  38            #:sub-d-qd
  39            #:neg-qd
  40            #:mul-qd
  41            #:mul-qd-d
  42            #:sqr-qd
  43            #:div-qd
  44            #:div-qd-d
  45            #+cmu #:div-qd-dd
  46            #:make-qd-d
  47            #+cmu #:make-qd-dd
  48            #:integer-decode-qd
  49            #:npow
  50            #:qd-0
  51            #:qd-1
  52            #:qd-2
  53            #:qd-3
  54            #:qd-parts
  55            #:+qd-one+
  56            #:+qd-zero+
  57            #:+qd-pi+
  58            ;; Functions
  59            #:hypot-qd
  60            #:abs-qd
  61            #:sqrt-qd
  62            #:log-qd
  63            #:log1p-qd
  64            #:exp-qd
  65            #:sin-qd
  66            #:cos-qd
  67            #:tan-qd
  68            #:sincos-qd
  69            #:asin-qd
  70            #:acos-qd
  71            #:atan-qd
  72            #:atan2-qd
  73            #:sinh-qd
  74            #:cosh-qd
  75            #:tanh-qd
  76            #:asinh-qd
  77            #:acosh-qd
  78            #:atanh-qd
  79            #:qd-=
  80            #:qd->
  81            #:qd-<
  82            #:qd->=
  83            #:qd-<=
  84            #:zerop-qd
  85            #:plusp-qd
  86            #:minusp-qd
  87            #:integer-decode-qd
  88            #:decode-float-qd
  89            #:scale-float-qd
  90            #:ffloor-qd
  91            #:random-qd
  92            )
  93   #+cmu
  94   (:import-from #:c
  95                 #:two-sum
  96                 #:quick-two-sum
  97                 #:two-prod
  98                 #:two-sqr))
  99
 100 (defpackage #:quad-double
 101   (:use #:cl #:quad-double-internal)
 102   (:nicknames #:oct #:qd)
 103   (:shadow #:+
 104            #:-
 105            #:*
 106            #:/
 107            #:1+
 108            #:1-
 109            #:zerop
 110            #:plusp
 111            #:minusp
 112            #:abs
 113            #:sqrt
 114            #:log
 115            #:exp
 116            #:sin
 117            #:cos
 118            #:tan
 119            #:asin
 120            #:acos
 121            #:atan
 122            #:sinh
 123            #:cosh
 124            #:tanh
 125            #:asinh
 126            #:acosh
 127            #:atanh
 128            #:expt
 129            #:=
 130            #:/=
 131            #:<
 132            #:>
 133            #:<=
 134            #:>=
 135            #:complex
 136            #:integer-decode-float
 137            #:decode-float
 138            #:scale-float
 139            #:float
 140            #:floor
 141            #:ffloor
 142            #:ceiling
 143            #:fceiling
 144            #:truncate
 145            #:ftruncate
 146            #:round
 147            #:fround
 148            #:realpart
 149            #:imagpart
 150            #:conjugate
 151            #:float-sign
 152            #:qd-format-exp
 153            #:max
 154            #:min
 155            #:cis
 156            #:phase
 157            #:signum
 158            #:coerce
 159            #:random
 160            )
 161   (:export #:+
 162            #:-
 163            #:*
 164            #:/
 165            #:1+
 166            #:1-
 167            #:zerop
 168            #:plusp
 169            #:minusp
 170            #:abs
 171            #:sqrt
 172            #:log
 173            #:exp
 174            #:sin
 175            #:cos
 176            #:tan
 177            #:asin
 178            #:acos
 179            #:atan
 180            #:sinh
 181            #:cosh
 182            #:tanh
 183            #:asinh
 184            #:acosh
 185            #:atanh
 186            #:expt
 187            #:=
 188            #:/=
 189            #:<
 190            #:>
 191            #:<=
 192            #:>=
 193            #:complex
 194            #:integer-decode-float
 195            #:decode-float
 196            #:scale-float
 197            #:float
 198            #:floor
 199            #:ffloor
 200            #:ceiling
 201            #:fceiling
 202            #:truncate
 203            #:ftruncate
 204            #:round
 205            #:fround
 206            #:realpart
 207            #:imagpart
 208            #:conjugate
 209            #:float-sign
 210            #:qd-format-exp
 211            #:max
 212            #:min
 213            #:cis
 214            #:phase
 215            #:signum
 216            #:coerce
 217            #:random
 218            #:realp
 219            #:complexp
 220            #:numberp
 221            )
 222   ;; Constants
 223   (:export #:+pi+)
 224   ;; CMUCL supports infinities.
 225   #+cmu
 226   (:export #:+quad-double-float-positive-infinity+
 227            #:+quad-double-float-negative-infinity+))