Mercurial > hg > amuse
comparison base/database/implementations-setup.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 | 6a3adca16910 |
comparison
equal
deleted
inserted
replaced
| 288:d1e5bbcc5ea4 | 289:2519652145c3 |
|---|---|
| 40 (defun %create-db-fun-get-impl-id (database) | 40 (defun %create-db-fun-get-impl-id (database) |
| 41 (clsql:execute-command " | 41 (clsql:execute-command " |
| 42 CREATE FUNCTION get_impl_id ( | 42 CREATE FUNCTION get_impl_id ( |
| 43 impl_name VARCHAR(255)) | 43 impl_name VARCHAR(255)) |
| 44 RETURNS SMALLINT | 44 RETURNS SMALLINT |
| 45 READS SQL DATA | |
| 45 RETURN (SELECT implementation_id | 46 RETURN (SELECT implementation_id |
| 46 FROM amuse_implementations | 47 FROM amuse_implementations |
| 47 WHERE implementation_name = impl_name);" | 48 WHERE implementation_name = impl_name);" |
| 48 :database database)) | 49 :database database)) |
| 49 | 50 |
| 55 (defun %create-db-fun-get-impl-name (database) | 56 (defun %create-db-fun-get-impl-name (database) |
| 56 (clsql:execute-command " | 57 (clsql:execute-command " |
| 57 CREATE FUNCTION get_impl_name ( | 58 CREATE FUNCTION get_impl_name ( |
| 58 impl_id SMALLINT) | 59 impl_id SMALLINT) |
| 59 RETURNS VARCHAR(255) | 60 RETURNS VARCHAR(255) |
| 61 READS SQL DATA | |
| 60 RETURN (SELECT implementation_name | 62 RETURN (SELECT implementation_name |
| 61 FROM amuse_implementations | 63 FROM amuse_implementations |
| 62 WHERE implementation_id = impl_id);" | 64 WHERE implementation_id = impl_id);" |
| 63 :database database)) | 65 :database database)) |
| 64 | 66 |