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

* Dotted filenames for package cairo

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:55 +01:00
parent e42a11fbfe
commit 79529a0cc0
11 changed files with 57 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/cairo/namespaced/Api.Cairo.Ft.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Cairo.Ft;
{$DEFINE FPC_DOTTEDUNITS}
{$i cairoft.pp}

3
packages/cairo/namespaced/Api.Cairo.GObject.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Cairo.GObject;
{$DEFINE FPC_DOTTEDUNITS}
{$i cairogobject.pp}

3
packages/cairo/namespaced/Api.Cairo.Lib.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Cairo.Lib;
{$DEFINE FPC_DOTTEDUNITS}
{$i cairo.pp}

3
packages/cairo/namespaced/Api.Cairo.Win32.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Cairo.Win32;
{$DEFINE FPC_DOTTEDUNITS}
{$i cairowin32.pp}

3
packages/cairo/namespaced/Api.Cairo.Xlib.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Cairo.Xlib;
{$DEFINE FPC_DOTTEDUNITS}
{$i cairoxlib.pp}

7
packages/cairo/namespaces.lst Normal file
View File

@ -0,0 +1,7 @@
src/cairogobject.pp=namespaced/Api.Cairo.GObject.pp
{s*:src/}=namespaced/
{i+:src/}
src/cairo.pp=namespaced/Api.Cairo.Lib.pp
src/cairoft.pp=namespaced/Api.Cairo.Ft.pp
src/cairoxlib.pp=namespaced/Api.Cairo.Xlib.pp
src/cairowin32.pp=namespaced/Api.Cairo.Win32.pp

7
packages/cairo/src/cairo.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit Cairo;
{$ENDIF FPC_DOTTEDUNITS}
(* cairo - a vector graphics library with display and print output
*
@ -62,8 +64,13 @@ unit Cairo;
interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
Uses
CTypes;
{$ENDIF FPC_DOTTEDUNITS}
const
{$ifdef MSWINDOWS}

7
packages/cairo/src/cairoft.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit CairoFT;
{$ENDIF FPC_DOTTEDUNITS}
{
This file is part of the Free Pascal libraries.
Copyright (c) 2003-2008 by the Free Pascal development team
@ -28,8 +30,13 @@ cairo.pp for the full license.
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Cairo.Lib, Api.Freetypeh;
{$ELSE FPC_DOTTEDUNITS}
uses
Cairo, freetypeh;
{$ENDIF FPC_DOTTEDUNITS}
type
//todo: properly define FcPattern:

8
packages/cairo/src/cairogobject.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit cairogobject;
{$ENDIF FPC_DOTTEDUNITS}
{
Cairo-gobject header translation by Dennis Golovan. Original header
of cairo-gobject.h
@ -45,7 +47,11 @@ interface
{$PACKRECORDS C}
{$ENDIF}
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Cairo.Lib;
{$ELSE FPC_DOTTEDUNITS}
uses cairo;
{$ENDIF FPC_DOTTEDUNITS}
const
{$ifdef MSWINDOWS}
@ -300,4 +306,4 @@ begin
Result := cairo_gobject_region_overlap_get_type;
end;
end.
end.

7
packages/cairo/src/cairowin32.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit CairoWin32;
{$ENDIF FPC_DOTTEDUNITS}
{
This file is part of the Free Pascal libraries.
Copyright (c) 2003-2008 by the Free Pascal development team
@ -26,8 +28,13 @@ licensed LGPL-MPL see the file cairo.pp for the full license.
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Cairo.Lib, WinApi.Windows;
{$ELSE FPC_DOTTEDUNITS}
uses
Cairo, windows;
{$ENDIF FPC_DOTTEDUNITS}
function cairo_win32_surface_create(dc: HDC): Pcairo_surface_t; cdecl; external LIB_CAIRO;
function cairo_win32_printing_surface_create(dc: HDC): Pcairo_surface_t; cdecl; external LIB_CAIRO;

7
packages/cairo/src/cairoxlib.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit CairoXlib;
{$ENDIF FPC_DOTTEDUNITS}
{
This file is part of the Free Pascal libraries.
Copyright (c) 2003-2008 by the Free Pascal development team
@ -30,8 +32,13 @@ unit CairoXlib;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Cairo.Lib, Api.X11.X, Api.X11.Xlib, Api.X11.Xrender;
{$ELSE FPC_DOTTEDUNITS}
uses
Cairo, x, xlib, xrender;
{$ENDIF FPC_DOTTEDUNITS}
function cairo_xlib_surface_create(dpy: PDisplay; drawable: TDrawable; visual: PVisual; width, height: LongInt): Pcairo_surface_t; cdecl; external LIB_CAIRO;
function cairo_xlib_surface_create_for_bitmap(dpy: PDisplay; bitmap: TPixmap; screen: PScreen; width, height: LongInt): Pcairo_surface_t; cdecl; external LIB_CAIRO;