* Dotted filenames for package unzip

packages/unzip/namespaced/System.Unzip51g.pp

@@ -0,0 +1,3 @@
+unit System.Unzip51g;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i unzip51g.pp}

packages/unzip/namespaced/System.Unzipdll.pp

@@ -0,0 +1,3 @@
+unit System.Unzipdll;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i unzipdll.pp}

packages/unzip/namespaced/System.Ziptypes.pp

@@ -0,0 +1,3 @@
+unit System.Ziptypes;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ziptypes.pp}

packages/unzip/namespaces.lst

@@ -0,0 +1,5 @@
+src/unzipdll.pp=namespaced/System.Unzipdll.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/ziptypes.pp=namespaced/System.Ziptypes.pp
+src/unzip51g.pp=namespaced/System.Unzip51g.pp

packages/unzip/src/unzip51g.pp

@@ -1,6 +1,8 @@
 {
 }
-UNIT Unzip51g;
+{$IFNDEF FPC_DOTTEDUNITS}
+unit Unzip51g;
+{$ENDIF FPC_DOTTEDUNITS}
 {
 Unzips deflated, imploded, shrunk and stored files
   ** COMPATIBLE WITH
@@ -64,10 +66,17 @@ INTERFACE
 
 {$R-}         {No range checking}
 
+{$IFDEF FPC_DOTTEDUNITS}
+USES
+  System.Strings,
+  TP.DOS,
+  System.Ziptypes;
+{$ELSE FPC_DOTTEDUNITS}
 USES
   strings,
   dos,
   ziptypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {**********************************************************************}
 {**********************************************************************}

packages/unzip/src/unzipdll.pp

@@ -1,6 +1,8 @@
 {
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit UnzipDLL;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$IFDEF VIRTUALPASCAL}
 {$Cdecl+,AlignRec-,OrgName+}
@@ -12,8 +14,13 @@ unit UnzipDLL;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+ System.Ziptypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
  ZipTypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
  UnzipErr: longint = 0;
@@ -36,6 +43,25 @@ const
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$IFDEF OS2}
+ {$IFDEF FPC}
+     DosCalls,
+ {$ELSE FPC}
+  {$IFDEF VirtualPascal}
+     OS2Base,
+  {$ELSE VirtualPascal}
+     BseDos,
+  {$ENDIF VirtualPascal}
+ {$ENDIF FPC}
+{$ELSE}
+ {$IFDEF WIN32}
+     Windows,
+ {$ENDIF WIN32}
+{$ENDIF OS2}
+ System.Unzip51g, TP.DOS;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$IFDEF OS2}
  {$IFDEF FPC}
@@ -53,6 +79,7 @@ uses
  {$ENDIF WIN32}
 {$ENDIF OS2}
  Unzip51g, Dos;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
  UzpMainFunc = function (ArgC: longint; var ArgV: TArgV): longint; cdecl;

packages/unzip/src/ziptypes.pp

@@ -1,6 +1,8 @@
 {
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 UNIT ZipTypes;
+{$ENDIF FPC_DOTTEDUNITS}
 {
 Type definitions for UNZIP
   * original version by Christian Ghisler