@@ -0,0 +1,3 @@
+unit Api.GnuTls;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gnutls.pp}
+unit System.Net.Gnutlssockets;
+{$i gnutlssockets.pp}
@@ -0,0 +1,4 @@
+src/gnutls.pp=namespaced/Api.GnuTls.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/gnutlssockets.pp=namespaced/System.Net.Gnutlssockets.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;
{
Automatically converted by H2Pas 1.0.0 from gnutls.c
@@ -2327,8 +2333,13 @@ Function GnuTLSloaded : Boolean;
implementation
+uses
+ System.SysUtils, System.DynLibs;
uses
SysUtils, dynlibs;
{ was #define dname def_expr }
function GNUTLS_X509_NO_WELL_DEFINED_EXPIRATION : Ttime_t;
@@ -1,12 +1,20 @@
unit gnutlssockets;
{$mode objfpc}{$H+}
+ System.Classes, System.SysUtils, System.Net.Sockets, System.Net.Ssockets, System.Net.Sslsockets,
+ System.DateUtils, System.CTypes, System.Net.Sslbase, Api.GnuTls;
Classes, SysUtils, sockets, ssockets, sslsockets, dateUtils,
cTypes, sslbase, gnutls;
Const
DefCertSize = 8192;