view base/database/implementations-functions.lisp @ 235:ea45a3d0730c

Add some generic functions for querying the database in amuse-database-admin.

Ignore-this: d2516f9e731f2e7a079d8a094c70e927

How much general functionality should there be here?
The basic idea is a generalisation of mtp-admin, but there is a lot still to do.

darcs-hash:20100223150341-16a00-46cb41323450b18e21a4fff2cdaf7d38e9c572dc.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)))