[GExperts-Checkins] SF.net SVN: gexperts:[1910] trunk/ExternalSource/mPasLex.pas

[<tw...@us...>]

Revision: 1910
          http://sourceforge.net/p/gexperts/code/1910
Author:   twm
Date:     2017-02-04 18:29:17 +0000 (Sat, 04 Feb 2017)
Log Message:
-----------
added "Contains"

Modified Paths:
--------------
    trunk/ExternalSource/mPasLex.pas

Modified: trunk/ExternalSource/mPasLex.pas
===================================================================
--- trunk/ExternalSource/mPasLex.pas	2017-02-04 17:50:16 UTC (rev 1909)
+++ trunk/ExternalSource/mPasLex.pas	2017-02-04 18:29:17 UTC (rev 1910)
@@ -89,7 +89,7 @@
   TTokenKind = (tkAbsolute, tkAbstract, tkAddressOp, tkAnd, tkAnsiComment,
     tkArray, tkAs, tkAt, tkAsciiChar, tkAsm, tkAssembler, tkAssign, tkAutomated,
     tkBegin, tkBadString, tkBorComment, tkCase, tkCdecl, tkClass, tkColon,
-    tkComma, tkCompDirect, tkConst, tkConstructor, tkCRLF, tkCRLFCo, tkDefault,
+    tkComma, tkCompDirect, tkContains, tkConst, tkConstructor, tkCRLF, tkCRLFCo, tkDefault,
     tkDestructor, tkDispid, tkDispinterface, tkDiv, tkDo, tkDoubleAddressOp,
     tkDotDot, tkDownto, tkDynamic, tkElse, tkEnd, tkEqual, tkError, tkExcept,
     tkExport, tkExports, tkExternal, tkFar, tkFile, tkFinalization, tkFinally,
@@ -774,7 +774,8 @@
 
 function TmwPasLex.Func95: TTokenKind;
 begin
-  if KeyComp('Absolute') then Result := tkAbsolute else Result := tkIdentifier;
+  if KeyComp('Absolute') then Result := tkAbsolute else
+    if KeyComp('Contains') then Result := tkContains else Result := tkIdentifier;
 end;
 
 function TmwPasLex.Func96: TTokenKind;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.