mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-18 14:22:47 +02:00
32 lines
945 B
PHP
32 lines
945 B
PHP
|
|
const
|
|
_UTSNAME_NODENAME_LENGTH = _UTSNAME_LENGTH;
|
|
|
|
type
|
|
Putsname = ^utsname;
|
|
utsname = record
|
|
sysname : array[0..(_UTSNAME_LENGTH)-1] of char;
|
|
nodename : array[0..(_UTSNAME_NODENAME_LENGTH)-1] of char;
|
|
release : array[0..(_UTSNAME_LENGTH)-1] of char;
|
|
version : array[0..(_UTSNAME_LENGTH)-1] of char;
|
|
machine : array[0..(_UTSNAME_LENGTH)-1] of char;
|
|
domainname : array[0..(_UTSNAME_DOMAIN_LENGTH)-1] of char;
|
|
__domainname : array[0..(_UTSNAME_DOMAIN_LENGTH)-1] of char;
|
|
end;
|
|
|
|
const
|
|
SYS_NMLN = _UTSNAME_LENGTH;
|
|
|
|
function uname(__name:Putsname):longint;cdecl;external clib name 'uname';
|
|
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types
|
|
---------------------------------------------------------------------}
|
|
|
|
Type
|
|
TUTSName = utsname;
|
|
|
|
function uname(var __name: utsname):longint;cdecl;external clib name 'uname';
|
|
|