svn.miranda.im is moving to a new home!

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@7 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb

1 files changed, 353 insertions, 0 deletions

diff --git a/delphi/Awkward/include/m_api.pas b/delphi/Awkward/include/m_api.pas
new file mode 100644
index 0000000..de20e63
--- /dev/null
+++ b/delphi/Awkward/include/m_api.pas
@@ -0,0 +1,353 @@
+{

+Miranda IM: the free IM client for Microsoft* Windows*

+

+Copyright 2000-2003 Miranda ICQ/IM project,

+all portions of this codebase are copyrighted to the people

+listed in contributors.txt.

+

+This program is free software; you can redistribute it and/or

+modify it under the terms of the GNU General Public License

+as published by the Free Software Foundation; either version 2

+of the License, or (at your option) any later version.

+

+This program is distributed in the hope that it will be useful,

+but WITHOUT ANY WARRANTY; without even the implied warranty of

+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+GNU General Public License for more details.

+

+You should have received a copy of the GNU General Public License

+along with this program; if not, write to the Free Software

+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

+}

+{$A+,H+}

+unit m_api;

+

+interface

+

+uses

+  Windows, FreeImage;

+

+// often used

+const

+  strCList:PAnsiChar = 'CList';

+const

+  WM_USER  = $0400; // from Messages

+  NM_FIRST = 0;     // from CommCtrl

+

+// RichEdit definitions

+type

+  PCHARRANGE = ^TCHARRANGE;

+  TCHARRANGE = record

+    cpMin:integer;

+    cpMax:integer;

+  end;

+

+// C translations

+type

+  size_t   = integer;

+  time_t   = DWORD;

+  int      = Integer;

+  uint     = Cardinal;

+  pint     = ^int;

+  WPARAM   = Integer;

+  LPARAM   = Integer;

+

+// My definitions

+  TWNDPROC = function (Dialog:HWnd; hMessage, wParam:WPARAM;lParam:LPARAM):integer; cdecl;

+

+type

+  PTChar = ^TChar;

+  TChar = record

+    case boolean of

+      false: (a:PAnsiChar); // ANSI or UTF8

+      true:  (w:PWideChar); // Unicode

+  end;

+

+{$include m_system.inc}

+const

+  mmi:TMM_INTERFACE=(

+    cbSize :SizeOf(TMM_INTERFACE));

+

+{-- start newpluginapi --}

+const

+  MAXMODULELABELLENGTH = 64;

+  CALLSERVICE_NOTFOUND = $80000000;

+

+const

+  UNICODE_AWARE = 1;

+

+type

+  PPLUGININFO = ^TPLUGININFO;

+  TPLUGININFO = record

+    cbSize     :int;

+    shortName  :PAnsiChar;

+    version    :DWORD;

+    description:PAnsiChar; // [TRANSLATED-BY-CORE]

+    author     :PAnsiChar;

+    authorEmail:PAnsiChar;

+    copyright  :PAnsiChar;

+    homepage   :PAnsiChar;

+    flags      :Byte;  // right now the only flag, UNICODE_AWARE, is recognized here

+    { one of the DEFMOD_* consts in m_plugin or zero, if non zero, this will

+    suppress loading of the specified builtin module }

+    replacesDefaultModule: int;

+  end;

+

+{

+ 0.7+

+   New plugin loader implementation

+}

+// The UUID structure below is used to for plugin UUID's and module type definitions

+type

+  PMUUID = ^TMUUID;

+  MUUID  = TGUID;

+  TMUUID = MUUID;

+{

+  MUUID = record

+    a:cardinal;

+    b:word;

+    c:word;

+    d:array [0..7] of byte;

+  end;

+}

+

+{$include interfaces.inc}

+

+type

+  PPLUGININFOEX = ^TPLUGININFOEX;

+  TPLUGININFOEX = record

+    cbSize     :int;

+    shortName  :PAnsiChar;

+    version    :DWORD;

+    description:PAnsiChar;

+    author     :PAnsiChar;

+    authorEmail:PAnsiChar;

+    copyright  :PAnsiChar;

+    homepage   :PAnsiChar;

+    flags      :Byte;  // right now the only flag, UNICODE_AWARE, is recognized here

+    { one of the DEFMOD_* consts in m_plugin or zero, if non zero, this will

+    suppress loading of the specified builtin module }

+    replacesDefaultModule: int;

