* BSD Libname fixes (eases Lazarus compilation).

This commit is contained in:
marco 2002-08-31 04:16:48 +00:00
parent c6b0a2e9a3
commit 048c281e79
3 changed files with 63 additions and 85 deletions

View File

@ -41,24 +41,16 @@ uses
{$packrecords C} {$packrecords C}
{$else} {$else}
{$ifdef os2} const
const {$ifdef BSD}
gdkdll='gdk12'; gdkdll='gdk12';
{$define gtkos2}
{$packrecords C}
{$else} {$else}
const gdkdll='gdk';
{$ifdef FreeBSD}
gdkdll='gdk12';
{$else}
gdkdll='gdk';
{$endif}
{$linklib c}
{$linklib X11}
{$packrecords C}
{$endif} {$endif}
{$linklib c}
{$linklib X11}
{$packrecords C}
{$endif} {$endif}
Type Type
@ -98,19 +90,21 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.5 2002-08-18 19:36:58 marco Revision 1.2 2002-08-31 04:16:48 marco
* small fixes for NetBSD that doesn't adhere to the gtk12/glib12 etc naming for older GTK versions.
Revision 1.4 2003/03/02 02:08:50 hajny
+ OS/2 support for GTK and X11 added by Yuri
Revision 1.3 2002/09/07 15:42:58 peter
* old logs removed and tabs fixed
Revision 1.2 2002/08/31 04:16:48 marco
* BSD Libname fixes (eases Lazarus compilation). * BSD Libname fixes (eases Lazarus compilation).
Revision 1.1 2002/01/29 17:55:07 peter Revision 1.1 2002/01/29 17:55:07 peter
* splitted to base and extra * splitted to base and extra
Revision 1.5 2000/09/09 18:41:38 peter
* fixes for gtk win32
Revision 1.4 2000/09/06 21:14:28 peter
* packrecords 4 for win32, packrecords c for linux
Revision 1.3 2000/08/06 10:46:23 peter
* force smartlink (merged)
Revision 1.2 2000/07/13 11:33:19 michael
+ removed logs
} }

View File

