Mercurial > hg > amuse

diff base/database/implementations-setup.lisp @ 289:2519652145c3

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
author j.forth <j.forth@gold.ac.uk>
date Thu, 16 Jul 2009 18:00:22 +0100
parents 00d35eb70ef9
children 6a3adca16910
line wrap: on
line diff
--- 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);"