Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20528/src/lib
Modified Files:
ExUtils.f
Log Message:
Fixed redefinition of tabsize.
Index: ExUtils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ExUtils.f 6 Jun 2006 02:58:24 -0000 1.3
--- ExUtils.f 7 Jun 2006 16:06:24 -0000 1.4
***************
*** 26,41 ****
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
--- 26,41 ----
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
***************
*** 51,55 ****
--- 51,57 ----
buffermax cell+ Pointer BufferAddress
+ [undefined] tabsize [if]
8 value tabsize
+ [then]
0 value #chars \ current number of characters on line
0 value #lines \ number lines written
***************
*** 91,95 ****
: z"append ( -- )
[char] z cappend "append bl cappend ;
!
: #append ( n -- )
(.) append bl cappend ;
--- 93,97 ----
: z"append ( -- )
[char] z cappend "append bl cappend ;
!
: #append ( n -- )
(.) append bl cappend ;
***************
*** 144,151 ****
evaluate
repeat ;
!
: fload-buffer ( addr cnt -- )
TheBuffer (fload-buffer) ;
!
/*
: ExecuteFile { addr cnt hndl \ temp$ -- } \ open file using default application
--- 146,153 ----
evaluate
repeat ;
!
: fload-buffer ( addr cnt -- )
TheBuffer (fload-buffer) ;
!
/*
: ExecuteFile { addr cnt hndl \ temp$ -- } \ open file using default application
|
