unneeded delphi folder removed

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

1 files changed, 0 insertions, 353 deletions

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

-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.