[foo-cvs] foo/elkfoo/scm/kernel elkfoo.scm,1.1,1.2

[Gerhard E. <gu...@us...>]

Update of /cvsroot/foo/foo/elkfoo/scm/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1899/scm/kernel

Modified Files:
	elkfoo.scm 
Log Message:
added foo:basename and foo:dirname

Index: elkfoo.scm
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/kernel/elkfoo.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** elkfoo.scm	7 Aug 2004 21:26:11 -0000	1.1
--- elkfoo.scm	14 Aug 2004 15:57:18 -0000	1.2
***************
*** 291,295 ****
      (loop (1- len))))
  
! 
  (define (foo:synthesize channels duration srate filename fileformat filetype thunk)
      (let ((c (make-context channels))
--- 291,300 ----
      (loop (1- len))))
  
! (define (foo:basename path)
!   (substring path (+ (foo:string-rindex path #\/) 1) (string-length path)))
!   
! (define (foo:dirname path)
!   (substring path 0 (foo:string-rindex path #\/)))
!   
  (define (foo:synthesize channels duration srate filename fileformat filetype thunk)
      (let ((c (make-context channels))