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

codetools: parser: added class operator copy and clone

Browse Source 
git-svn-id: trunk@53706 -
This commit is contained in:
mattias 2016-12-17 18:06:59 +00:00
parent bc9a802ce1
commit c9680cf88a
2 changed files with 19 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
components/codetools/pascalparsertool.pas
View File

@ -137,6 +137,7 @@ type
function GetExtraction(InUpperCase: boolean): string;
function ExtractStreamEndIsIdentChar: boolean;
procedure ExtractNextAtom(AddAtom: boolean; Attr: TProcHeadAttributes);
procedure CheckOperatorProc(IsOperator: boolean; var IsFunction: boolean); inline;
protected
// parsing
FLastCompilerMode: TCompilerMode;
@ -324,6 +325,18 @@ end;
{ TPascalParserTool }
// inline
procedure TPascalParserTool.CheckOperatorProc(IsOperator: boolean;
var IsFunction: boolean);
begin
if IsOperator then begin
AtomIsCustomOperator(true,true,true);
IsFunction:=not (UpAtomIs('INITIALIZE') or UpAtomIs('FINALIZE')
or UpAtomIs('COPY') or UpAtomIs('CLONE'));
end else
AtomIsIdentifierSaveE;
end;
constructor TPascalParserTool.Create;
begin
inherited Create;
@ -1239,11 +1252,7 @@ begin
IsOperator:=(not IsFunction) and UpAtomIs('OPERATOR');
// read name
ReadNextAtom;
if IsOperator then begin
AtomIsCustomOperator(true,true,true);
IsFunction:=not (UpAtomIs('INITIALIZE') or UpAtomIs('FINALIZE'));
end else
AtomIsIdentifierSaveE;
CheckOperatorProc(IsOperator,IsFunction);
// create node for procedure head
CreateChildNode;
CurNode.Desc:=ctnProcedureHead;
@ -2646,16 +2655,6 @@ var ChildCreated: boolean;
IsFunction, HasForwardModifier, IsClassProc, IsOperator, IsMethod: boolean;
ProcNode: TCodeTreeNode;
ParseAttr: TParseProcHeadAttributes;
procedure CheckProcName;
begin
if IsOperator then begin
AtomIsCustomOperator(true,true,true);
IsFunction:=not (UpAtomIs('INITIALIZE') or UpAtomIs('FINALIZE'));
end else
AtomIsIdentifierSaveE;
end;
begin
if UpAtomIs('CLASS') then begin
if not (CurSection in [ctnImplementation]+AllSourceTypes) then
@ -2683,7 +2682,7 @@ begin
IsOperator:=(not IsFunction) and UpAtomIs('OPERATOR');
IsMethod:=False;
ReadNextAtom;// read first atom of head (= name/operator + parameterlist + resulttype;)
CheckProcName;
CheckOperatorProc(IsOperator,IsFunction);
if ChildCreated then begin
// create node for procedure head
CreateChildNode;
@ -2709,7 +2708,7 @@ begin
// read procedure name of a class method (the name after the . )
IsMethod:=True;
ReadNextAtom;
CheckProcName;
CheckOperatorProc(IsOperator,IsFunction);
ReadNextAtom;
end;
end;
@ -5787,16 +5786,6 @@ var
ParseAttr: TParseProcHeadAttributes;
IsProcType: Boolean;
ProcHeadNode: TCodeTreeNode;
procedure CheckProcName;
begin
if IsOperator then begin
AtomIsCustomOperator(true,true,true);
IsFunction:=not (UpAtomIs('INITIALIZE') or UpAtomIs('FINALIZE'));
end else
AtomIsIdentifierSaveE;
end;
begin
if ProcNode.Desc=ctnProcedureHead then ProcNode:=ProcNode.Parent;
if ProcNode.Desc=ctnMethodMap then begin
@ -5845,7 +5834,7 @@ begin
if not IsProcType then begin
// read procedure name of a class method (the name after the . )
repeat
CheckProcName;
CheckOperatorProc(IsOperator,IsFunction);
ReadNextAtom;
if AtomIsChar('<') then
ReadGenericParam;

2
components/codetools/tests/testpascalparser.pas
View File

@ -139,6 +139,8 @@ begin
' // only IFDEF FPC_HAS_MANAGEMENT_OPERATORS',
' class operator Initialize(var t: TMyRecord);',
' class operator Finalize(var t: TMyRecord);',
' class operator Copy(var t: TMyRecord);',
' class operator Clone(constref t1: TMyRecord ; var t2: TMyRecord);',
' end;',
'',
'class operator TMyRecord.Implicit(t: TMyRecord): TMyRecord;',