+    uuid       :MUUID; // Not required until 0.8.

+  end;

+

+{ modules.h is never defined -- no check needed }

+

+  TMIRANDAHOOK            = function(wParam: WPARAM; lParam: LPARAM): int; cdecl;

+  TMIRANDAHOOKPARAM       = function(wParam: WPARAM; lParam,lParam1: LPARAM): int; cdecl;

+  TMIRANDAHOOKOBJ         = function(ptr:pointer;wParam:WPARAM;lParam:LPARAM): int; cdecl;

+  TMIRANDAHOOKOBJPARAM    = function(ptr:pointer;wParam:WPARAM;lParam,lParam1: LPARAM): int; cdecl;

+  TMIRANDASERVICE         = function(wParam: WPARAM; lParam: LPARAM): int; cdecl;

+  TMIRANDASERVICEPARAM    = function(wParam:WPARAM;lParam,lParam1:LPARAM):int; cdecl;

+  TMIRANDASERVICEOBJ      = function(ptr:pointer;wParam,lParam:LPARAM):int; cdecl;

+  TMIRANDASERVICEOBJPARAM = function(ptr:pointer;wParam:WPARAM;lParam,lParam1:LPARAM):int; cdecl;

+

+  //see modules.h tor what all this stuff is

+

+  TCreateHookableEvent            = function(const AnsiChar: PAnsiChar): THandle; cdecl;

+  TDestroyHookableEvent           = function(Handle: THandle): int; cdecl;

+  TNotifyEventHooks               = function(Handle: THandle; wParam: WPARAM; lParam: LPARAM): int; cdecl;

+  THookEvent                      = function(const AnsiChar: PAnsiChar; MIRANDAHOOK: TMIRANDAHOOK): THandle; cdecl;

+  THookEventMessage               = function(const AnsiChar: PAnsiChar; Wnd: THandle; wMsg: Integer): THandle; cdecl;

+  TUnhookEvent                    = function(Handle: THandle): int; cdecl;

+  TCreateServiceFunction          = function(const AnsiChar: PAnsiChar; MIRANDASERVICE: TMIRANDASERVICE): THandle; cdecl;

+  TCreateTransientServiceFunction = function(const AnsiChar: PAnsiChar; MIRANDASERVICE: TMIRANDASERVICE): THandle; cdecl;

+  TDestroyServiceFunction         = function(Handle: THandle): int; cdecl;

+  TCallService                    = function(const AnsiChar: PAnsiChar; wParam: WPARAM; lParam: LPARAM): int; cdecl;

+  TServiceExists                  = function(const AnsiChar: PAnsiChar): int; cdecl;

+  TCallServiceSync                = function(const AnsiChar: PAnsiChar;wParam: WPARAM; lParam: LPARAM):int; cdecl;    //v0.3.3+

+  TCallFunctionAsync              = function(ptr1,ptr2:pointer):int; cdecl; {stdcall;}  //v0.3.4+

+  TSetHookDefaultForHookableEvent = function(Handle:THandle;MIRANDAHOOK: TMIRANDAHOOK):int; cdecl;// v0.3.4 (2004/09/15)

+  TCreateServiceFunctionParam     = function(const AnsiChar:PAnsiChar; MIRANDASERVICEPARAM:TMIRANDASERVICEPARAM): THandle; cdecl;

+  TNotifyEventHooksDirect         = function(Handle:THANDLE;wParam:WPARAM;lParam:LPARAM):int; cdecl; // v0.7+

+  TCallProtoService               = function(const str1:PAnsiChar;const str2:PAnsiChar;wParam:WPARAM;lParam:LPARAM):int; cdecl; //v0.8+

+  TCallContactService             = function(Handle:THANDLE;const str:PAnsiChar;wParam:WPARAM;lParam:LPARAM):int; cdecl; // v0.8+

+  THookEventParam                 = function(const str:PAnsiChar;mhp:TMIRANDAHOOKPARAM;lParam:LPARAM):THANDLE; cdecl;

+  THookEventObj                   = function(const str:PAnsiChar;mho:TMIRANDAHOOKOBJ;ptr:pointer):THANDLE; cdecl;

+  THookEventObjParam              = function(const str:PAnsiChar;mhop:TMIRANDAHOOKOBJPARAM;ptr:pointer;lParam:LPARAM):THANDLE; cdecl;

