Mercurial > hg > amuse

diff base/database/datasets-functions.lisp @ 289:2519652145c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add function assigning a list of composition identifiers to a dataset. Ignore-this: aa2078c1427801491a54d23ffca7da70 darcs-hash:20090716170022-16a00-d95599a9631d18530c0d0d51ef095133f9bbde5a.gz
author j.forth <j.forth@gold.ac.uk>
date Thu, 16 Jul 2009 18:00:22 +0100
parents 00d35eb70ef9
children 317fe3126c6c
line wrap: on
line diff
--- a/base/database/datasets-functions.lisp	Thu Jul 16 16:44:06 2009 +0100
+++ b/base/database/datasets-functions.lisp	Thu Jul 16 18:00:22 2009 +0100
@@ -54,6 +54,16 @@
 					 composition-identifier)))
 			 :database database)
 
+(defun assign-compositions-to-dataset (composition-identifiers
+				       dataset-identifier
+				       &optional (database
+						  *amuse-database*))
+  "This should be done more sensibly."
+  (loop for identifier in composition-identifiers
+     do (assign-composition-to-dataset identifier
+				       dataset-identifier
+				       database)))
+
 (defun get-dataset (dataset-identifier &optional (database
 						  *amuse-database*))
   (let ((dataset-header (clsql:query (format nil "