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
! |
