Browse Source

* Dotted filenames for package ibase

Michaël Van Canneyt 2 years ago
parent
commit
91318fdea2

+ 3 - 0
packages/ibase/namespaced/Api.Ibase40.pp

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

+ 3 - 0
packages/ibase/namespaced/Api.Ibase60.pp

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

+ 3 - 0
packages/ibase/namespaced/Api.Ibase60dyn.pp

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

+ 5 - 0
packages/ibase/namespaces.lst

@@ -0,0 +1,5 @@
+src/ibase40.pp=namespaced/Api.Ibase40.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/ibase60.pp=namespaced/Api.Ibase60.pp
+src/ibase60dyn.pp=namespaced/Api.Ibase60dyn.pp

+ 2 - 0
packages/ibase/src/ibase40.pp

@@ -1,6 +1,8 @@
 {
 {
 }
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit ibase40;
 unit ibase40;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 interface
 interface
 
 

+ 11 - 0
packages/ibase/src/ibase60.inc

@@ -8,13 +8,24 @@
 interface
 interface
 
 
 {$IFDEF LinkDynamically}
 {$IFDEF LinkDynamically}
+
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.DynLibs, System.SysUtils, System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses Dynlibs, sysutils,ctypes;
 uses Dynlibs, sysutils,ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Var
 Var
   UseEmbeddedFirebird : Boolean = False;
   UseEmbeddedFirebird : Boolean = False;
 
 
 {$ELSE}
 {$ELSE}
+
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.DynLibs, System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses Dynlibs,ctypes;
 uses Dynlibs,ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
+
 {$ENDIF}
 {$ENDIF}
 
 
 {$IFDEF Unix}
 {$IFDEF Unix}

+ 2 - 0
packages/ibase/src/ibase60.pp

@@ -1,6 +1,8 @@
 {
 {
 }
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit ibase60;
 unit ibase60;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$UNDEF LinkDynamically}
 {$UNDEF LinkDynamically}
 
 

+ 2 - 0
packages/ibase/src/ibase60dyn.pp

@@ -9,7 +9,9 @@
   when finished.
   when finished.
 }
 }
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit ibase60dyn;
 unit ibase60dyn;
+{$ENDIF}
 
 
 {$DEFINE LinkDynamically}
 {$DEFINE LinkDynamically}