comparison base/database/datasets-functions.lisp @ 295:ced696bd9871

add database-admin function to create composition identifiers from file

Ignore-this: ff758dc4be1061baebae471feee53f00

darcs-hash:20090820181949-16a00-389500f68b818adca481631fc7ae26be59a8ad4a.gz

   (loop for identifier in composition-identifiers
      do (assign-composition-to-dataset identifier
 				       dataset-identifier
 				       database)))
 
+(defun make-composition-identifiers-from-file (package pathname)
+  "This reads a file that contains one id per line, and returns a list
+of composition-identifiers (specialised on package). It is useful for
+reading files that have been exported from the database, for use with
+the above functions."
+  (with-open-file (stream pathname :direction :input)
+    (loop for id = (read stream nil)
+       while id
+       collect (make-composition-identifier package id))))
+
 (defun get-dataset (dataset-identifier &optional (database
 						  *amuse-database*))
   (let ((dataset-header (clsql:query (format nil "
 SELECT description
 FROM amuse_datasets