* Dotted filenames for package ncurses

packages/ncurses/namespaced/Api.NCurses.Form.pp

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

packages/ncurses/namespaced/Api.NCurses.Menu.pp

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

packages/ncurses/namespaced/Api.NCurses.Ncrt.pp

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

packages/ncurses/namespaced/Api.NCurses.Ocrt.pp

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

packages/ncurses/namespaced/Api.NCurses.Panel.pp

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

packages/ncurses/namespaced/Api.Ncurses.pp

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

packages/ncurses/namespaces.lst

@@ -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

packages/ncurses/src/form.pp

@@ -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

packages/ncurses/src/menu.pp

@@ -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}

packages/ncurses/src/ncrt.inc

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

packages/ncurses/src/ncrt.pp

@@ -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}
 

packages/ncurses/src/ncurses.pp

@@ -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}

packages/ncurses/src/ocrt.pp

@@ -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
 

packages/ncurses/src/panel.pp

@@ -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}