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

* Dotted filenames for package libtar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:02 +01:00
parent 88ba748ef0
commit 9c15301b34
3 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/libtar/namespaced/Libx.Libtar.pp Normal file
View File

@ -0,0 +1,3 @@
unit Libx.Libtar;
{$DEFINE FPC_DOTTEDUNITS}
{$i libtar.pp}

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

@ -0,0 +1,3 @@
src/libtar.pp=namespaced/Libx.Libtar.pp
{s*:src/}=namespaced/
{i+:src/}

16
packages/libtar/src/libtar.pp
View File

@ -84,7 +84,9 @@ Date Author Changes
Mostly rawbytestring and a couple of more hary typecasts. Mostly rawbytestring and a couple of more hary typecasts.
*) *)
{$IFNDEF FPC_DOTTEDUNITS}
UNIT libtar; UNIT libtar;
{$ENDIF FPC_DOTTEDUNITS}
INTERFACE INTERFACE
@ -97,6 +99,19 @@ INTERFACE
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
{$IFDEF FPC_DOTTEDUNITS}
USES
{$IFDEF LIBCUNIT}
Api.Libc, // MvdV: Nothing is used from this???
{$ENDIF}
{$ifdef Unix}
UnixApi.Types, UnixApi.Base, UnixApi.Unix,
{$endif}
(*$IFDEF MSWINDOWS *)
WinApi.Windows,
(*$ENDIF *)
System.SysUtils, System.Classes;
{$ELSE FPC_DOTTEDUNITS}
USES USES
{$IFDEF LIBCUNIT} {$IFDEF LIBCUNIT}
Libc, // MvdV: Nothing is used from this??? Libc, // MvdV: Nothing is used from this???
@ -108,6 +123,7 @@ USES
Windows, Windows,
(*$ENDIF *) (*$ENDIF *)
SysUtils, Classes; SysUtils, Classes;
{$ENDIF FPC_DOTTEDUNITS}
TYPE TYPE