Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28572/apps/Player4
Modified Files:
Catalog.f PLAYER4.F
Log Message:
Jos: Removed a bug from Import a directory tree
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** PLAYER4.F 26 Dec 2005 14:54:44 -0000 1.33
--- PLAYER4.F 31 Dec 2005 20:48:13 -0000 1.34
***************
*** 21,25 ****
true value turnkey?
! \ false value turnkey?
true value MciDebug?
--- 21,25 ----
true value turnkey?
! true to turnkey?
true value MciDebug?
***************
*** 233,237 ****
if cr ." REBUILD "
then
! generate-index-file
then
true vadr-config ExitFailed- c!
--- 233,237 ----
if cr ." REBUILD "
then
! generate-index-file build-free-list
then
true vadr-config ExitFailed- c!
***************
*** 552,555 ****
--- 552,556 ----
\ -----------------------------------------------------------------------------
+
turnkey? [if]
' QuitPlayer is StopPlayer
Index: Catalog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Catalog.f 26 Dec 2005 14:54:44 -0000 1.22
--- Catalog.f 31 Dec 2005 20:48:13 -0000 1.23
***************
*** 519,523 ****
if drop s" \"
else count
! then s" *.wma" true
;
--- 519,523 ----
if drop s" \"
else count
! then s" *.*" true \ Filtering is done by the catalog
;
***************
*** 545,550 ****
;
- \ s" F:\Data\geript" s" *.*" true sdir .s
-
\ --------------------------------------------------------------------------
\ search in the catalog
--- 545,548 ----
|