+  TCreateServiceFunctionObj       = function(const str:PAnsiChar;mso:TMIRANDASERVICEOBJ;ptr:pointer):THANDLE; cdecl;

+  TCreateServiceFunctionObjParam  = function(const str:PAnsiChar;msop:TMIRANDASERVICEOBJPARAM;ptr,ptr2:pointer;lParam:LPARAM):THANDLE; cdecl;

+  TKillObjectServices             = procedure(var ptr); 

+  TKillObjectEventHooks           = procedure(var ptr);

+

+  PPLUGINLINK = ^TPLUGINLINK;

+  TPLUGINLINK = record

+    CreateHookableEvent           : TCreateHookableEvent;

+    DestroyHookableEvent          : TDestroyHookableEvent;

+    NotifyEventHooks              : TNotifyEventHooks;

+    HookEvent                     : THookEvent;

+    HookEventMessage              : THookEventMessage;

+    UnhookEvent                   : TUnhookEvent;

+    CreateServiceFunction         : TCreateServiceFunction;

+    CreateTransientServiceFunction: TCreateTransientServiceFunction;

+    DestroyServiceFunction        : TDestroyServiceFunction;

+    CallService                   : TCallService;

+    ServiceExists                 : TServiceExists;                  // v0.1.0.1+

+    CallServiceSync               : TCallServiceSync;                // v0.3.3+

+    CallFunctionAsync             : TCallFunctionAsync;              // v0.3.4+

+    SetHookDefaultForHookableEvent: TSetHookDefaultForHookableEvent; // v0.3.4 (2004/09/15)

+    CreateServiceFunctionParam    : TCreateServiceFunctionParam;     // v0.7+ (2007/04/24)

+    NotifyEventHooksDirect        : TNotifyEventHooksDirect;         // v0.7+

+    CallProtoService              : TCallProtoService;               // v0.8+

+    CallContactService            : TCallContactService;             // v0.8+

+    HookEventParam                : THookEventParam;                 // v0.8+

+    HookEventObj                  : THookEventObj;                   // v0.8+

+    HookEventObjParam             : THookEventObjParam;              // v0.8+

+    CreateServiceFunctionObj      : TCreateServiceFunctionObj;       // v0.8+

+    CreateServiceFunctionObjParam : TCreateServiceFunctionObjParam;  // v0.8+

+		KillObjectServices            : TKillObjectServices;

+		KillObjectEventHooks          : TKillObjectEventHooks;

+  end;

+

+  { Database plugin stuff  }

+

+  // grokHeader() error codes

+  const

+     EGROKPRF_NOERROR   = 0;

+     EGROKPRF_CANTREAD  = 1; // can't open the profile for reading

+     EGROKPRF_UNKHEADER = 2; // header not supported, not a supported profile

+     EGROKPRF_VERNEWER  = 3; // header correct, version in profile newer than reader/writer

+     EGROKPRF_DAMAGED   = 4; // header/version fine, other internal data missing, damaged.

+ // makeDatabase() error codes

+     EMKPRF_CREATEFAILED = 1; // for some reason CreateFile() didnt like something

+

+type

+  PDATABASELINK = ^TDATABASELINK;

+  TDATABASELINK = record

+    cbSize : longint;

+    {

+      returns what the driver can do given the flag

+    }

+    getCapability : function (flag:longint):longint; cdecl;

+    {

+       buf: pointer to a string buffer

+       cch: length of buffer

+       shortName: if true, the driver should return a short but descriptive name, e.g. "3.xx profile"

+       Affect: The database plugin must return a "friendly name" into buf and not exceed cch bytes,

+         e.g. "Database driver for 3.xx profiles"

+       Returns: 0 on success, non zero on failure

+    }

+    getFriendlyName : function (buf:PAnsiChar; cch:size_t; shortName:longint):longint; cdecl;

+    {

+      profile: pointer to a string which contains full path + name

+      Affect: The database plugin should create the profile, the filepath will not exist at

+        the time of this call, profile will be C:\..\<name>.dat

+      Note: Do not prompt the user in anyway about this operation.

+      Note: Do not initialise internal data structures at this point!

+      Returns: 0 on success, non zero on failure - error contains extended error information, see EMKPRF_

+    }

+    makeDatabase : function (profile:PAnsiChar; error:Plongint):longint; cdecl;

