浏览代码

* Dotted filenames for package oracle

Michaël Van Canneyt 2 年之前
父节点
当前提交
a99f330e3b

+ 3 - 0
packages/oracle/namespaced/Api.Oracle.Oci.pp

@@ -0,0 +1,3 @@
+unit Api.Oracle.Oci;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i oci.pp}

+ 3 - 0
packages/oracle/namespaced/Api.Oracle.OciDyn.pp

@@ -0,0 +1,3 @@
+unit Api.Oracle.OciDyn;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ocidyn.pp}

+ 3 - 0
packages/oracle/namespaced/Api.Oracle.OraOci.pp

@@ -0,0 +1,3 @@
+unit Api.Oracle.OraOci;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i oraoci.pp}

+ 3 - 0
packages/oracle/namespaced/Api.Oracle.Types.pp

@@ -0,0 +1,3 @@
+unit Api.Oracle.Types;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i oratypes.pp}

+ 6 - 0
packages/oracle/namespaces.lst

@@ -0,0 +1,6 @@
+src/oratypes.pp=namespaced/Api.Oracle.Types.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/oci.pp=namespaced/Api.Oracle.Oci.pp
+src/oraoci.pp=namespaced/Api.Oracle.OraOci.pp
+src/ocidyn.pp=namespaced/Api.Oracle.OciDyn.pp

+ 9 - 0
packages/oracle/src/oci.inc

@@ -4,12 +4,21 @@
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.CTypes,
+{$IFDEF LinkDynamically}
+ System.SysUtils,
+{$ENDIF}
+    System.DynLibs, // always for sharedsuffix
+    Api.Oracle.Types;
+{$ELSE FPC_DOTTEDUNITS}
 uses ctypes,
 {$IFDEF LinkDynamically}
  sysutils,
 {$ENDIF}
     Dynlibs, // always for sharedsuffix
     oratypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {
   Automatically converted by H2Pas 1.0.0 from oci.h

+ 2 - 0
packages/oracle/src/oci.pp

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

+ 2 - 0
packages/oracle/src/ocidyn.pp

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit OCIdyn;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$DEFINE LinkDynamically}
 

+ 2 - 0
packages/oracle/src/oraoci.pp

@@ -12,7 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit OraOCI;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$MODE FPC}
 {$linklib clntsh}

+ 2 - 0
packages/oracle/src/oratypes.pp

@@ -1,5 +1,7 @@
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit oratypes;
+{$ENDIF FPC_DOTTEDUNITS}
 interface
 
 {