Mercurial > hg > amuse

diff base/database/datasets-functions.lisp @ 218:385935631532

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 committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents e1842efb1dd4
children 317fe3126c6c
line wrap: on
line diff
--- a/base/database/datasets-functions.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/database/datasets-functions.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -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 "