view implementations/midi-db/batch-midifiles-db.lisp @ 238:55c188ef8b0a

Update midi-db example (add clapping music to db).

Ignore-this: 36c28b012dc8a50b1daf6a7ec4de5105

darcs-hash:20100414183655-16a00-f4e9de706e2f6869d977fe35511507cb2a1d5bb0.gz

committer: Jamie Forth <[e-mail]>

(cl:in-package #:amuse-midi-db)

(defun import-midifiles (path collection-identifier database)
  "<Path> should be a string or pathname object, which designates a
  directory containing midifiles to be imported,
  e.g. '/home/foo/my-midi-files/' (note trailing slash)."
  (let ((midifile-paths
	 (append (directory (merge-pathnames path "*.mid*"))
		 (directory (merge-pathnames path "*.MID*")))))
    (unless midifile-paths
      (warn "No midifiles in: ~A" path)
      (return-from import-midifiles nil))
    (loop for midifile-path in midifile-paths
       for i from 1
       do (import-composition
	   (get-composition
	    (make-midifile-identifier midifile-path))
	   collection-identifier database)
       finally (format t "~S midifiles added to database.~%" i))))