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 strings CI and CS

This commit is contained in:
Basile Burg 2016-06-25 20:41:07 +02:00
parent ec50bdede7
commit 06157547f2
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

@ -14,7 +14,7 @@ type
* Enumerates the symbol kinds, used to index an associative array. * Enumerates the symbol kinds, used to index an associative array.
*) *)
TCESymbol = ( ENV_USER, ENV_HOME, ENV_TEMP, CAF, CAP, TCESymbol = ( ENV_USER, ENV_HOME, ENV_TEMP, CAF, CAP,
CFF, CFP, CI, CPF, CPP, CPO, CPOP, CPR, CPN, CPFS, CPCD); CFF, CFP, CI, CL, CPF, CPP, CPO, CPOP, CPR, CPN, CPFS, CPCD, CS);
const const
FirstVariableSymbol = CFF; FirstVariableSymbol = CFF;
@ -197,6 +197,8 @@ begin
fSymbols[CFP] := fDoc.fileName.extractFilePath; fSymbols[CFP] := fDoc.fileName.extractFilePath;
if fDoc.Identifier.isNotEmpty then if fDoc.Identifier.isNotEmpty then
fSymbols[CI] := fDoc.Identifier; fSymbols[CI] := fDoc.Identifier;
fSymbols[CL] := fDoc.LineText;
fSymbols[CS] := fDoc.SelText;
end; end;
// project interface // project interface
if hasProjItf then if hasProjItf then
@ -283,6 +285,8 @@ begin
'CFF', 'CurrentFileFile' : Result += fSymbols[CFF]; 'CFF', 'CurrentFileFile' : Result += fSymbols[CFF];
'CFP', 'CurrentFilePath' : Result += fSymbols[CFP]; 'CFP', 'CurrentFilePath' : Result += fSymbols[CFP];
'CI', 'CurrentIdentifier' : Result += fSymbols[CI]; 'CI', 'CurrentIdentifier' : Result += fSymbols[CI];
'CL', 'CUrrentLine' : Result += fSymbols[CL];
'CS', 'CurrentSelection' : Result += fSymbols[CS];
// //
'CPF', 'CurrentProjectFile' : Result += fSymbols[CPF]; 'CPF', 'CurrentProjectFile' : Result += fSymbols[CPF];
'CPFS','CurrentProjectFiles' : Result += fSymbols[CPFS]; 'CPFS','CurrentProjectFiles' : Result += fSymbols[CPFS];