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

* Dotted filenames for package utmp

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

3
packages/utmp/namespaced/UnixApi.Utmp.pp Normal file
View File

@ -0,0 +1,3 @@
unit UnixApi.Utmp;
{$DEFINE FPC_DOTTEDUNITS}
{$i utmp.pp}

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

@ -0,0 +1,3 @@
src/utmp.pp=namespaced/UnixApi.Utmp.pp
{s*:src/}=namespaced/
{i+:src/}

8
packages/utmp/src/utmp.pp
View File

@ -1,10 +1,18 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit Utmp;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
UnixApi.Base,
UnixApi.Unix;
{$ELSE FPC_DOTTEDUNITS}
uses
BaseUnix,
Unix;
{$ENDIF FPC_DOTTEDUNITS}
const
Device_name_length = 12;