paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 05:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package gtk2

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:58 +01:00
parent a99f330e3b
commit a3828c8e3e
31 changed files with 202 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/gtk2/namespaced/Api.Atk.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Atk;
{$DEFINE FPC_DOTTEDUNITS}
{$i atk.pas}

3
packages/gtk2/namespaced/Api.Gdk2.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gdk2;
{$DEFINE FPC_DOTTEDUNITS}
{$i gdk2.pas}

3
packages/gtk2/namespaced/Api.Glade2.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Glade2;
{$DEFINE FPC_DOTTEDUNITS}
{$i libglade2.pas}

3
packages/gtk2/namespaced/Api.Glib2.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Glib2;
{$DEFINE FPC_DOTTEDUNITS}
{$i glib2.pas}

3
packages/gtk2/namespaced/Api.Gtk2.Buildgtk2.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gtk2.Buildgtk2;
{$DEFINE FPC_DOTTEDUNITS}
{$i buildgtk2.pp}

3
packages/gtk2/namespaced/Api.Gtk2.Gdk2pixbuf.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gtk2.Gdk2pixbuf;
{$DEFINE FPC_DOTTEDUNITS}
{$i gdk2pixbuf.pas}

3
packages/gtk2/namespaced/Api.Gtk2.Gdk2x.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gtk2.Gdk2x;
{$DEFINE FPC_DOTTEDUNITS}
{$i gdk2x.pas}

3
packages/gtk2/namespaced/Api.Gtk2.Gdkglext.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gtk2.Gdkglext;
{$DEFINE FPC_DOTTEDUNITS}
{$i gdkglext.pas}

3
packages/gtk2/namespaced/Api.Gtk2.Gtk2.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gtk2.Gtk2;
{$DEFINE FPC_DOTTEDUNITS}
{$i gtk2.pas}

3
packages/gtk2/namespaced/Api.Gtk2.Gtk2ext.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gtk2.Gtk2ext;
{$DEFINE FPC_DOTTEDUNITS}
{$i gtk2ext.pp}

3
packages/gtk2/namespaced/Api.Gtk2.Gtkglext.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gtk2.Gtkglext;
{$DEFINE FPC_DOTTEDUNITS}
{$i gtkglext.pas}

3
packages/gtk2/namespaced/Api.Gtk2.Gtkhtml.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gtk2.Gtkhtml;
{$DEFINE FPC_DOTTEDUNITS}
{$i gtkhtml.pas}

3
packages/gtk2/namespaced/Api.Pango.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Pango;
{$DEFINE FPC_DOTTEDUNITS}
{$i pango.pas}

3
packages/gtk2/namespaced/Api.Pangocairo.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Pangocairo;
{$DEFINE FPC_DOTTEDUNITS}
{$i pangocairo.pas}

3
packages/gtk2/namespaced/Api.Pangoutils.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Pangoutils;
{$DEFINE FPC_DOTTEDUNITS}
{$i pangoutils.pas}

41
packages/gtk2/namespaces.lst Normal file
View File

