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

codetools: added keyword unimplemented

Browse Source 
git-svn-id: trunk@12353 -
This commit is contained in:
mattias 2007-10-06 18:45:15 +00:00
parent 38b6bffd7b
commit 9b445a52cc
3 changed files with 52 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/examples/fixdefinitionorder.lpi
View File

@ -26,10 +26,10 @@
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="LCL"/> <PackageName Value="CodeTools"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="CodeTools"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="3">

5
components/codetools/keywordfunclists.pas
View File

@ -683,8 +683,9 @@ begin
Add('REGISTER' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('REGISTER' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('REINTRODUCE' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('REINTRODUCE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('STDCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('STDCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VIRTUAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('STATIC' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('STATIC' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('UNIMPLEMENTED',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VIRTUAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
end; end;
IsKeyWordProcedureSpecifier:=TKeyWordFunctionList.Create; IsKeyWordProcedureSpecifier:=TKeyWordFunctionList.Create;
@ -716,6 +717,7 @@ begin
Add('STDCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('STDCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VARARGS' ,{$ifdef FPC}@{$endif}AllwaysTrue); // kylix Add('VARARGS' ,{$ifdef FPC}@{$endif}AllwaysTrue); // kylix
Add('UNIMPLEMENTED',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('[' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('[' ,{$ifdef FPC}@{$endif}AllwaysTrue);
end; end;
@ -735,6 +737,7 @@ begin
Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('PLATFORM' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('PLATFORM' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('UNIMPLEMENTED',{$ifdef FPC}@{$endif}AllwaysTrue);
end; end;
IsKeyWordProcedureBracketSpecifier:=TKeyWordFunctionList.Create; IsKeyWordProcedureBracketSpecifier:=TKeyWordFunctionList.Create;

20
components/codetools/pascalparsertool.pas
View File

@ -510,9 +510,11 @@ begin
CurNode.Desc:=CurSection; CurNode.Desc:=CurSection;
ReadNextAtom; // read source name ReadNextAtom; // read source name
AtomIsIdentifier(true); AtomIsIdentifier(true);
ReadNextAtom; // read ';' (or 'platform;') ReadNextAtom; // read ';' (or 'platform;' or 'unimplemented;')
if UpAtomIs('PLATFORM') then if UpAtomIs('PLATFORM') then
ReadNextAtom; ReadNextAtom;
if UpAtomIs('UNIMPLEMENTED') then
ReadNextAtom;
if (CurPos.Flag<>cafSemicolon) then if (CurPos.Flag<>cafSemicolon) then
RaiseCharExpectedButAtomFound(';'); RaiseCharExpectedButAtomFound(';');
if CurSection=ctnUnit then begin if CurSection=ctnUnit then begin
@ -3195,7 +3197,9 @@ begin
end; end;
if CurPos.Flag=cafEND then begin if CurPos.Flag=cafEND then begin
ReadNextAtom; ReadNextAtom;
if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') then ReadNextAtom; if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED')
then
ReadNextAtom;
end; end;
Result:=true; Result:=true;
end; end;
@ -3250,7 +3254,9 @@ begin
end; end;
if CurPos.Flag=cafEND then begin if CurPos.Flag=cafEND then begin
ReadNextAtom; ReadNextAtom;
if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') then ReadNextAtom; if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED')
then
ReadNextAtom;
end; end;
Result:=true; Result:=true;
end; end;
@ -3511,7 +3517,9 @@ begin
SaveRaiseException(ctsInvalidSubrange); SaveRaiseException(ctsInvalidSubrange);
CurNode.EndPos:=CurPos.StartPos; CurNode.EndPos:=CurPos.StartPos;
end; end;
if UpAtomIs('PLATFORM') or UpAtomIs('DEPRECATED') then ReadNextAtom; if UpAtomIs('PLATFORM') or UpAtomIs('DEPRECATED') or UpAtomIs('UNIMPLEMENTED')
then
ReadNextAtom;
end else begin end else begin
// enum or subrange // enum or subrange
ReadTillTypeEnd; ReadTillTypeEnd;
@ -3616,7 +3624,9 @@ begin
CurNode.EndPos:=CurPos.EndPos; CurNode.EndPos:=CurPos.EndPos;
EndChildNode; // close record EndChildNode; // close record
ReadNextAtom; ReadNextAtom;
if UpAtomIs('PLATFORM') or UpAtomIs('DEPRECATED') then ReadNextAtom; if UpAtomIs('PLATFORM') or UpAtomIs('DEPRECATED') or UpAtomIs('UNIMPLEMENTED')
then
ReadNextAtom;
Result:=true; Result:=true;
end; end;