forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added symbolic string <CPO>/<CurrentProjectOutput>

This commit is contained in:
Basile Burg 2014-11-26 17:50:29 +01:00
parent e49f60cc0a
commit 9a939ac470
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_symstring.pas
View File

@ -12,7 +12,7 @@ type
(** (**
* Enumerates the symbol kinds, used to index an associative array. * Enumerates the symbol kinds, used to index an associative array.
*) *)
TCESymbol = (CAF, CAP, CFF, CFP, CI, CPF, CPP, CPR, CPN, CPFS); TCESymbol = (CAF, CAP, CFF, CFP, CI, CPF, CPP, CPO, CPR, CPN, CPFS);
(** (**
* TCESymbolExpander is designed to expand Coedit symbolic strings, * TCESymbolExpander is designed to expand Coedit symbolic strings,
@ -150,6 +150,7 @@ begin
fSymbols[CPP] := ExtractFilePath(fProj.fileName); fSymbols[CPP] := ExtractFilePath(fProj.fileName);
fSymbols[CPR] := fProj.RootFolder; fSymbols[CPR] := fProj.RootFolder;
fSymbols[CPN] := extractFileName(fProj.fileName); fSymbols[CPN] := extractFileName(fProj.fileName);
fSymbols[CPO] := fProj.outputFilename;
extLen := length(ExtractFileExt(fSymbols[CPN])); extLen := length(ExtractFileExt(fSymbols[CPN]));
fSymbols[CPN] := fSymbols[CPN][1..length(fSymbols[CPN])-extLen]; fSymbols[CPN] := fSymbols[CPN][1..length(fSymbols[CPN])-extLen];
end else begin end else begin
@ -157,6 +158,7 @@ begin
fSymbols[CPP] := na; fSymbols[CPP] := na;
fSymbols[CPR] := na; fSymbols[CPR] := na;
fSymbols[CPN] := na; fSymbols[CPN] := na;
fSymbols[CPO] := na;
end; end;
fSymbols[CPFS] := ''; fSymbols[CPFS] := '';
for i := 0 to fProj.Sources.Count-1 do for i := 0 to fProj.Sources.Count-1 do
@ -173,6 +175,7 @@ begin
fSymbols[CPR] := na; fSymbols[CPR] := na;
fSymbols[CPN] := na; fSymbols[CPN] := na;
fSymbols[CPN] := na; fSymbols[CPN] := na;
fSymbols[CPO] := na;
fSymbols[CPFS]:= na; fSymbols[CPFS]:= na;
end; end;
end; end;
@ -231,6 +234,7 @@ begin
'CPF', 'CurrentProjectFile': result += fSymbols[CPF]; 'CPF', 'CurrentProjectFile': result += fSymbols[CPF];
'CPFS', 'CurrentProjectFiles': result += fSymbols[CPFS]; 'CPFS', 'CurrentProjectFiles': result += fSymbols[CPFS];
'CPN', 'CurrentProjectName': result += fSymbols[CPN]; 'CPN', 'CurrentProjectName': result += fSymbols[CPN];
'CPO', 'CurrentProjectOutput': result += fSymbols[CPO];
'CPP', 'CurrentProjectPath': result += fSymbols[CPP]; 'CPP', 'CurrentProjectPath': result += fSymbols[CPP];
'CPR', 'CurrentProjectRoot': result += fSymbols[CPR]; 'CPR', 'CurrentProjectRoot': result += fSymbols[CPR];
end; end;