paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-29 04:57:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added TTransferMacroList.ExecuteMacro

Browse Source 
git-svn-id: trunk@34342 -
This commit is contained in:
mattias 2011-12-21 09:51:19 +00:00
parent 47ac6db82c
commit 43bd6fabc2
1 changed files with 44 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/transfermacros.pp
View File

@ -109,12 +109,16 @@ type
function FindByName(const MacroName: string): TTransferMacro; virtual; function FindByName(const MacroName: string): TTransferMacro; virtual;
function SubstituteStr(var s: string; const Data: PtrInt = 0; function SubstituteStr(var s: string; const Data: PtrInt = 0;
Depth: integer = 0): boolean; virtual; Depth: integer = 0): boolean; virtual;
procedure ExecuteMacro(const MacroName: string;
var MacroParam: string; const Data: PtrInt; out Handled, Abort: boolean;
Depth: integer);
class function StrHasMacros(const s: string): boolean; class function StrHasMacros(const s: string): boolean;
property OnSubstitution: TOnSubstitution property OnSubstitution: TOnSubstitution
read fOnSubstitution write fOnSubstitution; read fOnSubstitution write fOnSubstitution;
// error handling and loop detection
property MarkUnhandledMacros: boolean read FMarkUnhandledMacros property MarkUnhandledMacros: boolean read FMarkUnhandledMacros
write SetMarkUnhandledMacros default true; write SetMarkUnhandledMacros default true;
property MaxUsePerMacro: integer read FMaxUsePerMacro write FMaxUsePerMacro default 1; property MaxUsePerMacro: integer read FMaxUsePerMacro write FMaxUsePerMacro default 3;
end; end;
{ TLazIDEMacros } { TLazIDEMacros }
@ -330,13 +334,11 @@ begin
while (MacroStart<sLen) do begin while (MacroStart<sLen) do begin
if (s[MacroStart]<>'$') then if (s[MacroStart]<>'$') then
inc(MacroStart) inc(MacroStart)
else begin else if (s[MacroStart+1]='$') then // skip $$
if (s[MacroStart+1]='$') then // skip $$
inc(MacroStart,2) inc(MacroStart,2)
else else
break; break;
end; end;
end;
if MacroStart>=sLen then break; if MacroStart>=sLen then break;
MacroEnd:=MacroStart+1; MacroEnd:=MacroStart+1;
@ -345,6 +347,7 @@ begin
if (MacroEnd<sLen) and (s[MacroEnd] in ['(','{']) then begin if (MacroEnd<sLen) and (s[MacroEnd] in ['(','{']) then begin
MacroName:=copy(s,MacroStart+1,MacroEnd-MacroStart-1); MacroName:=copy(s,MacroStart+1,MacroEnd-MacroStart-1);
//debugln(['TTransferMacroList.SubstituteStr FUNC ',MacroName]);
MacroEnd:=SearchBracketClose(MacroEnd)+1; MacroEnd:=SearchBracketClose(MacroEnd)+1;
if MacroEnd>sLen+1 then break; if MacroEnd>sLen+1 then break;
OldMacroLen:=MacroEnd-MacroStart; OldMacroLen:=MacroEnd-MacroStart;
@ -357,6 +360,8 @@ begin
// Macro function -> substitute macro parameter first // Macro function -> substitute macro parameter first
MacroParam:=copy(MacroStr,length(MacroName)+3, MacroParam:=copy(MacroStr,length(MacroName)+3,
length(MacroStr)-length(MacroName)-3); length(MacroStr)-length(MacroName)-3);
//if MacroName='PATH' then
// debugln(['TTransferMacroList.SubstituteStr START MacroName=',MacroName,' Param="',MacroParam,'"']);
AMacro:=FindByName(MacroName); AMacro:=FindByName(MacroName);
InUse:=0; InUse:=0;
if fBusy<>nil then begin if fBusy<>nil then begin
@ -383,7 +388,11 @@ begin
finally finally
fBusy.Delete(fBusy.Count-1); fBusy.Delete(fBusy.Count-1);
end; end;
//if MacroName='PATH' then
// debugln(['TTransferMacroList.SubstituteStr AFTER PARAM MacroName=',MacroName,' Param="',MacroParam,'"']);
DoSubstitution(AMacro,MacroName,MacroParam,Data,Handled,Abort,Depth+LoopDepth); DoSubstitution(AMacro,MacroName,MacroParam,Data,Handled,Abort,Depth+LoopDepth);
//if MacroName='PATH' then
// debugln(['TTransferMacroList.SubstituteStr AFTER EVENT MacroName=',MacroName,' Param="',MacroParam,'"']);
if Handled then if Handled then
MacroStr:=MacroParam MacroStr:=MacroParam
else if Abort then begin else if Abort then begin
@ -393,6 +402,8 @@ begin
end; end;
if (not Handled) and (AMacro<>nil) and (Assigned(AMacro.MacroFunction)) if (not Handled) and (AMacro<>nil) and (Assigned(AMacro.MacroFunction))
then begin then begin
//if MacroName='PATH' then
// debugln(['TTransferMacroList.SubstituteStr BEFORE FUNC MacroName=',MacroName,' Param="',MacroParam,'"']);
MacroStr:=AMacro.MacroFunction(MacroParam,Data,Abort); MacroStr:=AMacro.MacroFunction(MacroParam,Data,Abort);
if Abort then begin if Abort then begin
Result:=false; Result:=false;
@ -404,7 +415,11 @@ begin
// Macro variable // Macro variable
MacroName:=copy(s,MacroStart+2,OldMacroLen-3); MacroName:=copy(s,MacroStart+2,OldMacroLen-3);
AMacro:=FindByName(MacroName); AMacro:=FindByName(MacroName);
//if MacroName='TARGETFILE' then
// debugln(['TTransferMacroList.SubstituteStr VAR 1 ',MacroName,' ',AMacro<>nil]);
DoSubstitution(AMacro,MacroName,MacroName,Data,Handled,Abort,Depth+LoopDepth); DoSubstitution(AMacro,MacroName,MacroName,Data,Handled,Abort,Depth+LoopDepth);
//if MacroName='TARGETFILE' then
// debugln(['TTransferMacroList.SubstituteStr VAR 2 ',MacroName,' ',AMacro<>nil]);
if Handled then if Handled then
MacroStr:=MacroName MacroStr:=MacroName
else if Abort then begin else if Abort then begin
@ -481,6 +496,27 @@ begin
end; end;
end; end;
procedure TTransferMacroList.ExecuteMacro(const MacroName: string;
var MacroParam: string; const Data: PtrInt; out Handled, Abort: boolean;
Depth: integer);
var
Macro: TTransferMacro;
begin
Handled:=false;
Abort:=false;
Macro:=FindByName(MacroName);
DoSubstitution(Macro,MacroName,MacroParam,Data,Handled,Abort,Depth);
if Abort or Handled then exit;
if Macro=nil then exit;
if Assigned(Macro.MacroFunction) then begin
MacroParam:=Macro.MacroFunction(MacroParam,Data,Abort);
if Abort then exit;
end else begin
MacroParam:=Macro.Value;
end;
Handled:=true;
end;
class function TTransferMacroList.StrHasMacros(const s: string): boolean; class function TTransferMacroList.StrHasMacros(const s: string): boolean;
// search for $( or $xxx( // search for $( or $xxx(
var var
@ -544,6 +580,7 @@ function TTransferMacroList.MF_Path(const Filename:string;
const Data: PtrInt; var Abort: boolean):string; const Data: PtrInt; var Abort: boolean):string;
begin begin
Result:=TrimFilename(ExtractFilePath(Filename)); Result:=TrimFilename(ExtractFilePath(Filename));
//debugln(['TTransferMacroList.MF_Path ',Filename,' Result=',Result]);
end; end;
function TTransferMacroList.MF_Name(const Filename:string; function TTransferMacroList.MF_Name(const Filename:string;