Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv31134/win32forth/src
Modified Files:
floadcmdline.f paths.f
Log Message:
gah:Added missing \\ *Z to end of Dexing
Index: floadcmdline.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/floadcmdline.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** floadcmdline.f 4 Feb 2006 10:53:47 -0000 1.4
--- floadcmdline.f 27 Jul 2006 07:21:10 -0000 1.5
***************
*** 47,48 ****
--- 47,50 ----
1 pause-seconds
bye
+
+ \ *Z
Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** paths.f 22 Jul 2006 16:54:58 -0000 1.15
--- paths.f 27 Jul 2006 07:21:10 -0000 1.16
***************
*** 117,121 ****
then r>drop ;
! : "fpath+ ( a1 n1 path-ptr -- )
\ *G Append a directory to a path.
path-ptr "path+ ;
--- 117,121 ----
then r>drop ;
! : "fpath+ ( a1 n1 path-ptr -- )
\ *G Append a directory to a path.
path-ptr "path+ ;
***************
*** 127,131 ****
! : .path ( path-ptr -- )
\ *G Display a directory search path list.
count
--- 127,131 ----
! : .path ( path-ptr -- )
\ *G Display a directory search path list.
count
***************
*** 179,183 ****
EXTERNAL
! : program-path-init ( -- )
\ *G Initialize the Forth directory search path list.
path-ptr off \ clear path list
--- 179,183 ----
EXTERNAL
! : program-path-init ( -- )
\ *G Initialize the Forth directory search path list.
path-ptr off \ clear path list
***************
*** 211,215 ****
create open-path$ MAXSTRING allot
! : n"open ( a1 n1 -- handle f1 )
\ *G Open file a1,n1 with a Forth path search.
"path-file
--- 211,215 ----
create open-path$ MAXSTRING allot
! : n"open ( a1 n1 -- handle f1 )
\ *G Open file a1,n1 with a Forth path search.
"path-file
***************
*** 232,236 ****
EXTERNAL
! : MakeAbsolutePath ( a1 n1 a2 n2 -- a3 )
\ *G Make path a1 n1 absolute to path a2 n2.
?DUP \ only if a2 n2 point's to a path
--- 232,236 ----
EXTERNAL
! : MakeAbsolutePath ( a1 n1 a2 n2 -- a3 )
\ *G Make path a1 n1 absolute to path a2 n2.
?DUP \ only if a2 n2 point's to a path
***************
*** 244,252 ****
then <AbsRelPath$> dup +null ;
! : IsPathRelativeTo? { a1 n1 a2 n2 -- f }
\ *G Return true if path a1 n1 is relative to path a2 n2
a1 n1 n2 MIN a2 OVER ISTR= ;
! : MakePathRelativeTo ( a1 n1 a2 n2 -- a3 )
\ *G Make path a1 n1 relative to path a2 n2.
4DUP IsPathRelativeTo?
--- 244,252 ----
then <AbsRelPath$> dup +null ;
! : IsPathRelativeTo? { a1 n1 a2 n2 -- f }
\ *G Return true if path a1 n1 is relative to path a2 n2
a1 n1 n2 MIN a2 OVER ISTR= ;
! : MakePathRelativeTo ( a1 n1 a2 n2 -- a3 )
\ *G Make path a1 n1 relative to path a2 n2.
4DUP IsPathRelativeTo?
***************
*** 314,318 ****
"loaded? ;
! : \LOADED- ( -<name>- )
\ *G If the following file IS NOT LOADED interpret line.
>in @ >r
--- 314,318 ----
"loaded? ;
! : \LOADED- ( -<name>- )
\ *G If the following file IS NOT LOADED interpret line.
>in @ >r
***************
*** 343,347 ****
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! : "file-clip" { adr len limit \ temp$ pre -- 'adr 'len }
\ *G Clip filename to limit.
MAX-PATH LocalAlloc: temp$
--- 343,347 ----
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! : "file-clip" { adr len limit \ temp$ pre -- 'adr 'len }
\ *G Clip filename to limit.
MAX-PATH LocalAlloc: temp$
***************
*** 358,359 ****
--- 358,361 ----
MODULE
+
+ \ *Z
|