@ -0,0 +1,41 @@
src/gtk+/gdk-pixbuf/gdk2pixbuf.pas=namespaced/Api.Gtk2.Gdk2pixbuf.pas
{s*:src/gtk+/gdk-pixbuf/}=namespaced/
{i+:src/gtk+/gdk-pixbuf/}
src/gtk+/gtk/gtk2.pas=namespaced/Api.Gtk2.Gtk2.pas
{s*:src/gtk+/gtk/}=namespaced/
{i+:src/gtk+/gtk/}
src/gtk+/gdk/gdk2.pas=namespaced/Api.Gdk2.pas
{s*:src/gtk+/gdk/}=namespaced/
{i+:src/gdk/}
src/libglade/libglade2.pas=namespaced/Api.Glade2.pas
{s*:src/libglade/}=namespaced/
{i+:src/libglade/}
src/pango/pangoutils.pas=namespaced/Api.Pangoutils.pas
{s*:src/pango/}=namespaced/
{i+:src/pango/}
src/pango/pango.pas=namespaced/Api.Pango.pas
src/atk/atk.pas=namespaced/Api.Atk.pas
{s*:src/atk/}=namespaced/
{i+:src/atk/}
src/pangocairo/pangocairo.pas=namespaced/Api.Pangocairo.pas
{s*:src/pangocairo/}=namespaced/
{i+:src/pangocairo/}
src/gtk2x11/gdk2x.pas=namespaced/Api.Gtk2.Gdk2x.pas
{s*:src/gtk2x11/}=namespaced/
{i+:src/gtk2x11/}
src/gtkext/gtk2ext.pp=namespaced/Api.Gtk2.Gtk2ext.pp
{s*:src/gtkext/}=namespaced/
{i+:src/gtkext/}
src/gtkhtml/gtkhtml.pas=namespaced/Api.Gtk2.Gtkhtml.pas
{s*:src/gtkhtml/}=namespaced/
{i+:src/gtkhtml/}
src/buildgtk2.pp=namespaced/Api.Gtk2.Buildgtk2.pp
{s*:src/}=namespaced/
{i+:src/}
src/glib/glib2.pas=namespaced/Api.Glib2.pas
{s*:src/glib/}=namespaced/
{i+:src/glib/}
src/gtkglext/gdkglext.pas=namespaced/Api.Gtk2.Gdkglext.pas
{s*:src/gtkglext/}=namespaced/
{i+:src/gtkglext/}
src/gtkglext/gtkglext.pas=namespaced/Api.Gtk2.Gtkglext.pas

6
packages/gtk2/src/atk/atk.pas
View File

@ -16,7 +16,9 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit atk; // keep unit name lowercase for kylix
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$mode objfpc}
@ -27,7 +29,11 @@ unit atk; // keep unit name lowercase for kylix
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Glib2;
{$ELSE FPC_DOTTEDUNITS}
uses glib2;
{$ENDIF FPC_DOTTEDUNITS}
const
{$ifdef windows}

11
packages/gtk2/src/buildgtk2.pp
View File

@ -18,18 +18,29 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit buildgtk2; // keep unit name lowercase for kylix
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Gtk2.Gtk2, Api.Glade2,Api.Gtk2.Gdkglext,Api.Gtk2.Gtkglext, Api.Gtk2.Gtk2ext
{$ifdef Unix}
,Api.Gtk2.Gdk2x
{$endif Unix}
, Api.Pangocairo;
{$ELSE FPC_DOTTEDUNITS}
uses
gtk2, libglade2,gdkglext,gtkglext, gtk2ext
{$ifdef unix}
,gdk2x
{$endif unix}
, pangocairo;
{$ENDIF FPC_DOTTEDUNITS}
implementation

15
packages/gtk2/src/glib/glib2.pas
View File

