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