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

UPD: Cleanup, removed hints

Browse source
This commit is contained in:
vitaliyg 2012-01-02 21:21:28 +00:00
commit c2841395ca
3 changed files with 63 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

14
sdk/dsxplugin.pas
View file

@ -1,5 +1,7 @@
unit DsxPlugin;
{$include calling.inc}
interface
uses
@ -47,18 +49,18 @@ type
{Prototypes}
{Callbacks procs}
TSAddFileProc = procedure(PluginNr: Integer; FoundFile: PChar); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
TSAddFileProc = procedure(PluginNr: Integer; FoundFile: PChar); dcpcall;
//if FoundFile='' then searching is finished
TSUpdateStatusProc = procedure(PluginNr: Integer; CurrentFile: PChar;
FilesScaned: Integer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
FilesScaned: Integer); dcpcall;
{Mandatory (must be implemented)}
TSInit = function(dps: PDsxDefaultParamStruct; pAddFileProc: TSAddFileProc;
pUpdateStatus: TSUpdateStatusProc): Integer; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
TSStartSearch = procedure(PluginNr: Integer; pSearchRec: PDsxSearchRecord); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
TSStopSearch = procedure(PluginNr: Integer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
TSFinalize = procedure(PluginNr: Integer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
pUpdateStatus: TSUpdateStatusProc): Integer; dcpcall;
TSStartSearch = procedure(PluginNr: Integer; pSearchRec: PDsxSearchRecord); dcpcall;
TSStopSearch = procedure(PluginNr: Integer); dcpcall;
TSFinalize = procedure(PluginNr: Integer); dcpcall;
implementation