Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21183/src/lib
Modified Files:
ScintillaLexer.f
Log Message:
- IN-PREVIOUS added. It restores the data area after a call to IN-APPLICATION IN-SYSTEM or IN-CODE.
Index: ScintillaLexer.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaLexer.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ScintillaLexer.f 17 Dec 2005 15:15:07 -0000 1.5
--- ScintillaLexer.f 13 Aug 2006 07:59:00 -0000 1.6
***************
*** 67,81 ****
create UserWords2
! ,{ ENVIRONMENT? MARKER DEFINITIONS ALSO ONLY PREVIOUS ANEW INTERNAL PRIVATE EXTERNAL MODULE }
! ,{ IN-APPLICATION IN-SYSTEM SYS-WARNING-OFF SYS-WARNING-ON IMMEDIATE POSTPONE }
! ,{ ' ['] [CHAR] [COMPILE] \IN-SYSTEM-OK \- \+ IN-CODE }
! ,{ #LEXICON LEXICON #VOCABULARY VOCABULARY }
create UserWords3
,{ [DEFINED] [UNDEFINED] [IF] [ELSE] [THEN] [ENDIF] }
! ,{ #IF #ELSE #THEN #ENDIF #IFDEF #IFNDEF }
,{ [ ] }
! ,{ INCLUDE-FILE INCLUDED $FLOAD FLOAD SYS-FLOAD OK "FLOAD INCLUDE NEEDS }
,{ FSAVE TURNKEY APPLICATION }
create UserWords4
--- 67,85 ----
create UserWords2
! ,{ VOCABULARY DEFINITIONS ALSO ONLY PREVIOUS }
! ,{ IN-APPLICATION IN-SYSTEM IN-CODE IN-PREVIOUS \IN-SYSTEM-OK \- \+ }
! ,{ SYS-WARNING-OFF SYS-WARNING-ON }
! ,{ MARKER ANEW INTERNAL PRIVATE EXTERNAL MODULE }
! ,{ ' ['] [CHAR] [COMPILE] POSTPONE IMMEDIATE }
! ,{ #LEXICON LEXICON #VOCABULARY }
! ,{ ENVIRONMENT? }
create UserWords3
,{ [DEFINED] [UNDEFINED] [IF] [ELSE] [THEN] [ENDIF] }
! ,{ #IFDEF #IFNDEF #IF #ELSE #THEN #ENDIF }
,{ [ ] }
! ,{ INCLUDE-FILE INCLUDED $FLOAD FLOAD SYS-FLOAD "FLOAD INCLUDE NEEDS }
,{ FSAVE TURNKEY APPLICATION }
+ ,{ OK }
create UserWords4
|
