paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 07:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF: Support keywords "experimental" and "unimplemented". Issue #27275, patch from BrunoK.

Browse Source 
git-svn-id: trunk@47327 -
This commit is contained in:
juha 2015-01-09 17:44:02 +00:00
parent 9c037e8287
commit 0c1a2ec8fe
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/jcf2/Parse/Tokens.pas
View File

@ -212,6 +212,10 @@ type
{ delphi 2009 } { delphi 2009 }
ttReference, ttReference,
{ Additional Free Pascal directives }
ttExperimental,
ttUnimplemented,
{ built-in constants } { built-in constants }
ttNil, ttNil,
ttTrue, ttTrue,
@ -335,13 +339,17 @@ const
ttReadOnly, ttWriteOnly, ttDispId, ttReadOnly, ttWriteOnly, ttDispId,
// hints // hints
ttDeprecated, ttLibrary, ttPlatform, ttDeprecated, ttLibrary, ttPlatform,
// free pascal hints
ttExperimental, ttUnimplemented,
// Delphi.Net // Delphi.Net
ttAdd, ttRemove ttAdd, ttRemove
]; ];
ExportDirectives: TTokenTypeSet = [ttIndex, ttName]; ExportDirectives: TTokenTypeSet = [ttIndex, ttName];
VariableDirectives: TTokenTypeSet = [ttAbsolute, ttDeprecated, ttLibrary, ttPlatform]; VariableDirectives: TTokenTypeSet = [ttAbsolute, ttDeprecated, ttLibrary, ttPlatform,
ttExperimental, ttUnimplemented];
ClassVisibility: TTokenTypeSet = ClassVisibility: TTokenTypeSet =
[ttPrivate, ttProtected, ttPublic, ttPublished, ttAutomated]; [ttPrivate, ttProtected, ttPublic, ttPublished, ttAutomated];
@ -351,11 +359,13 @@ const
ttVirtual, ttCdecl, ttMessage, ttName, ttRegister, ttDispId, ttVirtual, ttCdecl, ttMessage, ttName, ttRegister, ttDispId,
ttNear, ttDynamic, ttExport, ttOverride, ttResident, ttLocal, ttNear, ttDynamic, ttExport, ttOverride, ttResident, ttLocal,
ttOverload, ttReintroduce, ttOverload, ttReintroduce,
ttDeprecated, ttLibrary, ttPlatform, ttStatic, ttFinal, ttVarArgs, ttUnsafe, ttEnumerator]; ttDeprecated, ttLibrary, ttPlatform, ttExperimental, ttUnimplemented,
ttStatic, ttFinal, ttVarArgs, ttUnsafe, ttEnumerator];
ClassDirectives: TTokenTypeSet = ClassDirectives: TTokenTypeSet =
[ttPrivate, ttProtected, ttPublic, ttPublished, ttAutomated, ttStrict]; [ttPrivate, ttProtected, ttPublic, ttPublished, ttAutomated, ttStrict];
HintDirectives: TTokenTypeSet = [ttDeprecated, ttLibrary, ttPlatform]; HintDirectives: TTokenTypeSet = [ttDeprecated, ttLibrary, ttPlatform,
ttExperimental, ttUnimplemented];
AllDirectives: TTokenTypeSet = AllDirectives: TTokenTypeSet =
[ttAbsolute, ttExternal, ttPascal, ttSafecall, [ttAbsolute, ttExternal, ttPascal, ttSafecall,
@ -695,6 +705,9 @@ begin
{ delphi 2009 } { delphi 2009 }
AddKeyword('reference', wtReservedWordDirective, ttReference); AddKeyword('reference', wtReservedWordDirective, ttReference);
{ Additional Free Pascal directives }
AddKeyword('experimental', wtReservedWordDirective, ttExperimental);
AddKeyword('unimplemented', wtReservedWordDirective, ttUnimplemented);
{ operators that are words not symbols } { operators that are words not symbols }
AddKeyword('and', wtOperator, ttAnd); AddKeyword('and', wtOperator, ttAnd);