paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 09:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package gnutls

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:58 +01:00 committed by Pierre Muller
parent fc33a9df9b
commit e94b9c8306
5 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/gnutls/namespaced/Api.GnuTls.pp Normal file
View File

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

3
packages/gnutls/namespaced/System.Net.Gnutlssockets.pp Normal file
View File

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

4
packages/gnutls/namespaces.lst Normal file
View File

@ -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
packages/gnutls/src/gnutls.pp
View File

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

8
packages/gnutls/src/gnutlssockets.pp
View File

@ -1,12 +1,20 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit gnutlssockets; unit gnutlssockets;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface 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 uses
Classes, SysUtils, sockets, ssockets, sslsockets, dateUtils, Classes, SysUtils, sockets, ssockets, sslsockets, dateUtils,
cTypes, sslbase, gnutls; cTypes, sslbase, gnutls;
{$ENDIF FPC_DOTTEDUNITS}
Const Const
DefCertSize = 8192; DefCertSize = 8192;