[Win32forth-cvs] win32forth-stc/src extend.f, 1.25, 1.26 primutil.f, 1.36, 1.37

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24561

Modified Files:
	extend.f primutil.f 
Log Message:
Jos: Added shell.f. for the help menu. Other words also work.

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** primutil.f	6 Jul 2007 09:06:39 -0000	1.36
--- primutil.f	7 Jul 2007 14:26:15 -0000	1.37
***************
*** 383,386 ****
--- 383,424 ----
                  ;
  
+ 
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ \       LONG counted string support
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ ((
+ \ March 2nd, 2000 - 11:14 tjz
+ You must not store more than 4k beyond where you currently are into the
+ stack, and since LMAXCOUNTED is passed to LOCALALLOC: a bunch of times in
+ WinEd, we must limit long counted strings to significantly less than
+ the 4k limit. So, I am limiting long counted strings to 3k bytes.
+ ))
+ 
+ 1024                 CONSTANT LMAXCOUNTED    \ lines can be 1k characters long
+ LMAXCOUNTED 2 CELLS+ CONSTANT LMAXSTRING
+                             \ room for leading cell count and trailing cell null
+ 
+ : "LCLIP"       ( a1 n1 -- a1 n1 )   \ clip a string to between 0 and LINE-MAX
+         LMAXCOUNTED MIN 0 MAX ;
+ 
+ : LPLACE        ( addr len dest -- )
+         SWAP "LCLIP" SWAP
+         2DUP 2>R
+         CELL+ SWAP MOVE
+         2R> ! ;
+ 
+ : +LPLACE       ( addr len dest -- ) \ append string addr,len to LONG counted
+                                      \ string dest
+         >R "LCLIP" LMAXCOUNTED R@ @ - MIN R>   \ clip total to LINE-MAX string
+         2DUP 2>R
+         LCOUNT CHARS + SWAP MOVE
+         2R> +! ;
+ 
+ : C+LPLACE    ( c1 a1 -- )    \ append char c1 to the LONG counted string at a1
+         1 OVER +! LCOUNT + 1- C! ;
+ 
+ : +LNULL        ( a1 -- )       \ append a NULL just beyond the counted chars
+         LCOUNT + 0 SWAP C! ;
+         
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \ Limited support for the '#define' statment from 'C'

Index: extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/extend.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** extend.f	5 Jul 2007 20:06:05 -0000	1.25
--- extend.f	7 Jul 2007 14:26:15 -0000	1.26
***************
*** 43,46 ****
--- 43,61 ----
  
      FLOAD src\lib\BROWSEFLD.F \ SHBrowseForFolder() support
+     FLOAD src\Shell.f       \ load SHELL utility words
+ 
+ create config$ ," WIN32FOR.CFG"
+ create userconfig$ ," WIN32FORUSER.CFG"
+ 
+ \ ........ set the default system access strings ..........
+ \ -rbs make shell work in other drives
+ : set-shell
+         winver winnt351 >=
+         if      s" CMD.EXE "
+         else    s" c:\command.com " then
+         2dup dos$ place shell$ place
+         s" /c " shell$ +place ;
+ set-shell
+ 
      FLOAD src\console\ConsoleMenu.f