mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0001657] Lua: Error to use internal environment variables from parent DC

Browse source
This commit is contained in:
Alexander Koblov 2016-12-11 14:16:13 +00:00
commit 09d172fc8b
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/uluapas.pas
View file

@ -35,7 +35,8 @@ function ExecuteScript(const FileName: String; Args: array of String): Boolean;
implementation
uses
Forms, Dialogs, LazUTF8, DCOSUtils, fMain, uFormCommands, uOSUtils, uGlobs;
Forms, Dialogs, LazUTF8, DCOSUtils, DCConvertEncoding, fMain, uFormCommands,
uOSUtils, uGlobs;
procedure luaPushSearchRec(L : Plua_State; var Rec: TSearchRec);
var
@ -119,6 +120,19 @@ begin
lua_pushboolean(L, mbDirectoryExists(lua_tostring(L, 1)));
end;
function luaGetEnvironmentVariable(L : Plua_State) : Integer; cdecl;
var
AValue: String;
begin
Result:= 1;
AValue:= mbGetEnvironmentVariable(luaL_checkstring(L, 1));
if (Length(AValue) = 0) then
lua_pushnil(L)
else begin
lua_pushstring(L, PAnsiChar(CeUtf8ToSys(AValue)));
end;
end;
function luaExecuteCommand(L : Plua_State) : Integer; cdecl;
var
Index,
@ -166,6 +180,10 @@ begin
lua_newtable(L);
luaP_register(L, 'ExecuteCommand', @luaExecuteCommand);
lua_setglobal(L, 'DC');
lua_getglobal(L, 'os');
luaP_register(L, 'getenv', @luaGetEnvironmentVariable);
lua_pop(L, 1);
end;
function ExecuteScript(const FileName: String; Args: array of String): Boolean;