Mercurial > hg > amuse

diff base/datasets/datasets-file/constructors.lisp @ 251:6a3adca16910

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactor dataset stuff out of amuse-database-admin, and add midifile-dataset.
author Jamie Forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/base/datasets/datasets-file/constructors.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -0,0 +1,12 @@
+(cl:in-package #:amuse-datasets)
+
+(defun make-midifile-dataset-identifier (dataset-path
+					 &optional (implementation-package
+						    *package*))
+  "*package* is bound to the package in which the function is called,
+e.g. if you are in-package amuse-midi, the implementation-package will
+be amuse-midi. If you are calling this from within a different
+package, use find-package."
+  (make-instance 'midifile-dataset-identifier
+		 :dataset-path dataset-path
+		 :implementation-package implementation-package))