fpcsrc/packages/libc/src/sutsnameh.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


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';