From c4a8c1f0443d1d39fdc0f265a0dcc9356f7092e9 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 18 Jul 2012 16:47:22 +0000
Subject: API update

git-svn-id: http://svn.miranda-ng.org/main/trunk@1017 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/m_api.pas | 64 +++++++-----------------------------------------
 1 file changed, 9 insertions(+), 55 deletions(-)

(limited to 'include/delphi/m_api.pas')

diff --git a/include/delphi/m_api.pas b/include/delphi/m_api.pas
index df0069a7ff..133d3cf8b1 100644
--- a/include/delphi/m_api.pas
+++ b/include/delphi/m_api.pas
@@ -25,20 +25,22 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
   {$IFDEF WIN64}{$A8}{$ENDIF}
 {$ENDIF}
 {$UNDEF AllowInline}
+
+unit m_api;
+
+interface
+
 {$IFDEF FPC}
   {$DEFINE AllowInline}
 {$ELSE}
   {$IFDEF ConditionalExpressions}
-    {$IF System.ComiplerVersion >= 22.0}
+    // CompilerVersion defined in SYSTEM module, need to use not earlier
+    {$IF CompilerVersion >= 22}
       {$DEFINE AllowInline}
     {$IFEND}
   {$ENDIF}
 {$ENDIF}
 
-unit m_api;
-
-interface
-
 uses
   Windows;//, FreeImage;
 
@@ -166,55 +168,6 @@ const
 // makeDatabase() error codes
    EMKPRF_CREATEFAILED = 1; // for some reason CreateFile() didnt like something
 
-type
-  PDATABASELINK = ^TDATABASELINK;
-  TDATABASELINK = record
-    cbSize : int;
-    {
-      returns what the driver can do given the flag
-    }
-    getCapability : function (flag:int):int; 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:int):int; 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:Pint):int; 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:Pint):int; cdecl;
-    {
-      Affect: Tell the database to create all services/hooks that a 3.xx legecy database might support into link
-      Returns: 0 on success, nonzero on failure
-    }
-    Load : function (profile:PAnsiChar):int; 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:int):int; cdecl;
-  end;
 
 {-- end newpluginapi --}
 
@@ -223,8 +176,8 @@ var
   this means only one module can return info, you shouldn't be merging them anyway! }
   PLUGININFO: TPLUGININFOEX;
 
-  {$include m_plugins.inc}
   {$include m_database.inc}
+  {$include m_db_int.inc}
   {$include m_findadd.inc}
   {$include m_awaymsg.inc}
   {$include m_email.inc}
@@ -265,6 +218,7 @@ var
   {$include m_smileyadd.inc}
   {$include m_tipper.inc}
   {$include m_button.inc}
+  {$include m_button_int.inc}
   {$include m_dbeditor.inc}
   {$include m_userinfoex.inc}
   {$include m_imgsrvc.inc}
-- 
cgit v1.2.3