Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7441/win32forth/src
Modified Files:
ANSFILE.F
Log Message:
gah:Fixed bug in dir in ansfile
Index: ANSFILE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/ANSFILE.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ANSFILE.F 22 Sep 2006 10:50:20 -0000 1.8
--- ANSFILE.F 23 Sep 2006 09:49:37 -0000 1.9
***************
*** 310,319 ****
\ ** If "name" ends in : assume a drive use "name"\*.* for the search pattern. \n
\ *P The pattern can contain the standard Windows wildcards.
! /parse-word dup c@ 0= \ if not spec given, use *.*
IF s" *.*" pocket place
! THEN dup count + 1- c@ [char] : = \ if just a drive, add \
IF s" \" pocket +place
! THEN dup count + 1- c@ dup [char] \ \ if it ends in a \,
! swap [char] / = or \ or a /, add *.*
IF s" *.*" pocket +place
THEN count print-dir-files ;
--- 310,319 ----
\ ** If "name" ends in : assume a drive use "name"\*.* for the search pattern. \n
\ *P The pattern can contain the standard Windows wildcards.
! /parse-word dup c@ 0= \ if not spec given, use *.*
IF s" *.*" pocket place
! THEN dup count + 1- c@ [char] : = \ if just a drive, add \
IF s" \" pocket +place
! THEN dup count + 1- c@ dup [char] \ = \ if it ends in a \,
! swap [char] / = or \ or a /, add *.*
IF s" *.*" pocket +place
THEN count print-dir-files ;
|