+    {

+      profile: [in] a null terminated string to file path of selected profile

+      error: [in/out] pointer to an int to set with error if any

+      Affect: Ask the database plugin if it supports the given profile, if it does it will

+        return 0, if it doesnt return 1, with the error set in error -- EGROKPRF_  can be valid error

+        condition, most common error would be [EGROKPRF_UNKHEADER]

+      Note: Just because 1 is returned, doesnt mean the profile is not supported, the profile might be damaged

+        etc.

+      Returns: 0 on success, non zero on failure

+    }

+    grokHeader : function (profile:PAnsiChar; error:Plongint):longint; cdecl;

+    {

+      Affect: Tell the database to create all services/hooks that a 3.xx legecy database might support into link,

+        which is a PLUGINLINK structure

+      Returns: 0 on success, nonzero on failure

+    }

+    Load : function (profile:PAnsiChar; link:pointer):longint; cdecl;

+    {

+      Affect: The database plugin should shutdown, unloading things from the core and freeing internal structures

+      Returns: 0 on success, nonzero on failure

+      Note: Unload() might be called even if Load() was never called, wasLoaded is set to 1 if Load() was ever called.

+    }

+    Unload : function (wasLoaded:longint):longint; cdecl;

+  end;

+

+{-- end newpluginapi --}

+

+var

+  { this is now a pointer to a record of function pointers to match the C API,

+  and to break old code and annoy you. }

+  PLUGINLINK: PPLUGINLINK;

+(*

+  { has to be returned via MirandaPluginInfo and has to be statically allocated,

+  this means only one module can return info, you shouldn't be merging them anyway! }

+  PLUGININFO: TPLUGININFO;

+*)

+  {$include m_plugins.inc}

+  {$include m_database.inc}

+  {$include m_findadd.inc}

+  {$include m_awaymsg.inc}

+  {$include m_email.inc}

+  {$include m_history.inc}

+  {$include m_message.inc}

+  {$include m_url.inc}

+  {$include m_clui.inc}

+  {$include m_ignore.inc}

+  {$include m_skin.inc}

+  {$include m_file.inc}

+  {$include m_netlib.inc}

+  {$include m_langpack.inc}

+  {$include m_clist.inc}

+  {$include m_clc.inc}

+  {$include m_userinfo.inc}

+  {$include m_protosvc.inc}

+  {$include m_options.inc}

+  {$include m_ssl.inc}

+  {$include m_icq.inc}

+  {$include m_protoint.inc}

+  {$include m_protocols.inc}

+  {$include m_protomod.inc}

+  {$include m_utils.inc}

+  {$include m_addcontact.inc}

+  {$include statusmodes.inc}

+  {$include m_contacts.inc}

+  {$include m_genmenu.inc}

+  {$include m_icolib.inc}

+  {$include m_fontservice.inc}

+  {$include m_chat.inc}

+  {$include m_fingerprint.inc}

+  {$include m_toptoolbar.inc}

+  {$include m_updater.inc}

+  {$include m_variables.inc}

+  {$include m_cluiframes.inc}

+  {$include m_popup.inc}

+  {$include m_avatars.inc}

+  {$include m_png.inc}

+  {$include m_smileyadd.inc}

+  {$include m_tipper.inc}

+  {$include m_button.inc}

+  {$include m_dbeditor.inc}

+  {$include m_userinfoex.inc}

+  {$include m_imgsrvc.inc}

+  {$include m_hotkeys.inc}

+  {.$include m_anismiley.inc}

+  {$include m_acc.inc}

+  {$include m_xml.inc}

+  {$include m_historyevents.inc}

+  {$include m_modernopt.inc}

+  {$include m_descbutton.inc}

+  {$include m_iconheader.inc}

+  {$include m_extraicons.inc}

+  {$include m_toolbar.inc}

+  {$include m_errors.inc}

+  {$include m_help.inc}

+  {$include m_proto_listeningto.inc}

+{$define M_API_UNIT}

+  {$include m_helpers.inc}

+  {$include m_clistint.inc}

+  {$include m_metacontacts.inc}

+

+procedure InitMMI;

+

+implementation

+

+{$undef M_API_UNIT}

+  {$include m_helpers.inc}

+  {$include m_clistint.inc}

+

+procedure InitMMI;

+begin

+  PluginLink^.CallService(MS_SYSTEM_GET_MMI,0,Integer(@mmi));

+end;

+

+end.