paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 03:28:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package openssl

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:04 +01:00
parent a3d32e6c5b
commit fdac8f4e43
7 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/openssl/namespaced/Api.Openssl.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Openssl;
{$DEFINE FPC_DOTTEDUNITS}
{$i openssl.pas}

3
packages/openssl/namespaced/System.Net.Fpopenssl.pp Normal file
View File

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

3
packages/openssl/namespaced/System.Net.Opensslsockets.pp Normal file
View File

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

5
packages/openssl/namespaces.lst Normal file
View File

@ -0,0 +1,5 @@
src/opensslsockets.pp=namespaced/System.Net.Opensslsockets.pp
{s*:src/}=namespaced/
{i+:src/}
src/openssl.pas=namespaced/Api.Openssl.pas
src/fpopenssl.pp=namespaced/System.Net.Fpopenssl.pp

11
packages/openssl/src/fpopenssl.pp
View File

@ -12,15 +12,22 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit fpopenssl;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
{$DEFINE DUMPCERT}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Classes, System.SysUtils, System.Net.Sslbase, Api.Openssl, System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses
Classes, SysUtils, sslbase, openssl, ctypes;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF DUMPCERT}
Const
@ -127,7 +134,11 @@ Function BioToString(B : PBIO; FreeBIO : Boolean = False) : AnsiString;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses System.DateUtils;
{$ELSE FPC_DOTTEDUNITS}
uses dateutils;
{$ENDIF FPC_DOTTEDUNITS}
Resourcestring
SErrCountNotGetContext = 'Failed to create SSL Context';

10
packages/openssl/src/openssl.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit openssl;
{$ENDIF FPC_DOTTEDUNITS}
{==============================================================================|
| Project : Ararat Synapse | 003.004.001 |
@ -79,11 +81,19 @@ requested OpenSSL function just return errorcode.
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
{$IFDEF OS2}
System.Net.Sockets,
{$ENDIF OS2}
System.DynLibs, System.CTypes, System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses
{$IFDEF OS2}
Sockets,
{$ENDIF OS2}
DynLibs, cTypes, SysUtils;
{$ENDIF FPC_DOTTEDUNITS}
Type
TLibreSSLSupport = (lssFirst,lssLast,lssDisabled);

7
packages/openssl/src/opensslsockets.pp
View File

@ -1,11 +1,18 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit opensslsockets;
{$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.Net.Sslbase, Api.Openssl, System.Net.Fpopenssl;
{$ELSE FPC_DOTTEDUNITS}
uses
Classes, SysUtils, sockets, ssockets, sslsockets, sslbase, openssl, fpopenssl;
{$ENDIF FPC_DOTTEDUNITS}
Type