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

codetools: h2p: implemented writing enums as pascal

Browse Source 
git-svn-id: trunk@14630 -
This commit is contained in:
mattias 2008-03-25 09:45:07 +00:00
parent bd9c42bbd1
commit 2241f84b14
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/codetools/h2pastool.pas
View File

@ -984,6 +984,7 @@ begin
H2PNode:=Tree.Root;
while H2PNode<>nil do begin
case H2PNode.PascalDesc of
ctnVarDefinition:
begin
// global variable
@ -998,6 +999,7 @@ begin
end;
W(H2PNode.PascalName+': '+PascalCode);
end;
ctnTypeDefinition:
begin
// global variable
@ -1008,6 +1010,7 @@ begin
end else
DebugLn(['TH2PasTool.WritePascalToStream SKIPPING ',H2PNode.DescAsString]);
end;
ctnProcedure:
begin
// global procedure
@ -1047,6 +1050,30 @@ begin
end;
W(PascalCode);
end;
ctnEnumerationType:
begin
SetSection(ctnTypeSection);
// write start
PascalCode:=H2PNode.PascalName+' = (';
W(PascalCode);
IncIndent;
// write enums
ChildNode:=H2PNode.FirstChild;
while ChildNode<>nil do begin
PascalCode:=ChildNode.PascalName;
if ChildNode.PascalCode<>'' then
PascalCode:=PascalCode+' = '+ChildNode.PascalCode;
if ChildNode.NextBrother<>nil then
PascalCode:=PascalCode+',';
W(PascalCode);
ChildNode:=ChildNode.NextBrother;
end;
DecIndent;
// write end
W(');');
end;
else
DebugLn(['TH2PasTool.WritePascalToStream SKIPPING ',H2PNode.DescAsString]);
end;