paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 05:32:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: support abstract/sealed class modifiers

Browse Source 
git-svn-id: trunk@22211 -
This commit is contained in:
paul 2009-10-18 04:38:18 +00:00
parent 63838ba0cf
commit f1e1cc8ec1
2 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codetree.pas
View File

@ -143,6 +143,8 @@ const
ctnOnIdentifier =113;// e.g. on E: Exception
ctnOnStatement =114;
ctnClassAbstract =120;
ctnClassSealed =121;
// combined values
AllSourceTypes =
@ -165,6 +167,7 @@ const
[ctnClass,ctnClassInterface,ctnObject,ctnObjCClass,ctnObjCProtocol];
AllClassInterfaces = [ctnClassInterface,ctnObjCProtocol];
AllClassObjects = [ctnClass,ctnObject,ctnObjCClass];
AllClassModifiers = [ctnClassAbstract, ctnClassSealed];
AllDefinitionSections =
[ctnTypeSection,ctnVarSection,ctnConstSection,ctnResStrSection,
ctnLabelSection];

23
components/codetools/pascalparsertool.pas
View File

@ -153,6 +153,7 @@ type
function KeyWordFuncProc: boolean;
function KeyWordFuncBeginEnd: boolean;
// class/object elements
function KeyWordFuncClassModifier: boolean;
function KeyWordFuncClassSection: boolean;
function KeyWordFuncClassTypeSection: boolean;
function KeyWordFuncClassVarSection: boolean;
@ -415,6 +416,8 @@ begin
if StartPos>SrcLen then exit(false);
p:=@Src[StartPos];
case UpChars[p^] of
'A':
if CompareSrcIdentifiers(p,'ABSTRACT') then exit(KeyWordFuncClassModifier);
'C':
case UpChars[p[1]] of
'L': if CompareSrcIdentifiers(p,'CLASS') then exit(KeyWordFuncClassMethod);
@ -447,7 +450,8 @@ begin
end;
'S':
if CompareSrcIdentifiers(p,'STATIC') then exit(KeyWordFuncClassMethod)
else if CompareSrcIdentifiers(p,'STRICT') then exit(KeyWordFuncClassSection);
else if CompareSrcIdentifiers(p,'STRICT') then exit(KeyWordFuncClassSection)
else if CompareSrcIdentifiers(p,'SEALED') then exit(KeyWordFuncClassModifier);
'T':
if CompareSrcIdentifiers(p,'TYPE') then exit(KeyWordFuncClassTypeSection);
'V':
@ -2849,6 +2853,23 @@ begin
Result:=true;
end;
function TPascalParserTool.KeyWordFuncClassModifier: boolean;
// change class modifier (abstract, sealed)
begin
// end last section
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
// start modifier
CreateChildNode;
if UpAtomIs('ABSTRACT') then
CurNode.Desc:=ctnClassAbstract
else if UpAtomIs('SEALED') then
CurNode.Desc:=ctnClassSealed
else
RaiseStringExpectedButAtomFound('abstract/sealed');
Result:=true;
end;
function TPascalParserTool.KeyWordFuncType: boolean;
{ The 'type' keyword is the start of a type section.
examples: