Mercurial > hg > amuse
diff 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 <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | |
| children | c9573d61b1b9 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/implementations/meredith/tests/import-raph-c-data.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -0,0 +1,28 @@ +(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)