From 864081102a5f252415f41950b3039a896b4ae9c5 Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Mon, 8 Oct 2012 18:43:29 +0000
Subject: Awkwars's plugins - welcome to our trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Actman/i_services.inc | 131 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 131 insertions(+)
 create mode 100644 plugins/Actman/i_services.inc

(limited to 'plugins/Actman/i_services.inc')

diff --git a/plugins/Actman/i_services.inc b/plugins/Actman/i_services.inc
new file mode 100644
index 0000000000..d835c9225a
--- /dev/null
+++ b/plugins/Actman/i_services.inc
@@ -0,0 +1,131 @@
+{Basic ActMan services}
+
+function ActFreeList(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
+begin
+  result:=0;
+  mFreeMem(PAnsiChar(lParam));
+end;
+
+function ActGetList(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
+var
+  pc:^tChain;
+  p:pHKRecord;
+  i,cnt:integer;
+begin
+  p:=@GroupList[0];
+  cnt:=0;
+  for i:=0 to MaxGroups-1 do
+  begin
+    if (p^.flags and (ACF_ASSIGNED or ACF_VOLATILE))=ACF_ASSIGNED then inc(cnt);
+    inc(p);
+  end;
+  result:=cnt;
+  if lParam=0 then exit;
+  if cnt>0 then
+  begin
+    mGetMem(pc,cnt*SizeOf(tChain)+4);
+    puint_ptr(lParam)^:=uint_ptr(pc);
+//    {$IFDEF WIN64}pqword{$ELSE}pdword{$ENDIF}(lParam)^:=uint_ptr(pc);
+    pdword(pc)^:=SizeOf(tChain);
+    inc(PByte(pc),4);
+
+    p:=@GroupList[0];
+    for i:=0 to MaxGroups-1 do
+    begin
+      if (p^.flags and (ACF_ASSIGNED or ACF_VOLATILE))=ACF_ASSIGNED then
+      begin
+        pc^.descr:=p^.descr;
+        pc^.id   :=p^.id;
+        pc^.flags:=p^.flags;
+        inc(pc);
+      end;
+      inc(p);
+    end;
+  end
+  else
+    puint_ptr(lParam)^:=0;
+//    {$IFDEF WIN64}pqword{$ELSE}pdword{$ENDIF}(lParam)^:=0;
+end;
+
+function ActRun(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
+var
+  i:integer;
+  p:pHKRecord;
+begin
+  result:=-1;
+  p:=@GroupList[0];
+  for i:=0 to MaxGroups-1 do
+  begin
+    if ((p^.flags and ACF_ASSIGNED)<>0) and (p^.id=dword(wParam)) then
+    begin
+      result:=p^.firstAction;
+      break;
+    end;
+    inc(p);
+  end;
+  if result>0 then
+    result:=ActionStarter(result,lParam,p);
+end;
+
+function ActRunGroup(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
+var
+  i:integer;
+  p:pHKRecord;
+begin
+  result:=-1;
+  p:=@GroupList[0];
+  for i:=0 to MaxGroups-1 do
+  begin
+    if ((p^.flags and ACF_ASSIGNED)<>0) and (StrCmpW(p^.descr,pWideChar(wParam))=0) then
+    begin
+      result:=p^.firstAction;
+      break;
+    end;
+    inc(p);
+  end;
+  if result>0 then
+    result:=ActionStarter(result,lParam,p);
+end;
+
+function ActRunParam(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
+var
+  i:integer;
+  p:pHKRecord;
+begin
+  result:=-1;
+  p:=@GroupList[0];
+  
+  if (pAct_Param(lParam)^.flags and ACTP_BYNAME)=0 then
+  begin
+    for i:=0 to MaxGroups-1 do
+    begin
+      if ((p^.flags and ACF_ASSIGNED)<>0) and (p^.id=pAct_Param(lParam)^.Id) then
+      begin
+        result:=p^.firstAction;
+        break;
+      end;
+      inc(p);
+    end;
+  end
+  else
+  begin
+    for i:=0 to MaxGroups-1 do
+    begin
+      if ((p^.flags and ACF_ASSIGNED)<>0) and
+         (StrCmpW(p^.descr,pWideChar(pAct_Param(lParam)^.Id))=0) then
+      begin
+        result:=p^.firstAction;
+        break;
+      end;
+      inc(p);
+    end;
+  end;
+
+  if result>0 then
+  begin
+    if (pAct_Param(lParam)^.flags and ACTP_WAIT)=0 then
+      result:=ActionStarter    (result,pAct_Param(lParam)^.wParam,p,pAct_Param(lParam)^.lParam)
+    else
+      result:=ActionStarterWait(result,pAct_Param(lParam)^.wParam,p,pAct_Param(lParam)^.lParam);
+  end;
+end;
-- 
cgit v1.2.3