# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID 38593563153265e826a543d016ea2fa706142671
# Parent  d8f650e3796e45883bfda5e71a13597df8e8ba0b
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>

diff -r d8f650e3796e -r 385935631532 base/database/datasets-functions.lisp
--- 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 "
diff -r d8f650e3796e -r 385935631532 base/database/implementations-setup.lisp
--- a/base/database/implementations-setup.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/database/implementations-setup.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -42,6 +42,7 @@
 CREATE FUNCTION get_impl_id (
 impl_name VARCHAR(255))
 RETURNS SMALLINT
+READS SQL DATA
 RETURN (SELECT implementation_id
 FROM amuse_implementations
 WHERE implementation_name = impl_name);"
@@ -57,6 +58,7 @@
 CREATE FUNCTION get_impl_name (
 impl_id SMALLINT)
 RETURNS VARCHAR(255)
+READS SQL DATA
 RETURN (SELECT implementation_name
 FROM amuse_implementations
 WHERE implementation_id = impl_id);"