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
|
