Commit 630a69bd authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Use (:struct foo) syntax to eliminate style warnings from CFFI

parent 18e08e4e
Loading
Loading
Loading
Loading
+4 −4
Original line number Diff line number Diff line
;; Monte Carlo Integration
;; Liam Healy Sat Feb  3 2007 - 17:42
;; Time-stamp: <2011-08-16 23:54:40EDT monte-carlo.lisp>
;; Time-stamp: <2011-10-30 10:01:57EDT monte-carlo.lisp>
;;
;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
@@ -58,7 +58,7 @@
   (result (:pointer :double)) (abserr (:pointer :double)))
  :inputs (lower-limits upper-limits)
  :callbacks
  (callback fnstruct-dimension (dimension)
  (callback (:struct fnstruct-dimension) (dimension)
	    (function :double (:input :double :cvector dim0) :slug))
  :callback-dynamic (((dim0 lower-limits)) (function scalars))
  :documentation			; FDL
@@ -119,7 +119,7 @@
   (result (:pointer :double)) (abserr (:pointer :double)))
  :inputs (lower-limits upper-limits)
  :callbacks
  (callback fnstruct-dimension (dimension)
  (callback (:struct fnstruct-dimension) (dimension)
	    (function :double (:input :double :cvector dim0) :slug))
  :callback-dynamic (((dim0 lower-limits)) (function scalars))
  :documentation			; FDL
@@ -180,7 +180,7 @@
   (result (:pointer :double)) (abserr (:pointer :double)))
  :inputs (lower-limits upper-limits)
  :callbacks
  (callback fnstruct-dimension (dimension)
  (callback (:struct fnstruct-dimension) (dimension)
	    (function :double (:input :double :cvector dim0) :slug))
  :callback-dynamic (((dim0 lower-limits)) (function scalars))
  :documentation			; FDL
+5 −5
Original line number Diff line number Diff line
;; Numerical differentiation.                
;; Liam Healy Mon Nov 12 2007 - 22:07
;; Time-stamp: <2009-12-27 09:42:10EST numerical-differentiation.lisp>
;; Time-stamp: <2011-10-30 10:27:07EDT numerical-differentiation.lisp>
;;
;; Copyright 2007, 2008, 2009 Liam M. Healy
;; Copyright 2007, 2008, 2009, 2011 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
@@ -27,7 +27,7 @@
  ((callback :pointer) (x :double) (step :double)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Compute the numerical derivative of the function
@@ -50,7 +50,7 @@
  ((callback :pointer) (x :double) (step :double)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Compute the numerical derivative of the function
@@ -75,7 +75,7 @@
  ((callback :pointer) (x :double) (step :double)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Compute the numerical derivative of the function at the point x
+5 −5
Original line number Diff line number Diff line
;; Numerical integration techniques that require tables
;; Liam Healy 2009-04-04 15:24:05EDT 
;; Time-stamp: <2010-08-07 21:41:16EDT numerical-integration-with-tables.lisp>
;; Time-stamp: <2011-10-30 10:27:27EDT numerical-integration-with-tables.lisp>
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009, 2011 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
@@ -65,7 +65,7 @@
   (limit sizet) ((mpointer workspace) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Compute the integral of the function f(x) over the interval (a,b)
@@ -123,7 +123,7 @@
   ((mpointer table) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Use an adaptive algorithm to compute the integral of f over (a,b)
@@ -167,7 +167,7 @@
   ((mpointer table) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "This function attempts to compute a Fourier integral of the
+9 −9
Original line number Diff line number Diff line
;; Numerical integration
;; Liam Healy, Wed Jul  5 2006 - 23:14
;; Time-stamp: <2011-01-10 17:59:21EST numerical-integration.lisp>
;; Time-stamp: <2011-10-30 10:01:11EDT numerical-integration.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
@@ -52,7 +52,7 @@
   (result (:pointer :double)) (abserr (:pointer :double))
   (neval (:pointer sizet)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Apply the Gauss-Kronrod 10-point, 21-point, 43-point and
@@ -92,7 +92,7 @@
   (limit sizet) (method integrate-method) ((mpointer workspace) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Apply an integration rule adaptively until an estimate
@@ -129,7 +129,7 @@
   ((mpointer workspace) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Apply the Gauss-Kronrod 21-point integration rule
@@ -163,7 +163,7 @@
   (result (:pointer :double)) (abserr (:pointer :double)))
  :inputs (points)
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Apply the adaptive integration algorithm QAGS taking
@@ -193,7 +193,7 @@
   ((mpointer workspace) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Compute the integral of the function f over the
@@ -218,7 +218,7 @@
   ((mpointer workspace) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Compute the integral of the function f over the
@@ -239,7 +239,7 @@
   ((mpointer workspace) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Compute the integral of the function f over the
@@ -265,7 +265,7 @@
   ((mpointer workspace) :pointer)
   (result (:pointer :double)) (abserr (:pointer :double)))
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :callback-dynamic (nil (function))
  :documentation			; FDL
  "Compute the Cauchy principal value of the integral of
+3 −3
Original line number Diff line number Diff line
;; Chebyshev Approximations
;; Liam Healy Sat Nov 17 2007 - 20:36
;; Time-stamp: <2010-06-29 21:47:34EDT chebyshev.lisp>
;; Time-stamp: <2011-10-30 10:25:39EDT chebyshev.lisp>
;;
;; Copyright 2007, 2008, 2009, 2010 Liam M. Healy
;; Copyright 2007, 2008, 2009, 2010, 2011 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
@@ -32,7 +32,7 @@
  :documentation			; FDL
  "Make a Chebyshev series of specified order."
  :callbacks
  (callback fnstruct nil (function :double (:input :double) :slug))
  (callback (:struct fnstruct) nil (function :double (:input :double) :slug))
  :initialize-suffix "init"
  :initialize-args
  ((callback :pointer) (lower-limit :double) (upper-limit :double))
Loading