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

codetools implemented parsing requires and contains section of packages

Browse Source 
git-svn-id: trunk@8977 -
This commit is contained in:
mattias 2006-03-22 00:42:43 +00:00
parent 44421a008a
commit e710e115ed
2 changed files with 80 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codetree.pas
View File

@ -70,7 +70,9 @@ const
ctnLabelSection = 14;
ctnPropertySection = 15;
ctnUsesSection = 16;
ctnExportsSection = 17;
ctnRequiresSection = 17;
ctnContainsSection = 18;
ctnExportsSection = 19;
ctnTypeDefinition = 20;
ctnVarDefinition = 21;
@ -327,6 +329,8 @@ begin
ctnResStrSection: Result:='Resource String Section';
ctnPropertySection: Result:='Property Section';
ctnUsesSection: Result:='Uses Section';
ctnRequiresSection: Result:='Requires Section';
ctnContainsSection: Result:='Contains Section';
ctnExportsSection: Result:='Exports Section';
ctnTypeDefinition: Result:='Type';

75
components/codetools/pascalparsertool.pas
View File

@ -184,6 +184,8 @@ type
function ReadParamList(ExceptionOnError, Extract: boolean;
const Attr: TProcHeadAttributes): boolean;
function ReadUsesSection(ExceptionOnError: boolean): boolean;
function ReadRequiresSection(ExceptionOnError: boolean): boolean;
function ReadContainsSection(ExceptionOnError: boolean): boolean;
function ReadSubRange(ExceptionOnError: boolean): boolean;
function ReadTilBlockEnd(StopOnBlockMiddlePart,
CreateNodes: boolean): boolean;
@ -448,6 +450,8 @@ begin
end;
procedure TPascalParserTool.BuildTree(OnlyInterfaceNeeded: boolean);
var
SourceType: TCodeTreeNodeDesc;
begin
{$IFDEF MEM_CHECK}CheckHeap('TBasicCodeTool.BuildTree A '+IntToStr(MemCheck_GetMem_Cnt));{$ENDIF}
{$IFDEF CTDEBUG}
@ -493,6 +497,7 @@ begin
CurSection:=ctnLibrary
else
SaveRaiseExceptionFmt(ctsNoPascalCodeFound,[GetAtom]);
SourceType:=CurSection;
CreateChildNode;
CurNode.Desc:=CurSection;
ReadNextAtom; // read source name
@ -516,6 +521,12 @@ begin
ReadNextAtom;
if UpAtomIs('USES') then
ReadUsesSection(true);
if (SourceType=ctnPackage) then begin
if UpAtomIs('REQUIRES') then
ReadRequiresSection(true);
if UpAtomIs('CONTAINS') then
ReadContainsSection(true);
end;
repeat
//DebugLn('[TPascalParserTool.BuildTree] ALL ',GetAtom);
if not DoAtom then break;
@ -1639,6 +1650,70 @@ begin
Result:=true;
end;
function TPascalParserTool.ReadRequiresSection(ExceptionOnError: boolean
): boolean;
{ parse requires section
examples:
requires name1, name2, name3;
}
begin
CreateChildNode;
CurNode.Desc:=ctnRequiresSection;
repeat
ReadNextAtom; // read name
if CurPos.Flag=cafSemicolon then break;
AtomIsIdentifier(true);
ReadNextAtom;
if CurPos.Flag=cafSemicolon then break;
if CurPos.Flag<>cafComma then
if ExceptionOnError then
RaiseCharExpectedButAtomFound(';')
else exit;
until (CurPos.StartPos>SrcLen);
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;
ReadNextAtom;
Result:=true;
end;
function TPascalParserTool.ReadContainsSection(ExceptionOnError: boolean
): boolean;
{ parse contains section
examples:
contains name1, name2 in '', name3;
}
begin
CreateChildNode;
CurNode.Desc:=ctnContainsSection;
repeat
ReadNextAtom; // read name
if CurPos.Flag=cafSemicolon then break;
AtomIsIdentifier(true);
ReadNextAtom;
if UpAtomIs('IN') then begin
ReadNextAtom;
if not AtomIsStringConstant then
if ExceptionOnError then
RaiseStringExpectedButAtomFound(ctsStringConstant)
else exit;
ReadNextAtom;
end;
if CurPos.Flag=cafSemicolon then break;
if CurPos.Flag<>cafComma then
if ExceptionOnError then
RaiseCharExpectedButAtomFound(';')
else exit;
until (CurPos.StartPos>SrcLen);
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;
ReadNextAtom;
Result:=true;
end;
function TPascalParserTool.ReadSubRange(ExceptionOnError: boolean): boolean;
{ parse subrange till ',' ';' ':' ']' or ')'