Actman 2.0 is moved to deprecated, Actman 3.0 is a new default Actman (with database settings converter from older version)

git-svn-id: http://svn.miranda-ng.org/main/trunk@11533 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 571 insertions, 0 deletions

diff --git a/plugins/Actman/iac_global.pas b/plugins/Actman/iac_global.pas
new file mode 100644
index 0000000000..03425c6027
--- /dev/null
+++ b/plugins/Actman/iac_global.pas
@@ -0,0 +1,571 @@
+unit iac_global;

+

+interface

+

+uses

+  windows, messages,

+  m_api;

+

+var

+  xmlparser:TXML_API_W;

+

+const

+  IcoLibPrefix = 'action_type_';

+const

+  NoDescription:PWideChar='No description';

+const

+  protostr = '<proto>';

+const

+  WM_ACT_SETVALUE   = WM_USER + 13;

+  WM_ACT_RESET      = WM_USER + 14;

+  WM_ACT_SAVE       = WM_USER + 15;

+  WM_ACT_LISTCHANGE = WM_USER + 16; // group, action

+

+// Action flags

+const

+  ACF_DISABLED   = $10000000; // action disabled

+  // options editor only

+  ACF_REPLACED   = $20000000; // action replaced by new in options

+  ACF_INTRODUCED = $40000000; // action is newly created (not saved) in options

+const

+  ACF_MASK       = $00FFFFFF; // mask for private action flags

+

+type

+  tLRType = record

+    value:uint_ptr;

+    rtype:byte; // rt* const

+  end;

+type

+  pWorkData = ^tWorkData;

+  tWorkData = record

+    Parameter  :LPARAM;

+    ActionList :pointer;

+    LastResult :uint_ptr;

+    ActionCount:integer;

+    ResultType :integer;   // rt* const

+    Storage    :array [0..9] of tLRType;

+  end;

+

+type

+  pBaseAction = ^tBaseAction;

+  tBaseAction = class

+    ActionDescr:pWideChar; // description (user name)

+    UID        :dword;     // hash of action type name

+    flags      :dword;

+

+    procedure Duplicate(var dst:tBaseAction);

+

+    constructor Create(uid:dword);

+    destructor Destroy; override;

+//    function  Clone:tBaseAction; virtual;

+    function  DoAction(var WorkData:tWorkData):LRESULT; virtual; // process action

+    procedure Load(node:pointer;fmt:integer); virtual;           // load/import action

+    procedure Save(node:pointer;fmt:integer); virtual;           // save/export action

+  end;

+

+type

+  tCreateActionFunc = function:tBaseAction;

+  tCreateDialogFunc = function(parent:HWND):HWND;

+//  tCheckImportFunc  = function(node:pointer;fmt:integer):boolean;

+

+type

+  pActModule = ^tActModule;

+  tActModule = record

+    Next     :pActModule;

+    Name     :pAnsiChar;         // action type name

+    Dialog   :tCreateDialogFunc; // action dialog creating

+    Create   :tCreateActionFunc; // action object creation

+//    CheckImp :tCheckImportFunc;  // check for action type

+    Icon     :pAnsiChar;         // icon resource name

+    // runtime data

+    DlgHandle:HWND;

+    Hash     :dword;             // will be calculated at registration cycle

+  end;

+

+const

+  ModuleLink:pActModule=nil;

+

+function ClearResult(var WorkData:tWorkData;num:integer=-1):uint_ptr;

+function GetResultNumber(var WorkData:tWorkData;num:integer=-1):uint_ptr;

+

+procedure InsertString(wnd:HWND;num:dword;str:PAnsiChar);

+

+function GetLinkName(hash:dword):PAnsiChar;

+function GetLink(hash:dword):pActModule;

+function GetLinkByName(name:pAnsiChar):pActModule;

+

+function ImportContact   (node:HXML   ):TMCONTACT;

+function ImportContactINI(node:pointer):TMCONTACT;

+

+

+implementation

+

+uses Common, global, dbsettings, inouttext,

+  mirutils, mircontacts;

+

+

+//----- tBaseAction code -----

+const

+  ioDisabled = 'disabled';

+  ioName     = 'name';

+const

+  opt_uid   = 'uid';

+  opt_descr = 'descr';

+  opt_flags = 'flags';

+

+constructor tBaseAction.Create(uid:dword);

+begin

+  inherited Create;

+

+  if uid<>0 then

+  begin

+    StrDupW(ActionDescr,NoDescription);

+    Self.UID:=uid;

+    flags:=0;

+  end;

+end;

+

+destructor tBaseAction.Destroy;

+begin

+  mFreeMem(ActionDescr);