@ -23,7 +23,9 @@
files for a list of changes. These files are distributed with
GLib at ftp://ftp.gtk.org/pub/gtk/.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit glib2; // keep unit name lowercase for kylix
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$mode objfpc}
@ -34,8 +36,13 @@ unit glib2; // keep unit name lowercase for kylix
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes,System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses
ctypes,SysUtils;
{$ENDIF FPC_DOTTEDUNITS}
const
{$ifdef windows}
@ -683,7 +690,7 @@ function GLIB_CHECK_VERSION (major, minor, micro: guint):boolean;
*}
procedure g_error (format:Pgchar; args: array of const);
begin
g_log (G_LOG_DOMAIN, G_LOG_LEVEL_ERROR, Pgchar(SysUtils.Format(string(format), args)));
g_log (G_LOG_DOMAIN, G_LOG_LEVEL_ERROR, Pgchar({$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.Format(string(format), args)));
end;
procedure g_error (format:Pgchar);
@ -693,7 +700,7 @@ end;
procedure g_message (format:Pgchar; args: array of const);
begin
g_log (G_LOG_DOMAIN, G_LOG_LEVEL_MESSAGE, Pgchar(SysUtils.Format(string(format), args)));
g_log (G_LOG_DOMAIN, G_LOG_LEVEL_MESSAGE, Pgchar({$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.Format(string(format), args)));
end;
procedure g_message (format:Pgchar);
@ -703,7 +710,7 @@ end;
procedure g_critical (format:Pgchar; args: array of const);
begin
g_log (G_LOG_DOMAIN, G_LOG_LEVEL_CRITICAL, Pgchar(SysUtils.Format(string(format), args)));
g_log (G_LOG_DOMAIN, G_LOG_LEVEL_CRITICAL, Pgchar({$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.Format(string(format), args)));
end;
procedure g_critical (format:Pgchar);
@ -713,7 +720,7 @@ end;
procedure g_warning (format:Pgchar; args: array of const);
begin
g_log (G_LOG_DOMAIN, G_LOG_LEVEL_WARNING, Pgchar(SysUtils.Format(string(format), args)));
g_log (G_LOG_DOMAIN, G_LOG_LEVEL_WARNING, Pgchar({$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.Format(string(format), args)));
end;
procedure g_warning (format:Pgchar);

6
packages/gtk2/src/gtk+/gdk-pixbuf/gdk2pixbuf.pas
View File

@ -22,7 +22,9 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit gdk2pixbuf; // keep unit name lowercase for kylix
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$mode objfpc}
@ -33,7 +35,11 @@ unit gdk2pixbuf; // keep unit name lowercase for kylix
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Glib2;
{$ELSE FPC_DOTTEDUNITS}
uses glib2;
{$ENDIF FPC_DOTTEDUNITS}
const
{$ifdef windows}

6
packages/gtk2/src/gtk+/gdk/gdk2.pas
View File

@ -18,7 +18,9 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit gdk2; // keep unit name lowercase for kylix
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$mode objfpc}
@ -29,7 +31,11 @@ unit gdk2; // keep unit name lowercase for kylix
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Glib2, Api.Gtk2.Gdk2pixbuf, Api.Pango, Api.Cairo.Lib;
{$ELSE FPC_DOTTEDUNITS}
uses glib2, gdk2pixbuf, pango, cairo;
{$ENDIF FPC_DOTTEDUNITS}
const
// OS dependent defines

12
packages/gtk2/src/gtk+/gtk/gtk2.pas
View File

@ -16,7 +16,9 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit gtk2; // keep unit name lowercase for kylix
{$ENDIF FPC_DOTTEDUNITS}
// default GTK2_8
{$define GTK2_8}
@ -67,8 +69,13 @@ unit gtk2; // keep unit name lowercase for kylix
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Glib2, Api.Atk, Api.Pango, Api.Gtk2.Gdk2pixbuf, Api.Gdk2;
{$ELSE FPC_DOTTEDUNITS}
uses
glib2, atk, pango, gdk2pixbuf, gdk2;
{$ENDIF FPC_DOTTEDUNITS}
const
// OS dependent defines
@ -138,8 +145,13 @@ type
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses
SysUtils;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{ There is a bug in the compiler. If an external variable is not used, it will

7
packages/gtk2/src/gtk2x11/gdk2x.pas
View File

@ -13,7 +13,9 @@
Author: Mattias Gaertner
}
{$IFNDEF FPC_DOTTEDUNITS}
unit gdk2x;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$mode objfpc}
@ -24,8 +26,13 @@ unit gdk2x;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Classes, System.SysUtils, UnixApi.Types, UnixApi.Unix, UnixApi.Base, Api.Glib2, Api.Gdk2, Api.X11.Xlib, Api.X11.X, Api.X11.Xrender;
{$ELSE FPC_DOTTEDUNITS}
uses
Classes, SysUtils, UnixType, Unix, BaseUnix, glib2, gdk2, XLib, X, XRender;
{$ENDIF FPC_DOTTEDUNITS}
{$ifdef FREEBSD}
{$linklib pthread}

12
packages/gtk2/src/gtkext/gtk2ext.pp
View File

@ -1,11 +1,18 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit gtk2ext;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Glib2, Api.Gdk2, Api.Gtk2.Gdk2pixbuf, Api.Gtk2.Gtk2;
{$ELSE FPC_DOTTEDUNITS}
uses
glib2, gdk2, gdk2pixbuf, gtk2;
{$ENDIF FPC_DOTTEDUNITS}
const
{ This is equired when people don't have -dev/-devel packages on linux.
@ -28,8 +35,13 @@ const
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
System.SysUtils, System.DynLibs;
{$ELSE FPC_DOTTEDUNITS}
uses
SysUtils, dynlibs;
{$ENDIF FPC_DOTTEDUNITS}
var
gtkhandle : tlibhandle;

6
packages/gtk2/src/gtkglext/gdkglext.pas
View File

@ -24,11 +24,17 @@
{$mode objfpc}
{$IFNDEF FPC_DOTTEDUNITS}
unit gdkglext;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Glib2, Api.Gdk2;
{$ELSE FPC_DOTTEDUNITS}
uses Glib2, Gdk2;
{$ENDIF FPC_DOTTEDUNITS}
const
GdkGLExtLib =

6
packages/gtk2/src/gtkglext/gtkglext.pas
View File

@ -24,11 +24,17 @@
{$mode objfpc}
{$IFNDEF FPC_DOTTEDUNITS}
unit gtkglext;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Glib2, Api.Gdk2, Api.Gtk2.Gtk2, Api.Gtk2.Gdkglext;
{$ELSE FPC_DOTTEDUNITS}
uses Glib2, Gdk2, Gtk2, GdkGLExt;
{$ENDIF FPC_DOTTEDUNITS}
const
GtkGLExtLib =

7
packages/gtk2/src/gtkhtml/gtkhtml.pas
View File

@ -21,7 +21,9 @@
{
!!!!! Maybe wrong for kylix !!!!!
}
{$IFNDEF FPC_DOTTEDUNITS}
unit gtkhtml;
{$ENDIF FPC_DOTTEDUNITS}
{$H+}
{$IFDEF FPC}
@ -33,8 +35,13 @@ unit gtkhtml;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Gtk2.Gtk2, Api.Glib2, Api.Atk, Api.Pango, Api.Gtk2.Gdk2pixbuf, Api.Gdk2;
{$ELSE FPC_DOTTEDUNITS}
uses
gtk2, glib2, atk, pango, gdk2pixbuf, gdk2;
{$ENDIF FPC_DOTTEDUNITS}
const
// OS dependent defines

7
packages/gtk2/src/libglade/libglade2.pas
View File

@ -19,7 +19,9 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit libglade2; // keep unit name lowercase for kylix
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$mode objfpc}
@ -30,8 +32,13 @@ unit libglade2; // keep unit name lowercase for kylix
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Glib2, Api.Gtk2.Gtk2;
{$ELSE FPC_DOTTEDUNITS}
uses
glib2, gtk2;
{$ENDIF FPC_DOTTEDUNITS}
const
{$ifdef windows}

6
packages/gtk2/src/pango/pango.pas
View File

@ -19,7 +19,9 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02111-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit pango; // keep unit name lowercase for kylix
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$mode objfpc}
@ -30,7 +32,11 @@ unit pango; // keep unit name lowercase for kylix
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Glib2;
{$ELSE FPC_DOTTEDUNITS}
uses glib2;
{$ENDIF FPC_DOTTEDUNITS}
{$DEFINE PANGO_ENABLE_ENGINE}
{$DEFINE PANGO_ENABLE_BACKEND}

7
packages/gtk2/src/pango/pangoutils.pas
View File

@ -18,7 +18,9 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit pangoutils;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$MODE objfpc}
@ -29,8 +31,13 @@ unit pangoutils;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Glib2, Api.Pango;
{$ELSE FPC_DOTTEDUNITS}
uses
glib2, pango;
{$ENDIF FPC_DOTTEDUNITS}
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
Type

6
packages/gtk2/src/pangocairo/pangocairo.pas
View File

@ -20,7 +20,9 @@
Boston, MA 02111-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
unit pangocairo;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$mode objfpc}
@ -30,7 +32,11 @@ unit pangocairo;
{$ENDIF}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Glib2, Api.Pango, Api.Cairo.Lib;
{$ELSE FPC_DOTTEDUNITS}
uses glib2, pango, cairo;
{$ENDIF FPC_DOTTEDUNITS}
const
{$ifdef windows}