comparison implementations/meredith/tests/import-raph-c-data.lisp @ 215:4eceac78e7c6

add minimal backend for Dave Meredith's data

Ignore-this: 91608f727967a4c5709bd41634ab9ae2

darcs-hash:20090524193956-16a00-038e6f7cb235dea4e7efcc70c4d1a7bc7fd402a6.gz

committer: Jamie Forth <[e-mail]>

+(cl:in-package #:amuse-meredith)
+
+(asdf:oos 'asdf:load-op 'amuse-meredith)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Tell the database about the new implementation.
+(amuse-database-admin:register-new-implementation *package*)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Add the datasets to the database
+(connect-to-database :database-name "test")
+
+(create-meredith-tables *amuse-database*)
+
+(import-bach-inv+sin *amuse-database*)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Retrieve compositions
+(defparameter *bach*
+  (get-composition (make-meredith-composition-identifier 1)))
+
+(defparameter *bach-dataset*
+  (get-dataset (make-amuse-dataset-identifier 1)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Tidy up
+;;(drop-meredith-tables *amuse-database*)
+(disconnect-from-database)