Mercurial > hg > amuse

comparison implementations/meredith/tests/import-raph-c-data.lisp @ 303:3c5bf3f7b7a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
twiddle meredith import functions Ignore-this: e28a31418c8e60420bd84047d9110a13 darcs-hash:20090918124512-16a00-6354c6e9942caba1496caaac990d1f6985bfa17b.gz
author j.forth <j.forth@gold.ac.uk>
date Fri, 18 Sep 2009 13:45:12 +0100
parents d22c67dac97d
children 6a3adca16910
comparison
equal deleted inserted replaced
302:ac78ce3d0b10 303:3c5bf3f7b7a0
1 (cl:in-package #:amuse-meredith) 1 (cl:in-package #:amuse-meredith)
2 2
3 (asdf:oos 'asdf:load-op 'amuse-meredith) 3 (asdf:oos 'asdf:load-op 'amuse-meredith)
4 4
5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 5 (connect-to-database :database-name "test")
6
6 ;; Tell the database about the new implementation. 7 ;; Tell the database about the new implementation.
7 (amuse-database-admin:register-new-implementation *package*) 8 (amuse-database-admin:register-new-implementation *package*)
8 9
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 10 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10 ;; Add the datasets to the database 11 ;; Add the datasets to the database
11 (connect-to-database :database-name "test")
12
13 (create-meredith-tables *amuse-database*) 12 (create-meredith-tables *amuse-database*)
14 13
15 (import-bach-inv+sin *amuse-database*) 14 (import-bach-inv+sin *amuse-database*) ; FIXME: return an identifier.
16 15
17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 16 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
18 ;; Retrieve compositions 17 ;; Retrieve compositions
19 (defparameter *bach* 18 (defparameter *bach*
20 (get-composition (make-meredith-composition-identifier 1))) 19 (get-composition (make-meredith-composition-identifier 1)))