moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Merge branch 'lape-integration' into tests

This commit is contained in:
Merlijn Wajer 2011-10-01 23:31:54 +02:00
parent 0c93796e02 1019390f4e
commit 712d119aae
4 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/MMLAddon/LPInc/Wrappers/lp_file.inc
View File

@ -83,6 +83,11 @@ begin
PStringArray(Result)^ := ps_GetDirectories(Pstring(Params^[0])^);
end;
procedure Lape_DeleteFile(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_DeleteFile(Pstring(Params^[0])^);
end;
procedure Lape_WriteINI(const Params: PParamArray);
begin
ps_WriteINI(Pstring(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^, Pstring(Params^[3])^);

1
Units/MMLAddon/LPInc/lpexportedmethods.inc
View File

@ -216,6 +216,7 @@ AddGlobalFunc('function CreateDirectory(const DirectoryName: string): boolean',
AddGlobalFunc('function ForceDirectores(const dir: string): boolean', @Lape_ForceDirectores);
AddGlobalFunc('function GetFiles(const Path, Ext: string): TStringArray', @Lape_GetFiles);
AddGlobalFunc('function GetDirectories(const path: string): TStringArray', @Lape_GetDirectories);
AddGlobalFunc('function DeleteFile(const Filename: string): Boolean', @Lape_DeleteFile);
AddGlobalFunc('procedure WriteINI(const Section, KeyName, NewString, FileName: string);', @Lape_WriteINI);
AddGlobalFunc('function ReadINI(const Section, KeyName, FileName: string): string', @Lape_ReadINI);
AddGlobalFunc('procedure DeleteINI(const Section, KeyName, FileName: string);', @Lape_DeleteINI);

5
Units/MMLAddon/PSInc/Wrappers/file.inc
View File

@ -101,6 +101,11 @@ begin
result := GetDirectories(path);
end;
function ps_DeleteFile(const Filename: string): Boolean; extdecl;
begin
Result := DeleteFileUTF8(Filename);
end;
procedure ps_WriteINI(const Section, KeyName, NewString, FileName: string);extdecl;
var
tempini : TIniFile;

1
Units/MMLAddon/PSInc/psexportedmethods.inc
View File

@ -156,6 +156,7 @@ AddFunction(@ps_FileExists,'function FileExists (const FileName : string ) : Boo
AddFunction(@ps_ForceDirectores,'function ForceDirectories(const dir : string) : boolean;');
AddFunction(@ps_GetFiles,'function GetFiles(const Path, Ext : string) : TStringArray;');
AddFunction(@ps_GetDirectories,'function GetDirectories(const path : string) : TStringArray;');
AddFunction(@ps_DeleteFile, 'function DeleteFile(const Filename: string): Boolean;');
AddFunction(@ps_WriteINI,'procedure WriteINI(const Section, KeyName, NewString, FileName: string);');
AddFunction(@ps_ReadINI,'function ReadINI(const Section, KeyName, FileName: string): string;');
AddFunction(@ps_DeleteINI,'procedure DeleteINI(const Section, KeyName, FileName: string);');