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

add the symbolic string CPOP (current project output path)

This commit is contained in:
Basile Burg 2016-06-16 03:04:12 +02:00
parent 99ffaa3306
commit 2d5bfb6374
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_symstring.pas
View File

@ -14,7 +14,7 @@ type
* Enumerates the symbol kinds, used to index an associative array.
*)
TCESymbol = ( ENV_USER, ENV_HOME, ENV_TEMP, CAF, CAP,
CFF, CFP, CI, CPF, CPP, CPO, CPR, CPN, CPFS, CPCD);
CFF, CFP, CI, CPF, CPP, CPO, CPOP, CPR, CPN, CPFS, CPCD);
const
FirstVariableSymbol = CFF;
@ -206,6 +206,7 @@ begin
fSymbols[CPP] := fSymbols[CPF].extractFilePath;
fSymbols[CPN] := stripFileExt(fSymbols[CPF].extractFileName);
fSymbols[CPO] := fProjInterface.outputFilename;
fSymbols[CPOP]:= fSymbols[CPO].extractFileDir;
fSymbols[CPR] := fSymbols[CPP];
if fProjInterface.sourcesCount <> 0 then
begin
@ -287,6 +288,7 @@ begin
'CPFS','CurrentProjectFiles' : Result += fSymbols[CPFS];
'CPN', 'CurrentProjectName' : Result += fSymbols[CPN];
'CPO', 'CurrentProjectOutput' : Result += fSymbols[CPO];
'CPOP','CurrentProjectOutputPath' : Result += fSymbols[CPOP];
'CPP', 'CurrentProjectPath' : Result += fSymbols[CPP];
'CPR', 'CurrentProjectRoot' : Result += fSymbols[CPR];
'CPCD','CurrentProjectCommonDirectory': Result += fSymbols[CPCD];