mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-23 14:24:28 +02:00
57 lines
1.1 KiB
PHP
57 lines
1.1 KiB
PHP
|
|
|
|
const
|
|
NAME_SIZE = 12;
|
|
TTY_SIZE = 16;
|
|
type
|
|
|
|
PCTL_MSG = ^CTL_MSG;
|
|
CTL_MSG = record
|
|
vers : u_char;
|
|
_type : u_char;
|
|
answer : u_char;
|
|
pad : u_char;
|
|
id_num : u_int32_t;
|
|
addr : osockaddr;
|
|
ctl_addr : osockaddr;
|
|
pid : int32_t;
|
|
l_name : array[0..(NAME_SIZE)-1] of char;
|
|
r_name : array[0..(NAME_SIZE)-1] of char;
|
|
r_tty : array[0..(TTY_SIZE)-1] of char;
|
|
end;
|
|
|
|
PCTL_RESPONSE = ^CTL_RESPONSE;
|
|
CTL_RESPONSE = record
|
|
vers : u_char;
|
|
_type : u_char;
|
|
answer : u_char;
|
|
pad : u_char;
|
|
id_num : u_int32_t;
|
|
addr : osockaddr;
|
|
end;
|
|
|
|
const
|
|
TALK_VERSION = 1;
|
|
LEAVE_INVITE = 0;
|
|
LOOK_UP = 1;
|
|
__DELETE = 2;
|
|
ANNOUNCE = 3;
|
|
SUCCESS = 0;
|
|
NOT_HERE = 1;
|
|
FAILED = 2;
|
|
MACHINE_UNKNOWN = 3;
|
|
PERMISSION_DENIED = 4;
|
|
UNKNOWN_REQUEST = 5;
|
|
BADVERSION = 6;
|
|
BADADDR = 7;
|
|
BADCTLADDR = 8;
|
|
MAX_LIFE = 60;
|
|
RING_WAIT = 30;
|
|
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types
|
|
---------------------------------------------------------------------}
|
|
|
|
// Type
|