From bbe860cdaf592da58dd4acf864c3e4bcfb115fb3 Mon Sep 17 00:00:00 2001
From: leontristain <ltristain@yahoo.com>
Date: Mon, 9 Dec 2019 00:23:33 -0800
Subject: [PATCH] allow ProgramPath to be overridable via an environment
 variable

---
 src/xeMeta.pas | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/xeMeta.pas b/src/xeMeta.pas
index f11e610..c797c56 100644
--- a/src/xeMeta.pas
+++ b/src/xeMeta.pas
@@ -291,6 +291,8 @@ function StoreNodes(nodes: TDynViewNodeDatas): Cardinal;
 
 {$region 'API functions'}
 procedure InitXEdit; cdecl;
+var
+  ProgramPath: String;
 begin
   // initialize variables
   _store := TInterfaceList.Create;
@@ -302,8 +304,24 @@ procedure InitXEdit; cdecl;
   // add welcome message
   AddMessage('XEditLib v' + ProgramVersion);
 
+  // resolve program path; we allow the program path default value to be
+  // overridden with an `XEDITLIB_PROGRAM_PATH` environment variable. If
+  // not provided or value is empty, the program path will default to the
+  // directory of the first parameter of the command line, which is typically
+  // the path of the program executable
+  //
+  // overriding the program path is useful for scenarios where XEditLib.dll
+  // is being wrapped by an interpreted language, in which case the program
+  // executable may be the path to the interpreter, which can be located in
+  // some system folder where data files related to XEditLib.dll cannot and
+  // should not be expected to be located at.
+  ProgramPath := GetEnvironmentVariable('XEDITLIB_PROGRAM_PATH');
+  if ProgramPath = '' then begin
+    ProgramPath := ExtractFilePath(ParamStr(0));
+  end;
+
   // store global values
-  Globals.Values['ProgramPath'] := ExtractFilePath(ParamStr(0));
+  Globals.Values['ProgramPath'] := ProgramPath;
   Globals.Values['Version'] := ProgramVersion;
   Globals.Values['FileCount'] := '0';
 end;