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

codetools: h2p: parsing ifdef, undef, ifndef

Browse Source 
git-svn-id: trunk@14582 -
This commit is contained in:
mattias 2008-03-19 12:38:51 +00:00
parent 2db3882300
commit d3f729367b
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/h2pastool.pas
View File

@ -533,6 +533,7 @@ var
Directive: String;
PascalCode: String;
H2PNode: TH2PNode;
CurName: String;
begin
Directive:=CTool.ExtractDirectiveAction(CNode);
if Directive='include' then begin
@ -545,12 +546,27 @@ begin
// #define NONFMAC some text here
end else if Directive='undef' then begin
// #undef NAME
CurName:=CTool.ExtractDirectiveFirstAtom(CNode);
H2PNode:=CreateH2PNode('#undef','#undef',CNode,ctnNone,
CurName,ParentNode,false);
DebugLn(['TH2PasTool.ConvertDirective added $undef: ',H2PNode.DescAsString]);
exit;
end else if Directive='if' then begin
// #if EXPRESSION
end else if Directive='ifdef' then begin
// #ifdef NAME
CurName:=CTool.ExtractDirectiveFirstAtom(CNode);
H2PNode:=CreateH2PNode('#ifdef','#ifdef',CNode,ctnNone,
CurName,ParentNode,false);
DebugLn(['TH2PasTool.ConvertDirective added $ifdef: ',H2PNode.DescAsString]);
exit;
end else if Directive='ifndef' then begin
// #ifndef NAME
CurName:=CTool.ExtractDirectiveFirstAtom(CNode);
H2PNode:=CreateH2PNode('#ifndef','#ifndef',CNode,ctnNone,
CurName,ParentNode,false);
DebugLn(['TH2PasTool.ConvertDirective added $ifndef: ',H2PNode.DescAsString]);
exit;
end else if Directive='elif' then begin
// #elif EXPRESSION
end else if Directive='else' then begin