comparison src/scheme/filelist.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

+(import "java.util.*")
+(import "java.awt.*")
+(import "java.io.*")
+(import "javax.swing.*")
+
+(define (edit-list L)
+	(define dlg (JFileChooser.))
+	(.setMultiSelectionEnabled dlg #t)
+	(if (pair? L) 
+		(begin
+			(.setCurrentDirectory dlg (car L))
+			(.setSelectedFiles dlg (list->array java.io.File.class L))
+		)
+	)
+	(.showDialog dlg null "Done")
+	(vector->list (.getSelectedFiles dlg))
+)
+
+(define (restore-list name) (map File. (eval-string (get name))))
+(define (store-list name L)
+	(X.store name (string-append "'"
+		(.toString (map .toString	L)))))
+
+
+(define filesrc null)
+
+(define (get-playlist)        (array->list (.toArray (.getPlaylist filesrc))))
+(define (set-playlist L)
+   (.setPlaylist filesrc (Arrays.asList (list->vector L)))
+   (.rewind filesrc))
+
+(define (edit-playlist)       (set-playlist (edit-list (get-playlist))))
+(define (restore-playlist)    (set-playlist (restore-list "playlist.files")))
+(define (store-playlist)      (store-list "playlist.files" (get-playlist)))
+(define (clear-playlist)      (set-playlist ()))
+(define (rewind) (.rewind filesrc))
+
+(define (filesource . format)
+   (set! filesrc (samer.audio.FileSource.))
+	(if (not (null? format)) (.setTargetFormat filesrc (car format)))
+   (tryCatch   (restore-playlist) (lambda (ex) ()))
+   filesrc)
+
+(define (dirsource ext . format)
+   (define dir (VFile. "playlist.directory"))
+   (set! filesrc (samer.audio.FileSource.))
+	(if (not (null? format)) (.setTargetFormat filesrc (car format)))
+   (on-change dir                                             
+     (.setDirectory filesrc (.getFile dir) ext)
+      (.rewind filesrc))
+   (tryCatch   (.changed dir) (lambda (ex) ()))
+   filesrc)
+
+(define (wav? f) (.endsWith (.toString f) ".wav"))
+
+