Mercurial > hg > amuse
comparison base/database/datasets-functions.lisp @ 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 | 00d35eb70ef9 |
| children | 317fe3126c6c |
comparison
equal
deleted
inserted
replaced
| 288:d1e5bbcc5ea4 | 289:2519652145c3 |
|---|---|
| 52 composition-identifier) | 52 composition-identifier) |
| 53 (composition-id | 53 (composition-id |
| 54 composition-identifier))) | 54 composition-identifier))) |
| 55 :database database) | 55 :database database) |
| 56 | 56 |
| 57 (defun assign-compositions-to-dataset (composition-identifiers | |
| 58 dataset-identifier | |
| 59 &optional (database | |
| 60 *amuse-database*)) | |
| 61 "This should be done more sensibly." | |
| 62 (loop for identifier in composition-identifiers | |
| 63 do (assign-composition-to-dataset identifier | |
| 64 dataset-identifier | |
| 65 database))) | |
| 66 | |
| 57 (defun get-dataset (dataset-identifier &optional (database | 67 (defun get-dataset (dataset-identifier &optional (database |
| 58 *amuse-database*)) | 68 *amuse-database*)) |
| 59 (let ((dataset-header (clsql:query (format nil " | 69 (let ((dataset-header (clsql:query (format nil " |
| 60 SELECT description | 70 SELECT description |
| 61 FROM amuse_datasets | 71 FROM amuse_datasets |