Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4149/win32forth/src
Modified Files:
paths.f
Log Message:
gah: Spelling corrections and minor optimisation.
Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** paths.f 2 Dec 2006 10:14:51 -0000 1.28
--- paths.f 2 Dec 2006 15:17:06 -0000 1.29
***************
*** 59,65 ****
/parse-word count "chdir cr .dir ;
-
- IN-APPLICATION
-
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ Multiple directory path search capability for file open
--- 59,62 ----
***************
*** 68,78 ****
IN-APPLICATION
! : path: ( - )
\ *G Defines a directory search path. \n
\ ** The first 2 cells are used too handle a search path. \n
\ ** The next 260 bytes are reserved for a counted string of a path. \n
! \ ** followed by 0. \n
! \ ** In runtime it returns adres of the counted string of a path
! create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( - path )
[ 2 cells ] literal +
;
--- 65,75 ----
IN-APPLICATION
! : path: ( -- )
\ *G Defines a directory search path. \n
\ ** The first 2 cells are used too handle a search path. \n
\ ** The next 260 bytes are reserved for a counted string of a path. \n
! \ ** followed by null. \n
! \ ** At runtime it returns address of the counted string of a path.
! create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( -- path )
[ 2 cells ] literal +
;
***************
*** 80,87 ****
INTERNAL
! : path-source ( path - 2variable_path-source )
\ *G Path-source points to a substring in a path. \n
! \ ** Path-source returns this adress.
! 2 cells- ;
EXTERNAL
--- 77,83 ----
INTERNAL
! -2 cells offset path-source ( path -- 2variable_path-source )
\ *G Path-source points to a substring in a path. \n
! \ ** Path-source returns this address.
EXTERNAL
***************
*** 124,128 ****
: .path ( path -- ) \ w32f path system
\ *G Display a directory search path list.
! \ ** Note: The path source will be resetted for this path.
dup >r first-path"
begin dup
--- 120,124 ----
: .path ( path -- ) \ w32f path system
\ *G Display a directory search path list.
! \ ** Note: The path source will be reset for this path.
dup >r first-path"
begin dup
***************
*** 137,142 ****
INTERNAL
! : volume-indication? ( addr - flag )
! \ True when the counted string at adr starts with x: or \\name
dup 2 + c@ [char] : <>
if count drop 2 s" \\" compare 0=
--- 133,138 ----
INTERNAL
! : volume-indication? ( addr -- flag )
! \ True when the counted string at addr starts with x: or \\name
dup 2 + c@ [char] : <>
if count drop 2 s" \\" compare 0=
***************
*** 165,169 ****
: full-path { a1 n1 path \ searchpath$ filename$ current$ -- a2 n2 f1 }
\ *G Find the file \i a1,n1 \d in the path \i path \d and return the full path.
! \ ** \i a2,n2 \d . \i f1 \d = false if succeeded.
a1 n1 MAX-PATH 1+ LocalAlloc ascii-z to filename$ \ save file name
--- 161,165 ----
: full-path { a1 n1 path \ searchpath$ filename$ current$ -- a2 n2 f1 }
\ *G Find the file \i a1,n1 \d in the path \i path \d and return the full path.
! \ ** \i a2,n2 \d . \i f1 \d = false if successful.
a1 n1 MAX-PATH 1+ LocalAlloc ascii-z to filename$ \ save file name
|
