paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 00:33:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package ncurses

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:57 +01:00
parent b3dad1f6b1
commit 151a3124e0
14 changed files with 82 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/ncurses/namespaced/Api.NCurses.Form.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.NCurses.Form;
{$DEFINE FPC_DOTTEDUNITS}
{$i form.pp}

3
packages/ncurses/namespaced/Api.NCurses.Menu.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.NCurses.Menu;
{$DEFINE FPC_DOTTEDUNITS}
{$i menu.pp}

3
packages/ncurses/namespaced/Api.NCurses.Ncrt.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.NCurses.Ncrt;
{$DEFINE FPC_DOTTEDUNITS}
{$i ncrt.pp}

3
packages/ncurses/namespaced/Api.NCurses.Ocrt.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.NCurses.Ocrt;
{$DEFINE FPC_DOTTEDUNITS}
{$i ocrt.pp}

3
packages/ncurses/namespaced/Api.NCurses.Panel.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.NCurses.Panel;
{$DEFINE FPC_DOTTEDUNITS}
{$i panel.pp}

3
packages/ncurses/namespaced/Api.Ncurses.pp Normal file
View File

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

8
packages/ncurses/namespaces.lst Normal file
View File

@ -0,0 +1,8 @@
src/form.pp=namespaced/Api.NCurses.Form.pp
{s*:src/}=namespaced/
{i+:src/}
src/ocrt.pp=namespaced/Api.NCurses.Ocrt.pp
src/ncurses.pp=namespaced/Api.Ncurses.pp
src/ncrt.pp=namespaced/Api.NCurses.Ncrt.pp
src/menu.pp=namespaced/Api.NCurses.Menu.pp
src/panel.pp=namespaced/Api.NCurses.Panel.pp

7
packages/ncurses/src/form.pp
View File

@ -1,9 +1,16 @@
{$MODE OBJFPC}
{$IFNDEF FPC_DOTTEDUNITS}
unit form;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Ncurses, System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses
ncurses, ctypes;
{$ENDIF FPC_DOTTEDUNITS}
{$LINKLIB formw}
const

7
packages/ncurses/src/menu.pp
View File

@ -1,10 +1,17 @@
{$MODE OBJFPC}
{$IFNDEF FPC_DOTTEDUNITS}
unit menu;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Ncurses;
{$ELSE FPC_DOTTEDUNITS}
uses
ncurses;
{$ENDIF FPC_DOTTEDUNITS}
{$LINKLIB menuw}
{$PACKRECORDS C}

4
packages/ncurses/src/ncrt.inc
View File

@ -192,7 +192,11 @@ Const
Implementation
{$IFDEF FPC_DOTTEDUNITS}
uses System.Strings;
{$ELSE FPC_DOTTEDUNITS}
uses strings;
{$ENDIF FPC_DOTTEDUNITS}
Const
{ standard file descriptors }

12
packages/ncurses/src/ncrt.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit nCrt;
{$ENDIF FPC_DOTTEDUNITS}
{---------------------------------------------------------------------------
CncWare
(c) Copyright 1999-2000
@ -24,6 +26,15 @@ Unit nCrt;
}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
{$ifdef Unix}
UnixApi.Base,
UnixApi.TermIO,
{$endif}
Api.Ncurses,
TP.DOS; {TP.DOS needed for TextRec}
{$ELSE FPC_DOTTEDUNITS}
Uses
{$ifdef Unix}
baseunix,
@ -31,6 +42,7 @@ Uses
{$endif}
ncurses,
dos; {dos needed for TextRec}
{$ENDIF FPC_DOTTEDUNITS}
{$i ncrt.inc}

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

@ -32,11 +32,18 @@
{$MODE OBJFPC}
{$IFNDEF FPC_DOTTEDUNITS}
unit ncurses;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
UnixApi.Types;
{$ELSE FPC_DOTTEDUNITS}
uses
unixtype;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C}
{$LINKLIB ncursesw}

12
packages/ncurses/src/ocrt.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit oCrt;
{$ENDIF FPC_DOTTEDUNITS}
{---------------------------------------------------------------------------
CncWare
(c) Copyright 1999-2000
@ -152,6 +154,15 @@ Unit oCrt;
}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
{$ifdef Unix}
UnixApi.Base,
UnixApi.TermIO,
{$endif}
Api.Ncurses,Api.NCurses.Panel,Api.NCurses.Menu,
TP.DOS; {TP.DOS needed for TextRec}
{$ELSE FPC_DOTTEDUNITS}
Uses
{$ifdef unix}
baseunix,
@ -159,6 +170,7 @@ Uses
{$endif}
ncurses,panel,menu,
dos; {dos needed for TextRec}
{$ENDIF FPC_DOTTEDUNITS}
Const

7
packages/ncurses/src/panel.pp
View File

@ -1,9 +1,16 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit panel;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.Ncurses;
{$ELSE FPC_DOTTEDUNITS}
uses
ncurses;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C}