diff --git a/gsll.asd b/gsll.asd index 48cb454a9c844fff2ed20bff922acda9a3119a26..9aa940574c13062a12235f4846ca5c0d82563175 100644 --- a/gsll.asd +++ b/gsll.asd @@ -267,6 +267,7 @@ :components ((cffi-grovel:grovel-file "mksa") (cffi-grovel:grovel-file "cgsm") + (cffi-grovel:grovel-file "num") (:file export))))) (asdf:defsystem-connection GSLL-tests diff --git a/physical-constants/export.lisp b/physical-constants/export.lisp index 674392249897e894d4d739a1231169e4561cae8f..fad16f4f3fbc833700175ea832ba5a754b1d8f50 100644 --- a/physical-constants/export.lisp +++ b/physical-constants/export.lisp @@ -1,6 +1,6 @@ ;; Export the physical constant symbols ;; Liam Healy 2009-05-28 22:53:27EDT export.lisp -;; Time-stamp: <2009-12-27 10:00:05EST export.lisp> +;; Time-stamp: <2011-08-20 20:14:05UTC export.lisp> ;; ;; Copyright 2009 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -218,4 +218,21 @@ +cgsm-joule+ +cgsm-erg+ +cgsm-stefan-boltzmann-constant+ - +cgsm-thomson-cross-section+)) + +cgsm-thomson-cross-section+ + +num-fine-structure+ + +num-avogadro+ + +num-yotta+ + +num-zetta+ + +num-exa+ + +num-peta+ + +num-tera+ + +num-giga+ + +num-mega+ + +num-kilo+ + +num-milli+ + +num-micro+ + +num-nano+ + +num-femto+ + +num-atto+ + +num-zepto+ + +num-yocto+)) diff --git a/physical-constants/num.lisp b/physical-constants/num.lisp new file mode 100644 index 0000000000000000000000000000000000000000..1408ceb41b8763c9560b36e3eb576af5ea2f9460 --- /dev/null +++ b/physical-constants/num.lisp @@ -0,0 +1,50 @@ +;; Dimensionless constants +;; Sumant Oemrawsingh 2011-08-20 20:10:23UTC num.lisp +;; Time-stamp: <2011-08-20 20:10:23UTC num.lisp> +;; +;; Copyright 2011 Sumant Oemrawsingh, Liam M. Healy +;; Distributed under the terms of the GNU General Public License +;; +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +(in-package :gsl) + +#+linux +(define "_GNU_SOURCE") + +;;; When installed through Mac Ports, GSL .h files will be found +;;; in /opt/local/include. +#+darwin +(cc-flags #.(gsl-config "--cflags")) + +(include "gsl/gsl_const_num.h") + +(constant (+num-fine-structure+ GSL_CONST_NUM_FINE_STRUCTURE) :type double-float) +(constant (+num-avogadro+ GSL_CONST_NUM_AVOGADRO) :type double-float) +(constant (+num-yotta+ GSL_CONST_NUM_YOTTA) :type double-float) +(constant (+num-zetta+ GSL_CONST_NUM_ZETTA) :type double-float) +(constant (+num-exa+ GSL_CONST_NUM_EXA) :type double-float) +(constant (+num-peta+ GSL_CONST_NUM_PETA) :type double-float) +(constant (+num-tera+ GSL_CONST_NUM_TERA) :type double-float) +(constant (+num-giga+ GSL_CONST_NUM_GIGA) :type double-float) +(constant (+num-mega+ GSL_CONST_NUM_MEGA) :type double-float) +(constant (+num-kilo+ GSL_CONST_NUM_KILO) :type double-float) +(constant (+num-milli+ GSL_CONST_NUM_MILLI) :type double-float) +(constant (+num-micro+ GSL_CONST_NUM_MICRO) :type double-float) +(constant (+num-nano+ GSL_CONST_NUM_NANO) :type double-float) +(constant (+num-pico+ GSL_CONST_NUM_PICO) :type double-float) +(constant (+num-femto+ GSL_CONST_NUM_FEMTO) :type double-float) +(constant (+num-atto+ GSL_CONST_NUM_ATTO) :type double-float) +(constant (+num-zepto+ GSL_CONST_NUM_ZEPTO) :type double-float) +(constant (+num-yocto+ GSL_CONST_NUM_YOCTO) :type double-float)