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

ADD: Lua - SysUtils.CreateDirectory function

Browse source
This commit is contained in:
Alexander Koblov 2019-06-29 11:20:50 +00:00
commit 696c01e61b
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/uluapas.pas
View file

@ -38,7 +38,7 @@ implementation
uses
Forms, Dialogs, Clipbrd, LazUTF8, LCLVersion, uLng, DCOSUtils,
DCConvertEncoding, fMain, uFormCommands, uOSUtils, uGlobs, uLog,
uClipboard, uShowMsg, uLuaStd, uFindEx, uConvEncoding;
uClipboard, uShowMsg, uLuaStd, uFindEx, uConvEncoding, uFileProcs;
procedure luaPushSearchRec(L : Plua_State; Rec: PSearchRecEx);
begin
@ -133,6 +133,12 @@ begin
lua_pushboolean(L, mbDirectoryExists(lua_tostring(L, 1)));
end;
function luaCreateDirectory(L : Plua_State) : Integer; cdecl;
begin
Result:= 1;
lua_pushboolean(L, mbForceDirectory(lua_tostring(L, 1)));
end;
function luaExtractFilePath(L : Plua_State) : Integer; cdecl;
begin
Result:= 1;
@ -387,6 +393,7 @@ begin
luaP_register(L, 'FileGetAttr', @luaFileGetAttr);
luaP_register(L, 'GetTickCount', @luaGetTickCount);
luaP_register(L, 'DirectoryExists', @luaDirectoryExists);
luaP_register(L, 'CreateDirectory', @luaCreateDirectory);
luaP_register(L, 'ExtractFileExt', @luaExtractFileExt);
luaP_register(L, 'ExtractFileDir', @luaExtractFileDir);