annotate implementations/meredith/tests/import-raph-c-data.lisp @ 229:c9573d61b1b9
twiddle meredith import functions
Ignore-this: e28a31418c8e60420bd84047d9110a13
darcs-hash:20090918124512-16a00-6354c6e9942caba1496caaac990d1f6985bfa17b.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 |
4eceac78e7c6 |
| children |
6a3adca16910 |
| rev |
line source |
|
j@215
|
1 (cl:in-package #:amuse-meredith)
|
|
j@215
|
2
|
|
j@215
|
3 (asdf:oos 'asdf:load-op 'amuse-meredith)
|
|
j@215
|
4
|
|
j@229
|
5 (connect-to-database :database-name "test")
|
|
j@229
|
6
|
|
j@215
|
7 ;; Tell the database about the new implementation.
|
|
j@215
|
8 (amuse-database-admin:register-new-implementation *package*)
|
|
j@215
|
9
|
|
j@215
|
10 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
j@215
|
11 ;; Add the datasets to the database
|
|
j@215
|
12 (create-meredith-tables *amuse-database*)
|
|
j@215
|
13
|
|
j@229
|
14 (import-bach-inv+sin *amuse-database*) ; FIXME: return an identifier.
|
|
j@215
|
15
|
|
j@215
|
16 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
j@215
|
17 ;; Retrieve compositions
|
|
j@215
|
18 (defparameter *bach*
|
|
j@215
|
19 (get-composition (make-meredith-composition-identifier 1)))
|
|
j@215
|
20
|
|
j@215
|
21 (defparameter *bach-dataset*
|
|
j@215
|
22 (get-dataset (make-amuse-dataset-identifier 1)))
|
|
j@215
|
23
|
|
j@215
|
24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
j@215
|
25 ;; Tidy up
|
|
j@215
|
26 ;;(drop-meredith-tables *amuse-database*)
|
|
j@215
|
27 (disconnect-from-database)
|
