[Win32forth-cvs] win32forth/src paths.f,1.28,1.29

[George H. <geo...@us...>]

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