Bläddra i källkod

* Dotted filenames for package libffi

Michaël Van Canneyt 2 år sedan
förälder
incheckning
6cdf023a21

+ 3 - 0
packages/libffi/namespaced/Api.Ffi.manager.pp

@@ -0,0 +1,3 @@
+unit Api.Ffi.manager;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ffi.manager.pp}

+ 3 - 0
packages/libffi/namespaced/Api.Ffi.pp

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

+ 4 - 0
packages/libffi/namespaces.lst

@@ -0,0 +1,4 @@
+src/ffi.pp=namespaced/Api.Ffi.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/ffi.manager.pp=namespaced/Api.Ffi.manager.pp

+ 7 - 0
packages/libffi/src/ffi.manager.pp

@@ -12,7 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit ffi.manager;
 unit ffi.manager;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
@@ -20,8 +22,13 @@ interface
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.TypInfo, System.Rtti, Api.Ffi;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   TypInfo, Rtti, ffi;
   TypInfo, Rtti, ffi;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 type
 type
   Tpffi_typeArray = array of pffi_type;
   Tpffi_typeArray = array of pffi_type;

+ 7 - 0
packages/libffi/src/ffi.pp

@@ -39,12 +39,19 @@
    http://gcc.gnu.org/ml/java/1999-q3/msg00174.html
    http://gcc.gnu.org/ml/java/1999-q3/msg00174.html
    -------------------------------------------------------------------- *)
    -------------------------------------------------------------------- *)
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit ffi;
 unit ffi;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   ctypes;
   ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {
 {
    from the various ffitarget.h
    from the various ffitarget.h