+

+  inherited Destroy;

+end;

+

+procedure tBaseAction.Duplicate(var dst:tBaseAction);

+begin

+  StrDupW(dst.ActionDescr,ActionDescr);

+  dst.UID  :=UID;

+  dst.flags:=flags;

+end;

+{

+function tBaseAction.Clone:tBaseAction;

+begin

+  //dummy

+  result:=nil;

+end;

+}

+function tBaseAction.DoAction(var WorkData:tWorkData):LRESULT;

+begin

+  result:=0;

+  // nothing

+end;

+

+procedure tBaseAction.Load(node:pointer;fmt:integer);

+var

+  section: array [0..127] of AnsiChar;

+  pc:pAnsiChar;

+begin

+  case fmt of

+    100..199, // for V2

+    0: begin

+      pc:=StrCopyE(section,pAnsiChar(node));

+      mFreeMem(ActionDescr); // created by constructor

+      StrCopy(pc,opt_descr); ActionDescr:=DBReadUnicode(0,DBBranch,section,NoDescription);

+      StrCopy(pc,opt_flags); flags      :=DBReadDword  (0,DBBranch,section);

+      // UID reading in main program, set by constructor

+    end;

+

+    1: begin

+      with xmlparser do

+      begin

+        if StrToInt(getAttrValue(HXML(node),ioDisabled))=1 then

+          flags:=flags or ACF_DISABLED;

+

+        StrDupW(ActionDescr,getAttrValue(HXML(node),ioName));

+      end;

+    end;

+{

+    2: begin

+      if GetParamSectionInt(node,ioDisabled))=1 then

+        flags:=flags or ACF_DISABLED;

+

+      UF8ToWide(GetParamSectionStr(node,ioName),ActionDescr);

+    end;

+}

+  end;

+end;

+

+procedure tBaseAction.Save(node:pointer;fmt:integer);

+var

+  section: array [0..127] of AnsiChar;

+  pc:PAnsiChar;

+begin

+  case fmt of

+    0: begin

+      pc:=StrCopyE(section,pAnsiChar(node));

+      StrCopy(pc,opt_uid  ); DBWriteDWord  (0,DBBranch,section,UID);

+      StrCopy(pc,opt_flags); DBWriteDWord  (0,DBBranch,section,flags);

+      StrCopy(pc,opt_descr); DBWriteUnicode(0,DBBranch,section,ActionDescr);

+    end;

+{

+    1: begin

+    end;

+}

+    13: begin

+      tTextExport(node).AddText ('type'    ,GetLinkName(UID));

+      tTextExport(node).AddTextW('name'    ,ActionDescr);

+      tTextExport(node).AddFlag ('disabled',(flags and ACF_DISABLED)<>0);

+      tTextExport(node).AddNewLine();

+      tTextExport(node).ShiftRight();

+    end;

+  end;

+end;

+

+//----- LastResult processing -----

+

+function ClearResult(var WorkData:tWorkData;num:integer=-1):uint_ptr;

+var

+  rt:pbyte;

+  lr:^uint_ptr;

+begin

+  result:=0;

+

+  if num<0 then

+  begin

+    rt:=@WorkData.ResultType;

+    lr:=@WorkData.LastResult;

+  end

+  else if num<10 then

+  begin

+    rt:=@WorkData.Storage[num].rtype;

+    lr:=@WorkData.Storage[num].value;

+  end

+  else

+    exit;

+

+  if rt^=rtInt then

+    result:=lr^

+  else if rt^<>rtUnkn then

+  begin

+    mFreeMem(pWideChar(lr^));

+    result:=0;

+  end;

+end;

+

+function GetResultNumber(var WorkData:tWorkData;num:integer=-1):uint_ptr;

+var

+  rt:pbyte;

+  lr:^uint_ptr;

+begin

+  result:=0;

+

+  if num<0 then

+  begin

+    rt:=@WorkData.ResultType;

+    lr:=@WorkData.LastResult;

+  end

+  else if num<10 then

+  begin

+    rt:=@WorkData.Storage[num].rtype;

+    lr:=@WorkData.Storage[num].value;

+  end

+  else

+    exit;

+

+  if rt^=rtInt then

+    result:=lr^

+  else if rt^<>rtUnkn then

+  begin

+    result:=NumToInt(pWideChar(lr^));

