fpc/packages/base/libc/butmph.inc
2005-02-14 17:13:06 +00:00

62 lines
1.4 KiB
PHP

const
UT_LINESIZE = 32;
UT_NAMESIZE = 32;
UT_HOSTSIZE = 256;
type
Plastlog = ^lastlog;
lastlog = record
ll_time : __time_t;
ll_line : array[0..(UT_LINESIZE)-1] of char;
ll_host : array[0..(UT_HOSTSIZE)-1] of char;
end;
Pexit_status = ^exit_status;
exit_status = record
e_termination : smallint;
e_exit : smallint;
end;
Putmp = ^utmp;
utmp = record
ut_type : smallint;
ut_pid : pid_t;
ut_line : array[0..(UT_LINESIZE)-1] of char;
ut_id : array[0..3] of char;
ut_user : array[0..(UT_NAMESIZE)-1] of char;
ut_host : array[0..(UT_HOSTSIZE)-1] of char;
ut_exit : exit_status;
ut_session : longint;
ut_tv : timeval;
ut_addr_v6 : array[0..3] of int32_t;
__unused : array[0..19] of char;
end;
PPutmp = ^Putmp;
const
EMPTY = 0;
RUN_LVL = 1;
BOOT_TIME = 2;
NEW_TIME = 3;
OLD_TIME = 4;
INIT_PROCESS = 5;
LOGIN_PROCESS = 6;
USER_PROCESS = 7;
DEAD_PROCESS = 8;
ACCOUNTING = 9;
UT_UNKNOWN = EMPTY;
_HAVE_UT_TYPE = 1;
_HAVE_UT_PID = 1;
_HAVE_UT_ID = 1;
_HAVE_UT_TV = 1;
_HAVE_UT_HOST = 1;
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
Type
TUserTmp = utmp;
PUserTmp = ^TUserTmp;