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

added a few env variable to the symstrings, close #27

This commit is contained in:
Basile Burg 2016-03-19 01:49:39 +01:00
parent cea5cf757b
commit 65c92d6804
1 changed files with 27 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/ce_symstring.pas
View File

@ -13,7 +13,13 @@ type
(**
* Enumerates the symbol kinds, used to index an associative array.
*)
TCESymbol = (CAF, CAP, CFF, CFP, CI, CPF, CPP, CPO, CPR, CPN, CPFS, CPCD);
TCESymbol = ( ENV_USER, ENV_HOME, ENV_TEMP, CAF, CAP,
CFF, CFP, CI, CPF, CPP, CPO, CPR, CPN, CPFS, CPCD);
const
FirstVariableSymbol = CFF;
type
(**
* TCESymbolExpander is designed to expand Coedit symbolic strings,
@ -59,6 +65,18 @@ constructor TCESymbolExpander.Create;
begin
EntitiesConnector.addObserver(self);
fNeedUpdate := true;
//
{$IFDEF UNIX}
fSymbols[ENV_USER] := sysutils.GetEnvironmentVariable('USER');
fSymbols[ENV_HOME] := sysutils.GetEnvironmentVariable('HOME');
fSymbols[ENV_TEMP] := sysutils.GetEnvironmentVariable('TMPDIR');
{$ELSE}
fSymbols[ENV_USER] := sysutils.GetEnvironmentVariable('USERNAME');
fSymbols[ENV_HOME] := sysutils.GetEnvironmentVariable('HOMEPATH');
fSymbols[ENV_TEMP] := sysutils.GetEnvironmentVariable('TEMP');
{$ENDIF}
fSymbols[CAF] := Application.ExeName;
fSymbols[CAP] := fSymbols[CAF].extractFilePath;
end;
destructor TCESymbolExpander.Destroy;
@ -167,12 +185,8 @@ begin
hasProjItf := fProjInterface <> nil;
hasDoc := fDoc.isNotNil;
//
for e := low(TCESymbol) to high(TCESymbol) do
for e := FirstVariableSymbol to high(TCESymbol) do
fSymbols[e] := na;
//
// application
fSymbols[CAF] := Application.ExeName;
fSymbols[CAP] := fSymbols[CAF].extractFilePath;
// document
if hasDoc then
begin
@ -247,6 +261,10 @@ begin
begin
rng.popFront;
case sym of
'ENV_HOME': Result += fSymbols[ENV_HOME];
'ENV_TEMP': Result += fSymbols[ENV_TEMP];
'ENV_USER': Result += fSymbols[ENV_USER];
//
'CAF', 'CoeditApplicationFile': Result += fSymbols[CAF];
'CAP', 'CoeditApplicationPath': Result += fSymbols[CAP];
//
@ -261,6 +279,7 @@ begin
'CPP', 'CurrentProjectPath' : Result += fSymbols[CPP];
'CPR', 'CurrentProjectRoot' : Result += fSymbols[CPR];
'CPCD','CurrentProjectCommonDirectory': Result += fSymbols[CPCD];
//
else Result += '<' + sym + '>';
end;
end