* Dotted filenames for package os2units

packages/os2units/namespaced/OS2Api.Buildall.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Buildall;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i buildall.pas}

packages/os2units/namespaced/OS2Api.Clkdll.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Clkdll;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i clkdll.pas}

packages/os2units/namespaced/OS2Api.Dive.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Dive;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i dive.pas}

packages/os2units/namespaced/OS2Api.Ftpapi.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Ftpapi;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ftpapi.pas}

packages/os2units/namespaced/OS2Api.Hwvideo.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Hwvideo;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i hwvideo.pas}

packages/os2units/namespaced/OS2Api.Lvm.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Lvm;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i lvm.pas}

packages/os2units/namespaced/OS2Api.Mci.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Mci;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i mci.pas}

packages/os2units/namespaced/OS2Api.Mciapi.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Mciapi;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i mciapi.pas}

packages/os2units/namespaced/OS2Api.Mcidrv.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Mcidrv;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i mcidrv.pas}

packages/os2units/namespaced/OS2Api.Mmbase.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Mmbase;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i mmbase.pas}

packages/os2units/namespaced/OS2Api.Mmio.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Mmio;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i mmio.pas}

packages/os2units/namespaced/OS2Api.Som.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Som;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i som.pas}

packages/os2units/namespaced/OS2Api.Sw.pas

@@ -0,0 +1,3 @@
+unit OS2Api.Sw;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sw.pas}

packages/os2units/namespaces.lst

@@ -0,0 +1,15 @@
+src/lvm.pas=namespaced/OS2Api.Lvm.pas
+{s*:src/}=namespaced/
+{i+:src/}
+src/mmio.pas=namespaced/OS2Api.Mmio.pas
+src/clkdll.pas=namespaced/OS2Api.Clkdll.pas
+src/mciapi.pas=namespaced/OS2Api.Mciapi.pas
+src/sw.pas=namespaced/OS2Api.Sw.pas
+src/mcidrv.pas=namespaced/OS2Api.Mcidrv.pas
+src/dive.pas=namespaced/OS2Api.Dive.pas
+src/som.pas=namespaced/OS2Api.Som.pas
+src/hwvideo.pas=namespaced/OS2Api.Hwvideo.pas
+src/buildall.pas=namespaced/OS2Api.Buildall.pas
+src/mmbase.pas=namespaced/OS2Api.Mmbase.pas
+src/ftpapi.pas=namespaced/OS2Api.Ftpapi.pas
+src/mci.pas=namespaced/OS2Api.Mci.pas

packages/os2units/src/buildall.pas

@@ -1,7 +1,20 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit Buildall;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses
+  OS2Api.Sw,
+  OS2Api.Mmbase,
+  OS2Api.Dive,
+  OS2Api.Hwvideo,
+  OS2Api.Mci,
+  OS2Api.Mciapi,
+  OS2Api.Mcidrv,
+  OS2Api.Mmio;
+{$ELSE FPC_DOTTEDUNITS}
 Uses
   sw,
   mmbase,
@@ -11,6 +24,7 @@ Uses
   mciapi,
   mcidrv,
   mmio;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Implementation
 

packages/os2units/src/clkdll.pas

