[foo-cvs] foo/elkfoo/scm/kernel elkfoo.scm,1.3,1.4

[Martin R. <ru...@us...>]

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))))