Update of /cvsroot/foo/foo/elkfoo/scm/util
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv13184/scm/util
Modified Files:
soundfile-funs.foo
Log Message:
added macports paths /opt/local/xxx to default search path on darwin
Index: soundfile-funs.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/util/soundfile-funs.foo,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** soundfile-funs.foo 10 Apr 2007 14:01:45 -0000 1.1
--- soundfile-funs.foo 24 Mar 2009 18:31:02 -0000 1.2
***************
*** 60,71 ****
;
- ;;default type (probably to be changed). Leaning on the definition in elkfoo.scm
- ;
- (define (foo:default-soundfile-type) foo-default-soundfile-filetype)
- (define (foo:set-default-soundfile-type! type)
- (if (symbol? type) (set! type (symbol->string type)))
- (set! foo-default-soundfile-filetype type))
-
- ;
;;get extension from type (see all database or see defaultdatabase)
;
--- 60,63 ----
***************
*** 236,240 ****
(set! maximum (if (null? maximum) 1 (car maximum)))
(create-soundfile output
! (soundfile-filetype input)
'short
(soundfile-srate input)
--- 228,232 ----
(set! maximum (if (null? maximum) 1 (car maximum)))
(create-soundfile output
! (soundfile-type input)
'short
(soundfile-srate input)
***************
*** 267,271 ****
(srate (soundfile-srate file)) (maxi) (sampi) (timi) (comm))
(format #t "Filename : ~a~%" file)
! (format #t "Type : ~a~%" (soundfile-filetype file))
(format #t "Size : ~a~%" (soundfile-length file))
(format #t "Format : ~a~%" (soundfile-format file))
--- 259,263 ----
(srate (soundfile-srate file)) (maxi) (sampi) (timi) (comm))
(format #t "Filename : ~a~%" file)
! (format #t "Type : ~a~%" (soundfile-type file))
(format #t "Size : ~a~%" (soundfile-length file))
(format #t "Format : ~a~%" (soundfile-format file))
|
