Преглед изворни кода

* Dotted filenames for package ibase

Michaël Van Canneyt пре 2 година
родитељ
комит
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;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 

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

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

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

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

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

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