[Win32forth-cvs] win32forth/src paths.f,1.34,1.35

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv21324/src

Modified Files:
	paths.f 
Log Message:
Moved &FORTHDIR into the kernel.

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** paths.f	29 Jun 2008 05:12:40 -0000	1.34
--- paths.f	19 Dec 2008 12:46:36 -0000	1.35
***************
*** 8,35 ****
  cr .( Loading Path Functions...)
  
- in-application
- 
- create &forthdir
- \ *G A static forth installation directory.
-                 MAXCOUNTED 1+ allot        &forthdir off
- 
- : init-Win32fDirectory { \ kernel$ -- }
- \ *G Set &forthdir to the folder of the current forth application. \n
-                 &prognam count "path-only" &forthdir place
-                 &forthdir c@ 0=
-                 if      \ if no dir specified make it the current dir
-                         current-dir$ count &forthdir place
-                 then
- 
-                 &forthdir c@
-                 if   &forthdir ?+\   \ append '\' if needed
-                      &forthdir +null \ append 0 terminator
-                 then ;
- 
- init-Win32fDirectory
- initialization-chain chain-add init-Win32fDirectory
- 
  IN-SYSTEM
  
  : .program      ( -- )
  \ *G Type the program path.
--- 8,16 ----
  cr .( Loading Path Functions...)
  
  IN-SYSTEM
  
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ 
  : .program      ( -- )
  \ *G Type the program path.
***************
*** 40,48 ****
                  &forthdir count type ;
  
- 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \  change directory
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
  : "chdir        ( a1 n1 -- )
  \ *G Set the current directory.
--- 21,30 ----
                  &forthdir count type ;
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \  change directory
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
+ IN-APPLICATION
+ 
  : "chdir        ( a1 n1 -- )
  \ *G Set the current directory.