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
;; 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
;; Distributed under the terms of the GNU General Public License
......@@ -94,7 +94,6 @@
"Initialize the combination c to the lexicographically
last combination, i.e. (n-k,n-k+1,...,n-1).")
#|
(defmfun grid:copy-to-destination ((source combination) (destination combination))
"gsl_combination_memcpy"
(((mpointer destination) :pointer)
......@@ -107,7 +106,6 @@
:documentation ; FDL
"Copy the elements of the combination source into the
combination destination. The two combinations must have the same size.")
|#
;;;;****************************************************************************
;;;; Combination properties
......
;; Permutations
;; 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
;; Distributed under the terms of the GNU General Public License
......@@ -79,7 +79,6 @@
"Initialize the permutation p to the identity, i.e.
(0,1,2,...,n-1).")
#|
(defmfun grid:copy-to-destination ((source permutation) (destination permutation))
"gsl_permutation_memcpy"
(((mpointer destination) :pointer)
......@@ -92,7 +91,6 @@
:documentation ; FDL
"Copy the elements of the permutation source into the
permutation destination. The two permutations must have the same size.")
|#
(defmfun swap-elements ((p permutation) i j)
"gsl_permutation_swap"
......
;; The histogram structure
;; 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
;; Distributed under the terms of the GNU General Public License
......@@ -79,7 +79,6 @@
:definition :method
:return (histogram))
#|
(defmfun grid:copy-to-destination ((source histogram) (destination histogram))
"gsl_histogram_memcpy"
(((mpointer destination) :pointer) ((mpointer source) :pointer))
......@@ -117,4 +116,3 @@
:definition :method
:c-return :pointer
:index copy)
|#
;; Load GSL
;; 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
;; Distributed under the terms of the GNU General Public License
......@@ -25,8 +25,7 @@
:grid
#:cl-array #:dimensions #:element-type
#:foreign-array #:matrix #:dim0 #:dim1 #:^
; #:copy #:clone
)
#:copy #:clone)
(:shadowing-import-from :grid #:foreign-pointer)
(:export
#:cl-array #:dimensions #:element-type #:dim0 #:dim1
......
;; Generators of random numbers.
;; 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
;; Distributed under the terms of the GNU General Public License
......@@ -176,7 +176,6 @@
;;;; Copying state
;;;;****************************************************************************
#|
(defmfun grid:copy-to-destination
((source random-number-generator) (destination random-number-generator))
"gsl_rng_memcpy"
......@@ -194,7 +193,6 @@
:definition :method
:c-return :pointer
:index copy)
|#
;;;;****************************************************************************
;;;; Examples and unit test
......
;; Quasi-random sequences in arbitrary dimensions.
;; 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
;; Distributed under the terms of the GNU General Public License
......@@ -64,7 +64,6 @@
:export nil
:index gsl-random-state)
#|
(defmfun grid:copy-to-destination
((source quasi-random-number-generator)
(destination quasi-random-number-generator))
......@@ -82,7 +81,6 @@
:definition :method
:c-return :pointer
:index copy)
|#
(def-rng-type +niederreiter2+
;; 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