+{

+    if (pWideChar(WorkData.LastResult)[0]='$') and

+       (AnsiChar(pWideChar(WorkData.LastResult)[1]) in sHexNum) then

+      result:=HexToInt(pWideChar(WorkData.LastResult)+1)

+    else

+    if (pWideChar(WorkData.LastResult)[0]='0') and

+       (pWideChar(WorkData.LastResult)[1]='x') and

+       (AnsiChar(pWideChar(WorkData.LastResult)[2]) in sHexNum) then

+      result:=HexToInt(pWideChar(WorkData.LastResult)+2)

+    else

+      result:=StrToInt(pWideChar(WorkData.LastResult));

+}

+  end;

+end;

+

+procedure InsertString(wnd:HWND;num:dword;str:PAnsiChar);

+var

+  buf:array [0..127] of WideChar;

+begin

+  SendMessageW(wnd,CB_SETITEMDATA,

+      SendMessageW(wnd,CB_ADDSTRING,0,

+          lparam(TranslateW(FastAnsiToWideBuf(str,buf)))),

+      num);

+{

+  SendMessageW(wnd,CB_INSERTSTRING,num,

+      dword(TranslateW(FastAnsiToWideBuf(str,buf))));

+}

+end;

+

+function GetLinkName(hash:dword):PAnsiChar;

+var

+  link:pActModule;

+begin

+  link:=ModuleLink;

+  while (link<>nil) and (link.Hash<>hash) do

+    link:=link^.Next;

+  if link<>nil then

+    result:=link^.Name

+  else

+    result:=nil;

+end;

+

+function GetLink(hash:dword):pActModule;

+begin

+  result:=ModuleLink;

+  while (result<>nil) and (result.Hash<>hash) do

+    result:=result^.Next;

+end;

+

+function GetLinkByName(name:pAnsiChar):pActModule;

+begin

+  result:=ModuleLink;

+  while (result<>nil) and (StrCmp(result.Name,name)<>0) do

+    result:=result^.Next;

+end;

+

+const

+  ioCProto   = 'cproto';

+  ioIsChat   = 'ischat';

+  ioCUID     = 'cuid';

+  ioCUIDType = 'cuidtype';

+

+function ImportContact(node:HXML):TMCONTACT;

+var

+  proto:pAnsiChar;

+  tmpbuf:array [0..63] of AnsiChar;

+  dbv:TDBVARIANT;

+  tmp:pWideChar;

+  is_chat:boolean;

+  bufLen:int; 

+begin

+  with xmlparser do

+  begin

+    proto:=FastWideToAnsiBuf(getAttrValue(node,ioCProto),tmpbuf);

