pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

ssposix.inc - improvements inspired by ACBr

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@246 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2022-01-12 18:17:17 +00:00
parent 6722d1bd92
commit da9579d128
1 changed files with 33 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
ssposix.inc
View File

@ -45,6 +45,9 @@
{:@exclude}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$IFDEF POSIX}
{for delphi XE2+}
@ -67,7 +70,7 @@ partially compatible with NextGen Delphi compiler - iOS
interface
uses
SyncObjs, SysUtils, Classes,
SyncObjs, SysUtils, Classes, synafpc,
Posix.SysSocket, Posix.SysSelect, Posix.SysTime, Posix.NetinetIn,
Posix.StrOpts, Posix.Errno;
@ -97,21 +100,24 @@ type
Ttimeval = Posix.SysTime.timeval;
const
{$IFDEF MACOS}
FIONREAD = $4004667F; // oSX FIONREAD = Posix.StrOpts.FIONREAD;
FIONBIO = $8004667E; //OSX FIONBIO = Posix.StrOpts.FIONBIO;
FIOASYNC = $8004667D; //OSX FIOASYNC = Posix.StrOpts.FIOASYNC; // not defined in XE2
{$ELSE}
// LINUX & ANDROID
FIONREAD = $541B;
FIONBIO = $5421;
FIOASYNC = $5452;
{$ENDIF}
//not declared in all Delphi versions...
{$IF DECLARED(Posix.StrOpts.FIONREAD)}
FIONREAD = Posix.StrOpts.FIONREAD;
{$Else}
FIONREAD = {$IFDEF ANDROID}$541B{$ELSE}$4004667F{$ENDIF};
{$IfEnd}
{ FIONREAD = $541B; // LINUX?
FIONBIO = $5421;
FIOASYNC = $5452; }
{$IF DECLARED(Posix.StrOpts.FIONBIO)}
FIONBIO = Posix.StrOpts.FIONBIO;
{$Else}
FIONBIO = {$IFDEF ANDROID}$5421{$ELSE}$8004667E{$ENDIF};
{$IfEnd}
{$IF DECLARED(Posix.StrOpts.FIOASYNC)}
FIOASYNC = Posix.StrOpts.FIOASYNC;
{$Else}
FIOASYNC = {$IFDEF ANDROID}$5452{$ELSE}$8004667D{$ENDIF};
{$IfEnd}
const
IPPROTO_IP = Posix.NetinetIn.IPPROTO_IP; { Dummy }
@ -238,11 +244,11 @@ const
AF_UNSPEC = Posix.SysSocket.AF_UNSPEC;// 0; { unspecified }
AF_INET = Posix.SysSocket.AF_INET; // 2; { internetwork: UDP, TCP, etc. }
AF_INET6 = Posix.SysSocket.AF_INET6; // !! 30 { Internetwork Version 6 }
{$IFDEF ANDROID}
AF_MAX = 24;
{$ELSE}
{$IF DECLARED(Posix.SysSocket.AF_MAX)}
AF_MAX = Posix.SysSocket.AF_MAX; // !! - variable by OS
{$ENDIF}
{$Else}
AF_MAX = 43; //not declared for Android
{$IfEnd}
{ Protocol families, same as address families for now. }
PF_UNSPEC = AF_UNSPEC;
@ -375,7 +381,7 @@ type
case sin_family: sa_family_t of
AF_INET: (sin_port: word;
sin_addr: TInAddr;
sin_zero: array[0..7] of Char);
sin_zero: array[0..7] of byte);
AF_INET6: (sin6_port: word;
sin6_flowinfo: longword;
sin6_addr: TInAddr6;
@ -480,12 +486,11 @@ end;
{$IFDEF NEXTGEN}
function GetHostByName(const name: string):Phostent;
var
h: Phostent;
begin
h := Posix.NetDB.gethostbyname(MarshaledAString(TMarshal.AsAnsi(name)));
Result := Posix.NetDB.gethostbyname(MarshaledAString(TMarshal.AsAnsi(name)));
end;
{$ENDIF}
{=============================================================================}
function WSAStartup(wVersionRequired: Word; var WSData: TWSAData): Integer;
@ -589,18 +594,21 @@ var
const
cMaxHostLength = 255;
begin
Result := '';
SetLength(name, cMaxHostLength);
if Posix.Unistd.GetHostName(MarshaledAString(name), cMaxHostLength) = 0 then
Result := TEncoding.UTF8.GetString(name).ToUpper;
Result := TEncoding.UTF8.GetString(name).ToUpper
{$ELSE}
var
s: AnsiString;
begin
Result := '';
setlength(s, 255);
setlength(s, cMaxHostLength);
Posix.Unistd.GetHostName(PAnsiChar(s), Length(s) - 1);
Result := PChar(string(s));
{$ENDIF}
if Result = '' then
Result := cLocalHostStr;
end;
function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
@ -716,19 +724,6 @@ begin
Result := (Family = AF_INET6) and SockWship6Api;
end;
{$IFDEF NEXTGEN}
function GetAddrInfo(hostname, servname: string;
const hints: addrinfo; out res: Paddrinfo): Integer;
begin
end;
{$ENDIF}
function gethostbyname(const name: PAnsiChar): PHostEnt; cdecl;
external libc name _PU + 'gethostbyname';
function gethostbyaddr(var addr; len: socklen_t; atype: integer): PHostEnt; cdecl;
external libc name _PU + 'gethostbyaddr';
function SetVarSin(var Sin: TVarSin; IP, Port: string; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
var
ProtoEnt: PProtoEnt;