diff options
Diffstat (limited to 'packages/libc/src/sutsnameh.inc')
| -rw-r--r-- | packages/libc/src/sutsnameh.inc | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/packages/libc/src/sutsnameh.inc b/packages/libc/src/sutsnameh.inc new file mode 100644 index 0000000000..94440b0ffa --- /dev/null +++ b/packages/libc/src/sutsnameh.inc @@ -0,0 +1,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'; + |