paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 15:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package imagemagick

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:00 +01:00
parent 18f0d90ba6
commit 6913f674b0
7 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/imagemagick/namespaced/Api.Buildim.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Buildim;
{$DEFINE FPC_DOTTEDUNITS}
{$i buildim.pp}

3
packages/imagemagick/namespaced/Api.Imagemagick.pas Normal file
View File

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

3
packages/imagemagick/namespaced/Api.Magick_wand.pas Normal file
View File

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

5
packages/imagemagick/namespaces.lst Normal file
View File

@ -0,0 +1,5 @@
src/imagemagick.pas=namespaced/Api.Imagemagick.pas
{s*:src/}=namespaced/
{i+:src/}
src/buildim.pp=namespaced/Api.Buildim.pp
src/magick_wand.pas=namespaced/Api.Magick_wand.pas

6
packages/imagemagick/src/buildim.pp
View File

@ -18,11 +18,17 @@
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02111-1301, USA. Boston, MA 02111-1301, USA.
} }
{$IFNDEF FPC_DOTTEDUNITS}
unit buildim; unit buildim;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Imagemagick, Api.Magick_wand;
{$ELSE FPC_DOTTEDUNITS}
uses imagemagick, magick_wand; uses imagemagick, magick_wand;
{$ENDIF FPC_DOTTEDUNITS}
Implementation Implementation

6
packages/imagemagick/src/imagemagick.pas
View File

@ -22,7 +22,9 @@
Thanks to Marc Geldon and RuBBeR Thanks to Marc Geldon and RuBBeR
} }
{Version 0.4} {Version 0.4}
{$IFNDEF FPC_DOTTEDUNITS}
unit ImageMagick; unit ImageMagick;
{$ENDIF FPC_DOTTEDUNITS}
{$ifdef FPC} {$ifdef FPC}
{$mode objfpc} {$mode objfpc}
@ -31,7 +33,11 @@ unit ImageMagick;
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses System.SysUtils, System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses SysUtils, ctypes; uses SysUtils, ctypes;
{$ENDIF FPC_DOTTEDUNITS}
{$z4} {$z4}

6
packages/imagemagick/src/magick_wand.pas
View File

@ -24,7 +24,9 @@
Thanks to Marc Geldon and RuBBeR Thanks to Marc Geldon and RuBBeR
} }
{Version 0.4} {Version 0.4}
{$IFNDEF FPC_DOTTEDUNITS}
unit magick_wand; unit magick_wand;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC} {$IFDEF FPC}
{$mode objfpc} {$mode objfpc}
@ -35,7 +37,11 @@ unit magick_wand;
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Imagemagick, System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses ImageMagick, ctypes; uses ImageMagick, ctypes;
{$ENDIF FPC_DOTTEDUNITS}
{ Various types } { Various types }
type type