From 2d5bfb63742f66b7e45d76734e5f1a05f72f1546 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 16 Jun 2016 03:04:12 +0200
Subject: [PATCH] add the symbolic string CPOP (current project output path)

---
 src/ce_symstring.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ce_symstring.pas b/src/ce_symstring.pas
index a0761fd2..974912a4 100644
--- a/src/ce_symstring.pas
+++ b/src/ce_symstring.pas
@@ -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];