view base/database/datasets-setup.lisp @ 217:d8f650e3796e

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

committer: Jamie Forth <[e-mail]>

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

(defun create-datasets-table (&optional (database *amuse-database*))
  (%create-datasets-table database)
  (%create-datasets-join-table database))

(defun drop-datasets-table (&optional (database *amuse-database*))
  (%drop-datasets-table database)
  (%drop-datasets-join-table database))

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

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

(defun %create-datasets-join-table (database)
  #.(clsql:locally-enable-sql-reader-syntax)
  (clsql:create-table "amuse_datasets_join"
		      '(([|dataset-id|] clsql:smallint :unsigned
			 :not-null)
			([|implementation-id|] clsql:smallint
			 :unsigned :not-null)
			([|composition-id|] clsql:smallint :not-null))
		      :constraints '("KEY (dataset_id)")
		      :database database
		      :transactions t)
  #.(clsql:locally-disable-sql-reader-syntax))

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

(defun %drop-datasets-join-table (database)
  (clsql:drop-table "amuse_datasets_join"
		    :database database
		    :if-does-not-exist :ignore))