[Win32forth-cvs] win32forth/apps/Setup HYPER.F,1.3,1.4

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/Setup

Modified Files:
	HYPER.F 
Log Message:
Jos: Depreciated the old path-ptr and replaced path-ptr  by search-path

Index: HYPER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/HYPER.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** HYPER.F	3 May 2005 15:05:52 -0000	1.3
--- HYPER.F	26 Aug 2006 15:25:31 -0000	1.4
***************
*** 327,339 ****
                  if      after-cmd
                          2dup bl scan nip -              \ get line upto a blank
!                         "CLIP" path-ptr place           \ move in the directory list
!                         path-ptr count + 1- c@ ';' =    \ remove any trailing ';' chars
!                         if      path-ptr c@ 1- 0max path-ptr c!
                          then
!                         path-ptr c@ 0=
!                         if      base-path count path-ptr place    \ else use current path
                          then
!                         path-ptr c@ 0=
!                         if      current-dir$ count path-ptr place \ else use current directory
                          then
                  then    ;
--- 327,339 ----
                  if      after-cmd
                          2dup bl scan nip -              \ get line upto a blank
!                         "CLIP" search-path place           \ move in the directory list
!                         search-path count + 1- c@ ';' =    \ remove any trailing ';' chars
!                         if      search-path c@ 1- 0max search-path c!
                          then
!                         search-path c@ 0=
!                         if      base-path count search-path place    \ else use current path
                          then
!                         search-path c@ 0=
!                         if      current-dir$ count search-path place \ else use current directory
                          then
                  then    ;
***************
*** 430,434 ****
                  defext$ count mask-ptr +place   \ default to default file extension
                  &forthdir count base-path place
!                 path-ptr count base-path +place ;
  
  : read-config   ( -- )          \ read the hypertext word table for
--- 430,434 ----
                  defext$ count mask-ptr +place   \ default to default file extension
                  &forthdir count base-path place
!                 search-path count base-path +place ;
  
  : read-config   ( -- )          \ read the hypertext word table for
***************
*** 451,455 ****
  : build-index-message { index$ -- }
                  s" Building HyperText Index...\n\nPath: " index$  place
!                 path-ptr count                            index$ +place
                  s" \nMask: "                              index$ +place
                  mask-ptr count                            index$ +place
--- 451,455 ----
  : build-index-message { index$ -- }
                  s" Building HyperText Index...\n\nPath: " index$  place
!                 search-path count                         index$ +place
                  s" \nMask: "                              index$ +place
                  mask-ptr count                            index$ +place
***************
*** 538,542 ****
                          close-index
                  then    message-off
!                 base-path count path-ptr place
                  search-aborted?
                  if      s" User Aborted Index Compile\n" "message
--- 538,542 ----
                          close-index
                  then    message-off
!                 base-path count search-path place
                  search-aborted?
                  if      s" User Aborted Index Compile\n" "message
***************
*** 546,548 ****
  
  		$current-dir! ; \ restore current directory
!