samer@0: ;;; This script reads audio from standard input and presents
samer@0: ;;; an interface for playing it. Program exits when playback
samer@0: ;;; thread is killed.
samer@0: 
samer@0: (load "audio.scm")
samer@0: (load "filelist.scm")
samer@0: (load "lineout.scm")
samer@0: 
samer@0: (tasks)
samer@0: (put "playlist.current" null)
samer@0: (define in (filesource))
samer@0: (.open in System.in$)
samer@0: 
samer@0: (lineout (linein in 2048 2048))
samer@0: (expose)
samer@0: (start)
samer@0: (.join (thread))
samer@0: (exit)