paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package libcups

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:00 +01:00
parent 864f097053
commit 1a0a36f928
3 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/libcups/namespaced/Api.Cupsdyn.pp Normal file
View File

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

3
packages/libcups/namespaces.lst Normal file
View File

@ -0,0 +1,3 @@
src/cupsdyn.pp=namespaced/Api.Cupsdyn.pp
{s*:src/}=namespaced/
{i+:src/}

17
packages/libcups/src/cupsdyn.pp
View File

@ -29,13 +29,29 @@
mars 08 2005 - Dynamique link lib by Jesus Reyes (big thanks) mars 08 2005 - Dynamique link lib by Jesus Reyes (big thanks)
- Some modifications for work with Mdk 10.1 - Some modifications for work with Mdk 10.1
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
{$IFNDEF FPC_DOTTEDUNITS}
unit cupsdyn; unit cupsdyn;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{.$define UseLibC} {.$define UseLibC}
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Classes, System.SysUtils, System.DynLibs,
{$ifdef UseLibC}
{$IFDEF darwin}
miniCupsLibc
{$ELSE}
Api.Libc
{$ENDIF}
{$else}
UnixApi.Base, UnixApi.Unix, System.Net.Sockets
{$endif}
;
{$ELSE FPC_DOTTEDUNITS}
uses uses
Classes, SysUtils, dynlibs, Classes, SysUtils, dynlibs,
{$ifdef UseLibC} {$ifdef UseLibC}
@ -48,6 +64,7 @@ uses
baseunix, unix, sockets baseunix, unix, sockets
{$endif} {$endif}
; ;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C} {$PACKRECORDS C}