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

codetools: h2p: started simplify directives#

Browse Source 
git-svn-id: trunk@14641 -
This commit is contained in:
mattias 2008-03-25 17:55:57 +00:00
parent f36a751b57
commit 00936481e1
2 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/examples/h2pastest.lpr
View File

@ -63,6 +63,7 @@ begin
Tool:=TH2PasTool.Create;
Tool.SourceName:=ExtractFileNameOnly(PasCode.Filename);
Tool.Defines['__cplusplus']:='1';
Tool.Convert(CCode,PasCode);
//Tool.WriteDebugReport;
//Tool.WriteH2PNodeReport;

24
components/codetools/h2pastool.pas
View File

@ -184,6 +184,9 @@ type
procedure WriteStr(const Line: string; s: TStream);
procedure WriteLnStr(const Line: string; s: TStream);
procedure SimplifyIfDirective(Node: TH2PDirectiveNode; const Expression: string;
var NextNode: TH2PDirectiveNode);
public
Tree: TH2PTree; // TH2PNode
DirectivesTree: TH2PTree; // TH2PDirectiveNode
@ -237,13 +240,14 @@ type
property Defines: TStringToStringTree read FDefines;
property Undefines: TStringToStringTree read FUndefines;// undefines take precedence over defines
// macros - temporary values - use Defines and Undefines
procedure ResetMacros;
procedure ClearMacros;
procedure InitMacros;
function FindMacro(const MacroName: string;
CreateIfNotExists: boolean = false): TH2PMacroStats;
function DefineMacro(const MacroName, AValue: string): TH2PMacroStats;
function UndefineMacro(const MacroName: string): TH2PMacroStats;
function DefineMacro(const MacroName, AValue: string): TH2PMacroStats;// use Defines instead
function UndefineMacro(const MacroName: string): TH2PMacroStats;// use Undefines instead
end;
@ -972,6 +976,12 @@ begin
WriteStr(Line+LineEnding,s);
end;
procedure TH2PasTool.SimplifyIfDirective(Node: TH2PDirectiveNode;
const Expression: string; var NextNode: TH2PDirectiveNode);
begin
end;
function TH2PasTool.Convert(CCode, PascalCode: TCodeBuffer): boolean;
begin
Result:=false;
@ -1081,10 +1091,16 @@ begin
while Node<>nil do begin
NextNode:=TH2PDirectiveNode(Node.Next);
case Node.Desc of
h2pdnIfDef, h2pdnIfNDef:
h2pdnDefine:
begin
DefineMacro(Node.MacroName,Node.Expression);
end;
h2pdnIfDef:
SimplifyIfDirective(Node,'defined('+Node.MacroName+')',NextNode);
h2pdnIfNDef:
SimplifyIfDirective(Node,'not defined('+Node.MacroName+')',NextNode);
h2pdnIf:
SimplifyIfDirective(Node,Node.Expression,NextNode);
end;
Node:=NextNode;
end;