|
From: Martin R. <ru...@us...> - 2004-08-30 16:00:03
|
Update of /cvsroot/foo/foo/elkfoo/scm/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26537 Modified Files: elkfoo.scm Log Message: changed (create-soundfile)/(make-soundfile) according to new foo:make-soundfile Index: elkfoo.scm =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/scm/kernel/elkfoo.scm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** elkfoo.scm 25 Aug 2004 23:16:33 -0000 1.3 --- elkfoo.scm 30 Aug 2004 15:59:48 -0000 1.4 *************** *** 182,185 **** --- 182,186 ---- (define snd-offset foo:snd-offset) (define snd-length foo:snd-length) + (define snd-comment foo:snd-comment) (define snd-reversed? foo:snd-reversed?) (define snd-type foo:snd-type) *************** *** 219,222 **** --- 220,226 ---- (define soundfile-format foo:soundfile-format) (define soundfile-channels foo:soundfile-channels) + (define soundfile-comment foo:soundfile-comment) + (define soundfile-comment-size foo:soundfile-comment-size) + (define set-soundfile-comment! foo:set-soundfile-comment!) (define soundfile-srate foo:soundfile-srate) (define soundfile-length foo:soundfile-length) *************** *** 225,244 **** ! (define (make-soundfile name format channels samplingrate . filetype) (set! name (tilde-expand name)) ! (if (null? filetype) ! (set! filetype foo-default-soundfile-filetype) ! (set! filetype (car filetype))) ! (foo:make-soundfile name format channels samplingrate filetype)) ! ! (define (create-soundfile name format channels samplingrate . filetype) (set! name (tilde-expand name)) (if (file-exists? name) (system (string-append "rm -rf " name))) ! (if (null? filetype) ! (set! filetype foo-default-soundfile-filetype) ! (set! filetype (car filetype))) ! (foo:make-soundfile name format channels samplingrate filetype)) --- 229,245 ---- ! (define (make-soundfile name filetype sampleformat samplingrate channels . comment) (set! name (tilde-expand name)) ! (if (null? comment) ! (foo:make-soundfile name filetype sampleformat samplingrate channels) ! (foo:make-soundfile name filetype sampleformat samplingrate channels (car comment)))) ! (define (create-soundfile name filetype sampleformat samplingrate channels . comment) (set! name (tilde-expand name)) (if (file-exists? name) (system (string-append "rm -rf " name))) ! (if (null? comment) ! (foo:make-soundfile name filetype sampleformat samplingrate channels) ! (foo:make-soundfile name filetype sampleformat samplingrate channels (car comment)))) |