@ -37,23 +37,15 @@ interface
{$packrecords C} {$packrecords C}
{$else} {$else}
{$ifdef os2} const
const {$ifdef BSD}
glibdll='glib12'; glibdll='glib12';
{$define gtkos2} {$else}
glibdll='glib';
{$endif}
{$linklib c}
{$packrecords C} {$packrecords C}
{$else}
const
{$ifdef FreeBSD}
glibdll='glib12';
{$else}
glibdll='glib';
{$endif}
{$linklib c}
{$packrecords C}
{$endif}
{$endif} {$endif}
{ Pointers to basic pascal types, inserted by h2pas conversion program.} { Pointers to basic pascal types, inserted by h2pas conversion program.}
@ -129,14 +121,12 @@ type
TGQuark = guint32; TGQuark = guint32;
TGTime = gint32; TGTime = gint32;
{$ifndef gtkos2}
var var
glib_major_version : guint;external glibdll name 'glib_major_version'; glib_major_version : guint;external glibdll name 'glib_major_version';
glib_minor_version : guint;external glibdll name 'glib_minor_version'; glib_minor_version : guint;external glibdll name 'glib_minor_version';
glib_micro_version : guint;external glibdll name 'glib_micro_version'; glib_micro_version : guint;external glibdll name 'glib_micro_version';
glib_interface_age : guint;external glibdll name 'glib_interface_age'; glib_interface_age : guint;external glibdll name 'glib_interface_age';
glib_binary_age : guint;external glibdll name 'glib_binary_age'; glib_binary_age : guint;external glibdll name 'glib_binary_age';
{$endif}
type type
PGList = ^TGList; PGList = ^TGList;
@ -651,10 +641,8 @@ procedure g_on_error_query(prg_name:Pgchar);cdecl;external glibdll name 'g_on_er
procedure g_on_error_stack_trace(prg_name:Pgchar);cdecl;external glibdll name 'g_on_error_stack_trace'; procedure g_on_error_stack_trace(prg_name:Pgchar);cdecl;external glibdll name 'g_on_error_stack_trace';
{$ifndef gtkwin} {$ifndef gtkwin}
{$ifndef gtkos2}
var var
g_log_domain_glib : Pgchar;external glibdll name 'g_log_domain_glib'; g_log_domain_glib : Pgchar;external glibdll name 'g_log_domain_glib';
{$endif}
{$endif} {$endif}
function g_log_set_handler(log_domain:Pgchar; log_levels:TGLogLevelFlags; log_func:TGLogFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_log_set_handler'; function g_log_set_handler(log_domain:Pgchar; log_levels:TGLogLevelFlags; log_func:TGLogFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_log_set_handler';
@ -1666,19 +1654,21 @@ procedure set_year(var a : TGDate; __year : guint);
end. end.
{ {
$Log$ $Log$
Revision 1.5 2002-08-18 19:36:58 marco Revision 1.2 2002-08-31 04:16:48 marco
* small fixes for NetBSD that doesn't adhere to the gtk12/glib12 etc naming for older GTK versions.
Revision 1.4 2003/03/02 02:10:19 hajny
+ OS/2 support for GTK and X11 added by Yuri
Revision 1.3 2002/09/07 15:42:58 peter
* old logs removed and tabs fixed
Revision 1.2 2002/08/31 04:16:48 marco
* BSD Libname fixes (eases Lazarus compilation). * BSD Libname fixes (eases Lazarus compilation).
Revision 1.1 2002/01/29 17:55:08 peter Revision 1.1 2002/01/29 17:55:08 peter
* splitted to base and extra * splitted to base and extra
Revision 1.5 2000/09/09 18:41:38 peter
* fixes for gtk win32
Revision 1.4 2000/09/06 21:14:28 peter
* packrecords 4 for win32, packrecords c for linux
Revision 1.3 2000/08/06 10:46:23 peter
* force smartlink (merged)
Revision 1.2 2000/07/13 11:33:19 michael
+ removed logs
} }

View File

@ -41,27 +41,19 @@ uses
{$packrecords c} {$packrecords c}
{$else} {$else}
{$ifdef os2} const
const {$ifdef BSD}
gtkdll='gtk12'; gtkdll='gtk12';
{$define gtkos2}
{$packrecords c}
{$else} {$else}
const gtkdll='gtk';
{$ifdef FreeBSD}
gtkdll='gtk12';
{$else}
gtkdll='gtk';
{$endif}
{$linklib c}
{$linklib Xi}
{$linklib Xext}
{$linklib X11}
{$linklib m}
{$packrecords C}
{$endif} {$endif}
{$linklib c}
{$linklib Xi}
{$linklib Xext}
{$linklib X11}
{$linklib m}
{$packrecords C}
{$endif} {$endif}
Type Type
@ -90,19 +82,21 @@ Type
end. end.
{ {
$Log$ $Log$
Revision 1.5 2002-08-18 19:36:58 marco Revision 1.2 2002-08-31 04:16:48 marco
* small fixes for NetBSD that doesn't adhere to the gtk12/glib12 etc naming for older GTK versions.
Revision 1.4 2003/03/02 02:11:10 hajny
+ OS/2 support for GTK and X11 added by Yuri
Revision 1.3 2002/09/07 15:42:59 peter
* old logs removed and tabs fixed
Revision 1.2 2002/08/31 04:16:48 marco
* BSD Libname fixes (eases Lazarus compilation). * BSD Libname fixes (eases Lazarus compilation).
Revision 1.1 2002/01/29 17:55:08 peter Revision 1.1 2002/01/29 17:55:08 peter
* splitted to base and extra * splitted to base and extra
Revision 1.5 2000/09/09 18:41:39 peter
* fixes for gtk win32
Revision 1.4 2000/09/06 21:13:55 peter
* packrecords 4 for win32, packrecords c for linux
Revision 1.3 2000/08/06 10:46:23 peter
* force smartlink (merged)
Revision 1.2 2000/07/13 11:33:20 michael
+ removed logs
} }