samer@43: % filesink - sink which writes a signal to a WAV file
samer@43: % filesink :: C:natural, R:real, path, options {...} -> sink(C,R).
samer@0: function s=filesink(ch,rate,file,varargin)
samer@0: 	str=sprintf('filesink(''%s'')',file);
samer@0: 	s=wavsink(ch,rate,@()filestream(file),@()str,varargin{:});
samer@0: end
samer@0: 
samer@0: function [str,disp]=filestream(file)
samer@0: 	import  java.io.*;
samer@0: 	str=BufferedOutputStream(FileOutputStream(jfile(file)));
samer@0: 	disp=@nop;
samer@0: end