annotate utils/export.lisp @ 330:2fbff655ba47 tip

Removed cpitch-adj and cents SQL columns

(cl:in-package #:amuse-utils) 

(defun beats->seconds (composition &optional (stream t))
  "Prints a table of beat timepoints in seconds."
  (loop for i from 0 to (timepoint (cut-off composition))
     do (format stream
		"~A~C~F~%" i #\Tab
		(amuse-utils:beats-to-seconds
		 (make-moment i) composition))))

(defun export-data-from-composition (function composition pathname)
  "Function that applies another function to a composition, witing
the output to a file, e.g. use this to call beats->seconds."
  (with-open-file (stream pathname
			  :direction :output
			  :if-exists :supersede)
    (funcall function composition stream)))

(defun export-data-from-dataset (dataset function pathname)
  "Same as above except that processes an entire amuse-dataset."
  (loop for composition-identifier in
       (%list-slot-sequence-data dataset)
     do (with-open-file (stream
			 (concatenate 'string pathname
				      (princ-to-string
				       (composition-id
					composition-identifier)))
			 :direction :output
			 :if-exists :supersede)
	  (funcall function
		   (get-composition composition-identifier) stream))))