Skip to content
Snippets Groups Projects
Commit 1d5f6494 authored by Liam Healy's avatar Liam Healy
Browse files

Uncomment copy functions for non-arrays

parent 27d461f5
No related branches found
No related tags found
No related merge requests found
;; Combinations ;; Combinations
;; Liam Healy, Sun Mar 26 2006 - 11:51 ;; Liam Healy, Sun Mar 26 2006 - 11:51
;; Time-stamp: <2010-06-30 18:00:27EDT combination.lisp> ;; Time-stamp: <2010-07-01 21:13:06EDT combination.lisp>
;; ;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
...@@ -94,7 +94,6 @@ ...@@ -94,7 +94,6 @@
"Initialize the combination c to the lexicographically "Initialize the combination c to the lexicographically
last combination, i.e. (n-k,n-k+1,...,n-1).") last combination, i.e. (n-k,n-k+1,...,n-1).")
#|
(defmfun grid:copy-to-destination ((source combination) (destination combination)) (defmfun grid:copy-to-destination ((source combination) (destination combination))
"gsl_combination_memcpy" "gsl_combination_memcpy"
(((mpointer destination) :pointer) (((mpointer destination) :pointer)
...@@ -107,7 +106,6 @@ ...@@ -107,7 +106,6 @@
:documentation ; FDL :documentation ; FDL
"Copy the elements of the combination source into the "Copy the elements of the combination source into the
combination destination. The two combinations must have the same size.") combination destination. The two combinations must have the same size.")
|#
;;;;**************************************************************************** ;;;;****************************************************************************
;;;; Combination properties ;;;; Combination properties
......
;; Permutations ;; Permutations
;; Liam Healy, Sun Mar 26 2006 - 11:51 ;; Liam Healy, Sun Mar 26 2006 - 11:51
;; Time-stamp: <2010-06-30 19:53:22EDT permutation.lisp> ;; Time-stamp: <2010-07-01 21:12:59EDT permutation.lisp>
;; ;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
...@@ -79,7 +79,6 @@ ...@@ -79,7 +79,6 @@
"Initialize the permutation p to the identity, i.e. "Initialize the permutation p to the identity, i.e.
(0,1,2,...,n-1).") (0,1,2,...,n-1).")
#|
(defmfun grid:copy-to-destination ((source permutation) (destination permutation)) (defmfun grid:copy-to-destination ((source permutation) (destination permutation))
"gsl_permutation_memcpy" "gsl_permutation_memcpy"
(((mpointer destination) :pointer) (((mpointer destination) :pointer)
...@@ -92,7 +91,6 @@ ...@@ -92,7 +91,6 @@
:documentation ; FDL :documentation ; FDL
"Copy the elements of the permutation source into the "Copy the elements of the permutation source into the
permutation destination. The two permutations must have the same size.") permutation destination. The two permutations must have the same size.")
|#
(defmfun swap-elements ((p permutation) i j) (defmfun swap-elements ((p permutation) i j)
"gsl_permutation_swap" "gsl_permutation_swap"
......
;; The histogram structure ;; The histogram structure
;; Liam Healy, Mon Jan 1 2007 - 11:32 ;; Liam Healy, Mon Jan 1 2007 - 11:32
;; Time-stamp: <2010-06-29 21:18:58EDT histogram.lisp> ;; Time-stamp: <2010-07-01 21:14:48EDT histogram.lisp>
;; ;;
;; Copyright 2007, 2008, 2009 Liam M. Healy ;; Copyright 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
...@@ -79,7 +79,6 @@ ...@@ -79,7 +79,6 @@
:definition :method :definition :method
:return (histogram)) :return (histogram))
#|
(defmfun grid:copy-to-destination ((source histogram) (destination histogram)) (defmfun grid:copy-to-destination ((source histogram) (destination histogram))
"gsl_histogram_memcpy" "gsl_histogram_memcpy"
(((mpointer destination) :pointer) ((mpointer source) :pointer)) (((mpointer destination) :pointer) ((mpointer source) :pointer))
...@@ -117,4 +116,3 @@ ...@@ -117,4 +116,3 @@
:definition :method :definition :method
:c-return :pointer :c-return :pointer
:index copy) :index copy)
|#
;; Load GSL ;; Load GSL
;; Liam Healy Sat Mar 4 2006 - 18:53 ;; Liam Healy Sat Mar 4 2006 - 18:53
;; Time-stamp: <2010-07-01 19:36:05EDT init.lisp> ;; Time-stamp: <2010-07-01 21:39:45EDT init.lisp>
;; ;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
...@@ -25,8 +25,7 @@ ...@@ -25,8 +25,7 @@
:grid :grid
#:cl-array #:dimensions #:element-type #:cl-array #:dimensions #:element-type
#:foreign-array #:matrix #:dim0 #:dim1 #:^ #:foreign-array #:matrix #:dim0 #:dim1 #:^
; #:copy #:clone #:copy #:clone)
)
(:shadowing-import-from :grid #:foreign-pointer) (:shadowing-import-from :grid #:foreign-pointer)
(:export (:export
#:cl-array #:dimensions #:element-type #:dim0 #:dim1 #:cl-array #:dimensions #:element-type #:dim0 #:dim1
......
;; Generators of random numbers. ;; Generators of random numbers.
;; Liam Healy, Sat Jul 15 2006 - 14:43 ;; Liam Healy, Sat Jul 15 2006 - 14:43
;; Time-stamp: <2010-06-29 21:11:04EDT generators.lisp> ;; Time-stamp: <2010-07-01 21:15:11EDT generators.lisp>
;; ;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
...@@ -176,7 +176,6 @@ ...@@ -176,7 +176,6 @@
;;;; Copying state ;;;; Copying state
;;;;**************************************************************************** ;;;;****************************************************************************
#|
(defmfun grid:copy-to-destination (defmfun grid:copy-to-destination
((source random-number-generator) (destination random-number-generator)) ((source random-number-generator) (destination random-number-generator))
"gsl_rng_memcpy" "gsl_rng_memcpy"
...@@ -194,7 +193,6 @@ ...@@ -194,7 +193,6 @@
:definition :method :definition :method
:c-return :pointer :c-return :pointer
:index copy) :index copy)
|#
;;;;**************************************************************************** ;;;;****************************************************************************
;;;; Examples and unit test ;;;; Examples and unit test
......
;; Quasi-random sequences in arbitrary dimensions. ;; Quasi-random sequences in arbitrary dimensions.
;; Liam Healy, Sun Jul 16 2006 - 15:54 ;; Liam Healy, Sun Jul 16 2006 - 15:54
;; Time-stamp: <2010-06-29 22:15:18EDT quasi.lisp> ;; Time-stamp: <2010-07-01 21:15:03EDT quasi.lisp>
;; ;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
...@@ -64,7 +64,6 @@ ...@@ -64,7 +64,6 @@
:export nil :export nil
:index gsl-random-state) :index gsl-random-state)
#|
(defmfun grid:copy-to-destination (defmfun grid:copy-to-destination
((source quasi-random-number-generator) ((source quasi-random-number-generator)
(destination quasi-random-number-generator)) (destination quasi-random-number-generator))
...@@ -82,7 +81,6 @@ ...@@ -82,7 +81,6 @@
:definition :method :definition :method
:c-return :pointer :c-return :pointer
:index copy) :index copy)
|#
(def-rng-type +niederreiter2+ (def-rng-type +niederreiter2+
;; FDL ;; FDL
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment