annotate implementations/meredith/tests/import-raph-c-data.lisp @ 286:d22c67dac97d
add minimal backend for Dave Meredith's data
Ignore-this: 91608f727967a4c5709bd41634ab9ae2
darcs-hash:20090524193956-16a00-038e6f7cb235dea4e7efcc70c4d1a7bc7fd402a6.gz
| author |
j.forth <j.forth@gold.ac.uk> |
| date |
Sun, 24 May 2009 20:39:56 +0100 |
| parents |
|
| children |
c9573d61b1b9 |
| rev |
line source |
|
j@286
|
1 (cl:in-package #:amuse-meredith)
|
|
j@286
|
2
|
|
j@286
|
3 (asdf:oos 'asdf:load-op 'amuse-meredith)
|
|
j@286
|
4
|
|
j@286
|
5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
j@286
|
6 ;; Tell the database about the new implementation.
|
|
j@286
|
7 (amuse-database-admin:register-new-implementation *package*)
|
|
j@286
|
8
|
|
j@286
|
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
j@286
|
10 ;; Add the datasets to the database
|
|
j@286
|
11 (connect-to-database :database-name "test")
|
|
j@286
|
12
|
|
j@286
|
13 (create-meredith-tables *amuse-database*)
|
|
j@286
|
14
|
|
j@286
|
15 (import-bach-inv+sin *amuse-database*)
|
|
j@286
|
16
|
|
j@286
|
17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
j@286
|
18 ;; Retrieve compositions
|
|
j@286
|
19 (defparameter *bach*
|
|
j@286
|
20 (get-composition (make-meredith-composition-identifier 1)))
|
|
j@286
|
21
|
|
j@286
|
22 (defparameter *bach-dataset*
|
|
j@286
|
23 (get-dataset (make-amuse-dataset-identifier 1)))
|
|
j@286
|
24
|
|
j@286
|
25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
j@286
|
26 ;; Tidy up
|
|
j@286
|
27 ;;(drop-meredith-tables *amuse-database*)
|
|
j@286
|
28 (disconnect-from-database)
|
