Mercurial > hg > amuse

comparison base/database/implementations-setup.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 6a3adca16910
comparison
equal deleted inserted replaced
217:d8f650e3796e 218:385935631532
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