[Win32forth-cvs] win32forth/src/lib ExUtils.f,1.1,1.2

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28837/src/lib

Modified Files:
	ExUtils.f 
Log Message:
Slight mods.

Index: ExUtils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ExUtils.f	21 Aug 2005 06:22:01 -0000	1.1
--- ExUtils.f	1 Nov 2005 23:20:19 -0000	1.2
***************
*** 9,13 ****
  The following routines uses shared memory for interprocess communication. Uses
  the last 1k for info passing, arbitrarily reserving the first 24 bytes for
! process ids. First cell will identify ForthForm.
  comment;
  
--- 9,13 ----
  The following routines uses shared memory for interprocess communication. Uses
  the last 1k for info passing, arbitrarily reserving the first 24 bytes for
! process ids. First cell will identify ForthForm. Second celll identifies Project Manager.
  comment;
  
***************
*** 17,20 ****
--- 17,21 ----
  ed-size msg-buff-len - constant msg-offset  \ start of message buffer for ForthForm
  102378530 constant FFormID              \ identify ForthForm
+ 872015346 constant ProMgrID             \ identify Project Manager
  0 value msg-buffer                      \ pointer to buffer, set at runtime
  0 value param-buffer
***************
*** 25,28 ****
--- 26,45 ----
                          msg-buffer [ 6 cells ] LITERAL + to param-buffer
                    then  ;
+                   
+ : ?fform-started   ( -- f )
+                    msg-buffer @ FFormID = ;
+                    
+ : ?promgr-started ( -- f )
+                    msg-buffer cell+ @ ProMgrID = ;
+                    
+ : fform-started    ( f -- )
+                    if         FFormID
+                    else       0
+                    then       msg-buffer ! ;
+                    
+ : promgr-started   ( f -- )
+                    if         ProMgrID
+                    else       0
+                    then       msg-buffer cell+ ! ;
  
  newproc FF_ACTIVATE  \ sent on startup
***************
*** 31,35 ****
  
  \ String building routines
! 1024 64 * constant buffermax
  buffermax cell+ Pointer BufferAddress
  
--- 48,52 ----
  
  \ String building routines
! 1024 128 * constant buffermax
  buffermax cell+ Pointer BufferAddress
  
***************
*** 66,75 ****
                  +chars ;
  
- : s"append      ( -- )
-                 [char] s cappend [char] " cappend bl cappend ;
- 
  : "append       ( -- )
                  [char] " cappend ;
  
  : +crlf         ( -- )
                  0x0D cappend 0x0A cappend
--- 83,98 ----
                  +chars ;
  
  : "append       ( -- )
                  [char] " cappend ;
  
+ : s"append      ( -- )
+                 [char] s cappend "append bl cappend ;
+ 
+ : z"append      ( -- )
+                 [char] z cappend "append bl cappend ;
+                 
+ : #append       ( n -- )
+                 (.) append bl cappend ;
+ 
  : +crlf         ( -- )
                  0x0D cappend 0x0A cappend
***************
*** 134,138 ****
                  addr cnt "path-only" temp$ place
                  temp$ +NULL
!                 NULL                        \ nShowCmd
                  temp$ 1+              \ default directory
                  Null                        \ parameters
--- 157,161 ----
                  addr cnt "path-only" temp$ place
                  temp$ +NULL
!                 SW_SHOWNORMAL		                        \ nShowCmd
                  temp$ 1+              \ default directory
                  Null                        \ parameters