@@ -26,12 +26,19 @@ with OS/2 and eComStation. However, the Clock API DLL is not Rexx
 enabled.
 }
 
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit clkdll;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses
+  OS2Api.doscalls;
+{$ELSE FPC_DOTTEDUNITS}
 Uses
   DosCalls;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {
 If you need to know the universal world time call this API. The

packages/os2units/src/dive.pas

@@ -30,14 +30,20 @@
 
 ****************************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit DIVE;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {Warning: This code is alfa. Future versions of this unit will propably
  not be compatible.}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses OS2Api.os2def, OS2Api.pmwin, OS2Api.Mmbase;
+{$ELSE FPC_DOTTEDUNITS}
 Uses OS2Def, PMWin, MMBase;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const Max_Dive_Instances = 64;
 

packages/os2units/src/ftpapi.pas

@@ -29,7 +29,9 @@ not be compatible.
 @todo(Rework some functions to support strings longer then 255 chars)
 @todo(Finish functions description)
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit FTPAPI;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {****************************************************************************
 
@@ -40,10 +42,17 @@ unit FTPAPI;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  OS2Api.os2def,
+  OS2Api.pmwin,
+  System.Strings;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   OS2Def,
   PMWin,
   Strings;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   // window message id for post xfer updates

packages/os2units/src/hwvideo.pas

@@ -31,14 +31,23 @@ Warning: This code is alfa. Future versions of this unit will propably
 not be compatible.
 }
 
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit HWVideo;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses
+  OS2Api.os2def,
+  OS2Api.pmwin,
+  OS2Api.pmgpi;
+{$ELSE FPC_DOTTEDUNITS}
 Uses
   Os2Def,
   PMWin,
   PMGpi;
+{$ENDIF FPC_DOTTEDUNITS}
 
 // GRADD function class
 Const

packages/os2units/src/lvm.pas

@@ -22,7 +22,9 @@
    MA 02110-1301, USA.
 
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit LVM;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$PACKRECORDS C}
 
@@ -33,7 +35,7 @@ Interface
 {$endif}
 
 {$ifdef linux}
-  {$define lvm2}
+  { $define lvm2}
 {$endif}
 
 // The number of bytes in a sector on the disk.

packages/os2units/src/mci.pas

@@ -30,14 +30,23 @@ This is Media Control Interface of MMPM/2.
 Warning: This code is alfa. Future versions of this unit will propably
 not be compatible.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit mci;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses
+  OS2Api.Mmbase,
+  OS2Api.os2def,
+  OS2Api.pmgpi;
+{$ELSE FPC_DOTTEDUNITS}
 Uses
   mmbase,
   os2def,
   pmgpi;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   MCI_TRUE                      = 1;

packages/os2units/src/mciapi.pas

@@ -32,7 +32,9 @@ See "Multimedia with REXX" for more information.).
 Warning: This code is alfa. Future versions of this unit will propably
 not be compatible.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit mciapi;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$MODE ObjFPC}
 

packages/os2units/src/mcidrv.pas

@@ -30,7 +30,9 @@ MCI drivers interface
 Warning: This code is alfa. Future versions of this unit will propably
 not be compatible.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit mcidrv;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 

packages/os2units/src/mmbase.pas

@@ -45,13 +45,19 @@ not be compatible.
 //* Revised by Yuri Prokushev ([email protected])                        */
 //****************************************************************************/
 
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit mmbase;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$MODE ObjFPC}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses OS2Api.os2def;
+{$ELSE FPC_DOTTEDUNITS}
 Uses Os2Def;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
         VERSION = WORD;

packages/os2units/src/mmio.pas

@@ -30,12 +30,19 @@ OS/2 2.0 Multimedia Extensions Input/Output Manager
 Warning: This code is alfa. Future versions of this unit will propably
 not be compatible.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit MMIO;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses
+  OS2Api.Mmbase;
+{$ELSE FPC_DOTTEDUNITS}
 Uses
   MMBase;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   LibName='MMPM'; // !!TODO!! Subject to replace by MMIO

packages/os2units/src/som.pas

@@ -20,7 +20,9 @@
 
  **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit SOM;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 

packages/os2units/src/sw.pas

@@ -30,13 +30,21 @@ function prototypes for Multimedia Applets.
 Warning: This code is alfa. Future versions of this unit will propably
 not be compatible.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit SW;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses
+  OS2Api.os2def,
+  OS2Api.pmwin;
+{$ELSE FPC_DOTTEDUNITS}
 Uses
   Os2Def,
   PmWin;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   MAX_SMBDTEXT=35;