annotate implementations/meredith/tests/import-raph-c-data.lisp @ 296:68aadc4eb96d
add chromatic-pitch reader method
Ignore-this: 1aba35b7d196e0994a817609337746e1
darcs-hash:20090828145217-16a00-312e63170f50f0bf2834b8959a72e5c857cba9b8.gz
| author |
j.forth <j.forth@gold.ac.uk> |
| date |
Fri, 28 Aug 2009 15:52:17 +0100 |
| parents |
d22c67dac97d |
| 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)
|
