[Win32forth-cvs] win32forth/src floadcmdline.f, 1.4, 1.5 paths.f, 1.15, 1.16

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

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