comparison 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 <[e-mail]>

+(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)))