From a2795725f5afc756a405a85c192bdd53b967999d Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Fri, 29 Jun 2012 06:56:07 +0000 Subject: Added my Miranda API pascal version Changed ShlExt to my API compilation (32 bit FPC now only) git-svn-id: http://svn.miranda-ng.org/main/trunk@679 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/ShlExt/inc/m_globaldefs.pas | 99 ------------------------------------- 1 file changed, 99 deletions(-) delete mode 100644 plugins/ShlExt/inc/m_globaldefs.pas (limited to 'plugins/ShlExt/inc/m_globaldefs.pas') diff --git a/plugins/ShlExt/inc/m_globaldefs.pas b/plugins/ShlExt/inc/m_globaldefs.pas deleted file mode 100644 index 614719a68c..0000000000 --- a/plugins/ShlExt/inc/m_globaldefs.pas +++ /dev/null @@ -1,99 +0,0 @@ -(* - -Miranda IM: the free IM client for Microsoft* Windows* - -Copyright 2000-2004 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. - -*) - -{$IFDEF FPC} - {$PACKRECORDS C} - {$MODE Delphi} -{$ENDIF} - -unit m_globaldefs; - -interface - -uses - -{$ifdef FPC} - strings; -{$else} - Windows; -{$endif} - -type - - PByte = ^Byte; - int = Integer; - pint = ^int; - WPARAM = Integer; - LPARAM = Integer; - DWORD = Integer; - THandle = Integer; - - // strcpy() - - {$ifdef FPC} - TStrCpy = function(Dst, Src: PChar): PChar; - {$else} - TStrCpy = function(Dst, Src: PChar): PChar; stdcall; - {$endif} - - // strcat() - - {$ifdef FPC} - TStrCat = function(Dst, Src: PChar): PChar; - {$else} - TStrCat = function(Dst, Src: PChar): PChar; stdcall; - {$endif} - -const - - {$ifdef FPC} - strcpy: TStrCpy = strings.strcopy; - {$else} - strcpy: TStrCpy = lstrcpy; - {$endif} - - {$ifdef FPC} - strcat: TStrCat = strings.strcat; - {$else} - strcat: TStrCat = lstrcat; - {$endif} - - {$include newpluginapi.inc} - {$include m_v8.inc} - -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; - PLUGININFOEX: TPLUGININFOEX; - -implementation - -end. -- cgit v1.2.3