Mercurial > hg > amuse
diff base/database/implementations-functions.lisp @ 216:e1842efb1dd4
amuse-database-admin add implementation and dataset functionality
Ignore-this: 787cc01acf2d6a58640fec017de16c17
darcs-hash:20090716145807-16a00-6fe5ad4a2b6252b2c1f3d109a16455bb32243965.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 | |
| children | 6a3adca16910 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/base/database/implementations-functions.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -0,0 +1,21 @@ +(cl:in-package #:amuse-database-admin) + +(defun register-new-implementation (package-object &optional + (database *amuse-database*)) + #.(clsql:locally-enable-sql-reader-syntax) + (clsql:insert-records :into "amuse_implementations" + :attributes '([implementation-name]) + :values (list (package-name package-object)) + :database database) + (clsql-mysql::mysql-insert-id + (clsql-mysql::database-mysql-ptr database)) + #.(clsql:locally-disable-sql-reader-syntax)) + +(defun implementation-package (object) + (symbol-package + (class-name + (class-of + object)))) + +(defun implementation-namestring (object) + (package-name (implementation-package object)))