Browse Source

* Dotted filenames for package gnutls

Michaël Van Canneyt 2 years ago
parent
commit
100bdd5b0c

+ 3 - 0
packages/gnutls/namespaced/Api.GnuTls.pp

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

+ 3 - 0
packages/gnutls/namespaced/System.Net.Gnutlssockets.pp

@@ -0,0 +1,3 @@
+unit System.Net.Gnutlssockets;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gnutlssockets.pp}

+ 4 - 0
packages/gnutls/namespaces.lst

@@ -0,0 +1,4 @@
+src/gnutls.pp=namespaced/Api.GnuTls.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/gnutlssockets.pp=namespaced/System.Net.Gnutlssockets.pp

+ 11 - 0
packages/gnutls/src/gnutls.pp

@@ -16,11 +16,17 @@
 
 {$mode objfpc}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gnutls;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {
   Automatically converted by H2Pas 1.0.0 from gnutls.c
@@ -2327,8 +2333,13 @@ Function GnuTLSloaded : Boolean;
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.SysUtils, System.DynLibs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   SysUtils, dynlibs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 { was #define dname def_expr }
 function GNUTLS_X509_NO_WELL_DEFINED_EXPIRATION : Ttime_t;

+ 8 - 0
packages/gnutls/src/gnutlssockets.pp

@@ -1,12 +1,20 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gnutlssockets;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, System.Net.Sockets, System.Net.Ssockets, System.Net.Sslsockets, 
+  System.DateUtils, System.CTypes, System.Net.Sslbase, Api.GnuTls;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, sockets, ssockets, sslsockets, dateUtils,
   cTypes, sslbase, gnutls;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   DefCertSize = 8192;