+    if (proto=nil) or (proto^=#0) then

+    begin

+      result:=0;

+      exit;

+    end;

+    is_chat:=StrToInt(getAttrValue(node,ioIsChat))<>0;

+

+    tmp:=getAttrValue(node,ioCUID);

+    if is_chat then

+    begin

+      dbv.szVal.W:=tmp;

+    end

+    else

+    begin

+      FillChar(dbv,SizeOf(TDBVARIANT),0);

+      dbv._type:=StrToInt(getAttrValue(node,ioCUIDType));

+      case dbv._type of

+        DBVT_BYTE  : dbv.bVal:=StrToInt(tmp);

+        DBVT_WORD  : dbv.wVal:=StrToInt(tmp);

+        DBVT_DWORD : dbv.dVal:=StrToInt(tmp);

+        DBVT_ASCIIZ: FastWideToAnsi(tmp,dbv.szVal.A);

+        DBVT_UTF8  : WideToUTF8(tmp,dbv.szVal.A);

+        DBVT_WCHAR : dbv.szVal.W:=tmp;

+        DBVT_BLOB  : begin

+          dbv.pbVal := mir_base64_decode(FastWideToAnsi(tmp,pAnsiChar(dbv.pbVal)),bufLen);

+          dbv.cpbVal := bufLen;

+        end;

+      end;

+    end;

+  end;

+  result:=FindContactHandle(proto,dbv,is_chat);

+  if not is_chat then

+    case dbv._type of

+      DBVT_ASCIIZ,

+      DBVT_UTF8  : mFreeMem(dbv.szVal.A);

+      DBVT_BLOB  : mFreeMem(dbv.pbVal);

+    end;

+end;

+

+function ImportContactINI(node:pointer):TMCONTACT;

+{

+var

+  proto:pAnsiChar;

+  dbv:TDBVARIANT;

+  tmp:pAnsiChar;

+  is_chat:boolean;

+}

+begin

+  result:=0;

+{

+  proto:=GetParamSectionStr(node,ioCProto); // LATIN chars must be

+  if (proto=nil) or (proto^=#0) then

+  begin

+    result:=0;

+    exit;

+  end;

+  is_chat:=GetParamSectionInt(node,ioIsChat)<>0;

+

+  tmp:=GetParamSectionStr(node,ioCUID);

+  if is_chat then

+  begin

+    dbv.szVal.W:=UTF8ToWide(tmp);

+  end

+  else

+  begin

+    FillChar(dbv,SizeOf(TDBVARIANT),0);

+    dbv._type:=GetParamSectionInt(node,ioCUIDType);

+    case dbv._type of

+      DBVT_BYTE  : dbv.bVal:=StrToInt(tmp);

+      DBVT_WORD  : dbv.wVal:=StrToInt(tmp);

+      DBVT_DWORD : dbv.dVal:=StrToInt(tmp);

+      DBVT_ASCIIZ: dbv.szVal.A:=tmp; // must be LATIN

+      DBVT_UTF8  : dbv.szVal.A:=tmp;

+      DBVT_WCHAR : UTF8ToWide(tmp);

+      DBVT_BLOB  : begin // must be LATIN (base64)

+        Base64Decode(tmp,dbv.pbVal);

+      end;

+    end;

+  end;

+

+  result:=FindContactHandle(proto,dbv,is_chat);

+

+  if is_chat or (dbv._type=DBVT_WCHAR) then

+    mFreeMem(dbv.szVal.W)

+  else if dbv._type=DBVT_BLOB then

+    mFreeMem(dbv.pbVal);

+}

+end;

+{

+function CreateImportClass(node:pointer;fmt:integer):tBaseAction;

+var

+  module:pActModule;

+  uid:dword;

+  section:array [0..127] of AnsiChar;

+begin

+  result:=nil;

+  module:=ModuleLink;

+  case fmt of

+    0: begin

+      StrCopy(StrCopyE(section,pAnsiChar(node)),opt_uid);

+      uid:=DBReadDWord(0,DBBranch,section,0);

+

+      while module<>nil do

+      begin

+        module:=module^.Next;

+      end;

+    end;

+    1: begin

+    end;

+    2: begin

+    end;

+  end;

+end;

+}

+

+//----- DLL Handle Cache -----

+type

+  tDLLCacheElement = record

+    DllName  :PAnsiChar;

+    DllHandle:THANDLE;

+    count    :word; // count for end-of-macro flag

+    flags    :byte; // handle free mode

+  end;

+  tDLLCache = array of tDLLCacheElement;

+

+const

+  actDLLCache: tDLLCache = nil;

+

+function GetDllHandle(adllname:pAnsiChar;mode:dword=0):THANDLE;

+var

+  i,zero:integer;

+begin

+  // 1 - search that name in cache

+  i:=0;

+  zero:=-1;

+  while i<=HIGH(actDLLCache) do

+  begin

+    with actDLLCache[i] do

+    begin

+      // remember first empty slot

+      if DllHandle=0 then

+      begin

+        if zero<0 then

+          zero:=i;

+      end

+      else if StrCmp(DllName,adllname)=0 then

+      begin

+        result:=DllHandle;

+        inc(count);

+        if mode=3 then // per-session

+          flags:=3;

+        exit;

+      end;

+    end;

+    inc(i);

+  end;

+  // 2 - not found, load library

+  result:=LoadLibraryA(adllname);

+  // 3 - add to cache if not per-action

+  if mode<>0 then

+  begin

+    if zero>=0 then

+      i:=zero

+    else

+    begin

+      SetLength(actDLLCache,i);

+      dec(i);

+    end;

+

+    with actDLLCache[i] do

+    begin

+      StrDup(DllName,adllname);

+      DllHandle:=result;

+      count    :=0;

+      flags    :=mode;

+    end;

+  end;

+end;

+

+procedure CloseDllHandle(handle:THANDLE);

+var

+  i:integer;

+begin

+  i:=HIGH(actDLLCache);

+  while i>=0 do

+  begin

+    with actDLLCache[i] do

+    begin

+      if DllHandle=handle then

+      begin

+        dec(count);

+        if count=0 then

+        begin

+          if flags=2 then // per-macro+not needed -> free

+          begin

+            FreeLibrary(DllHandle);

+            DllHandle:=0;

+            mFreeMem(DllName);

+          end;

+        end;

+        exit;

+      end;

+    end;

+    dec(i);

+  end;

+  // if not found in cache

+  FreeLibrary(handle);

+end;

+

+procedure FreeDllHandleCache;

+var

+  i:integer;

+begin

+  i:=HIGH(actDLLCache);

+  while i>=0 do

+  begin

+    if actDLLCache[i].DllHandle<>0 then

+    begin

+      FreeLibrary(actDLLCache[i].DllHandle);

+      mFreeMem(actDLLCache[i].DllName);

+    end;

+    dec(i);

+  end;

+  SetLength(actDLLCache,0);

+end;

+

+end.