Browse Source

* Dotted filenames for package bzip2

Michaël Van Canneyt 2 years ago
parent
commit
c7f406b1f9

+ 3 - 0
packages/bzip2/namespaced/System.Bzip2.pas

@@ -0,0 +1,3 @@
+unit System.Bzip2;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i bzip2.pas}

+ 3 - 0
packages/bzip2/namespaced/System.Bzip2comn.pp

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

+ 3 - 0
packages/bzip2/namespaced/System.Bzip2stream.pp

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

+ 5 - 0
packages/bzip2/namespaces.lst

@@ -0,0 +1,5 @@
+src/bzip2.pas=namespaced/System.Bzip2.pas
+{s*:src/}=namespaced/
+{i+:src/}
+src/bzip2stream.pp=namespaced/System.Bzip2stream.pp
+src/bzip2comn.pp=namespaced/System.Bzip2comn.pp

+ 6 - 0
packages/bzip2/src/bzip2.pas

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit bzip2;
 unit bzip2;
+{$ENDIF FPC_DOTTEDUNITS}
 {****************************************************************************
 {****************************************************************************
 
 
                              BZIP2 decompression unit
                              BZIP2 decompression unit
@@ -26,7 +28,11 @@ interface
 
 
 {$goto on}
 {$goto on}
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.Objects, System.Bzip2comn;
+{$ELSE FPC_DOTTEDUNITS}
 uses objects, bzip2comn;
 uses objects, bzip2comn;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
       Tbzip2_decode_stream=object(Tstream)
       Tbzip2_decode_stream=object(Tstream)

+ 3 - 1
packages/bzip2/src/bzip2comn.pp

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit bzip2comn;
 unit bzip2comn;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 interface
 interface
 
 
@@ -73,4 +75,4 @@ begin
     base[i]:=((limit[i-1]+1) shl 1)-base[i];
     base[i]:=((limit[i-1]+1) shl 1)-base[i];
 end;
 end;
 
 
-end.
+end.

+ 6 - 0
packages/bzip2/src/bzip2stream.pp

@@ -1,6 +1,8 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit bzip2stream;
 unit bzip2stream;
+{$ENDIF FPC_DOTTEDUNITS}
 {****************************************************************************
 {****************************************************************************
 
 
                              BZIP2 decompression unit
                              BZIP2 decompression unit
@@ -30,7 +32,11 @@ interface
 
 
 {$goto on}
 {$goto on}
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.Classes,System.SysUtils, System.Bzip2comn;
+{$ELSE FPC_DOTTEDUNITS}
 uses Classes,SysUtils, bzip2comn;
 uses Classes,SysUtils, bzip2comn;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
   TDecompressBzip2Stream=Class(TOwnerStream)
   TDecompressBzip2Stream=Class(TOwnerStream)