Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18652/src
Modified Files:
paths.f
Log Message:
- Fixed a bug in full-path
Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/paths.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** paths.f 2 Dec 2006 15:17:06 -0000 1.5
--- paths.f 4 Dec 2006 17:58:15 -0000 1.6
***************
*** 247,254 ****
create path-file$ MAX-PATH 1+ allot
! : search-error ( addr -- )
\ return input file and error flag
! count path-file$ place path-file$ count
! true ;
6 PROC SearchPath
--- 247,253 ----
create path-file$ MAX-PATH 1+ allot
! : search-error ( addr n -- f )
\ return input file and error flag
! path-file$ place path-file$ count true ;
6 PROC SearchPath
***************
*** 295,299 ****
current$ restore-current \ restore current dir
! filename$ search-error ; \ return input file and error flag
: find-path { a1 n1 basepath path \ filename$ current$ search-current$ -- a2 n2 f1 }
--- 294,298 ----
current$ restore-current \ restore current dir
! filename$ zcount search-error ; \ return input file and error flag
: find-path { a1 n1 basepath path \ filename$ current$ search-current$ -- a2 n2 f1 }
***************
*** 333,337 ****
current$ restore-current \ restore current dir
! filename$ search-error ; \ return input file and error flag
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 332,336 ----
current$ restore-current \ restore current dir
! filename$ count search-error ; \ return input file and error flag
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
***************
*** 411,428 ****
\ ** Applications that let Forth compile should not change it.
- in-system
-
: "fbase-path+ ( a1 n1 -- ) \ w32f path
\ *G Append a directory to the Forth search base path.
search-base-path "path+ ;
- : fbase-path+ ( -<directory>- -- ) \ w32f path system
- \ *G Append a directory to the Forth search base path.
- /parse-s$ count "fbase-path+ ;
-
: "fpath+ ( a1 n1 -- ) \ w32f path
\ *G Append a directory to the Forth search path.
search-path "path+ ;
: fpath+ ( -<directory>- -- ) \ w32f path system
\ *G Append a directory to the Forth search path.
--- 410,427 ----
\ ** Applications that let Forth compile should not change it.
: "fbase-path+ ( a1 n1 -- ) \ w32f path
\ *G Append a directory to the Forth search base path.
search-base-path "path+ ;
: "fpath+ ( a1 n1 -- ) \ w32f path
\ *G Append a directory to the Forth search path.
search-path "path+ ;
+ in-system
+
+ : fbase-path+ ( -<directory>- -- ) \ w32f path system
+ \ *G Append a directory to the Forth search base path.
+ /parse-s$ count "fbase-path+ ;
+
: fpath+ ( -<directory>- -- ) \ w32f path system
\ *G Append a directory to the Forth search path.
|
