annotate base/database/implementations-setup.lisp @ 288:d1e5bbcc5ea4

Rationalise base and geerdes classes, constructors and methods.

Ignore-this: d9d4d88566a6d110844d91d4c70513cd

Towards a more standardised interface. Some of these changes (generalised
constructors and reader functions) are necessary for amuse-database-admin
functionality and some other CHARM-like things.

darcs-hash:20090716154406-16a00-8a9b4fb1fc1f5ba75af66a1bbd87e1bb68e02493.gz

(cl:in-package #:amuse-database-admin)

(defun create-implementations-table (&optional
				     (database *amuse-database*))
  (%create-implementations-table database)
  (%create-implementation-stored-routines database))

(defun drop-implementations-table (&optional
				   (database *amuse-database*))
  (%drop-implementations-table database)
  (%drop-implementation-stored-routines database))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Helper functions

(defun %create-implementations-table (database)
  #.(clsql:locally-enable-sql-reader-syntax)
  (clsql:create-table "amuse_implementations"
		      '(([|implementation-id|] clsql:smallint :unsigned
			 :not-null :auto-increment :primary-key)
			([|implementation-name|] (varchar 255)
			 :not-null :unique))
		      :database database
		      :transactions t)
  #.(clsql:locally-disable-sql-reader-syntax))

(defun %drop-implementations-table (database)
  (clsql:drop-table "amuse_implementations"
		    :if-does-not-exist :ignore
		    :database database))

(defun %create-implementation-stored-routines (database)
  (%create-db-fun-get-impl-id database)
  (%create-db-fun-get-impl-name database))

(defun %drop-implementation-stored-routines (database)
  (%drop-db-fun-get-impl-id database)
  (%drop-db-fun-get-impl-name database))

(defun %create-db-fun-get-impl-id (database)
  (clsql:execute-command "
CREATE FUNCTION get_impl_id (
impl_name VARCHAR(255))
RETURNS SMALLINT
RETURN (SELECT implementation_id
FROM amuse_implementations
WHERE implementation_name = impl_name);"
			 :database database))

(defun %drop-db-fun-get-impl-id (database)
  (clsql:execute-command "
DROP FUNCTION get_impl_id"
			 :database database))

(defun %create-db-fun-get-impl-name (database)
  (clsql:execute-command "
CREATE FUNCTION get_impl_name (
impl_id SMALLINT)
RETURNS VARCHAR(255)
RETURN (SELECT implementation_name
FROM amuse_implementations
WHERE implementation_id = impl_id);"
			 :database database))

(defun %drop-db-fun-get-impl-name (database)
  (clsql:execute-command "
DROP FUNCTION get_impl_name"
			 :database database))