Mercurial > hg > amuse
changeset 289:2519652145c3
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 | d1e5bbcc5ea4 |
| children | 6af1f19a4475 |
| files | base/database/datasets-functions.lisp base/database/implementations-setup.lisp |
| diffstat | 2 files changed, 12 insertions(+), 0 deletions(-) [+] |
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 "
--- a/base/database/implementations-setup.lisp Thu Jul 16 16:44:06 2009 +0100 +++ b/base/database/implementations-setup.lisp Thu Jul 16 18:00:22 2009 +0100 @@ -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);"