1 
  2 /*             "log_tbl.incl.pl1" -- include file to declare the format of the  */
  3 /*        data base maintained by the Network portion of the Answering Service. */
  4 
  5 /*        Originally created by D. M. Wells, Jan. 17, 1976 from an older        */
  6 /*                  version of the same information                             */
  7 /*        Version 5 created by D. M. Wells, July 1977, to remove ftp state and  */
  8 /*                  to change management of TTY terminal type info.             */
  9 
 10      declare
 11          (READ      initial (0),                            /* like socket gender, read is even               */
 12           WRITE     initial (1))                            /* like socket gender, write is odd               */
 13                fixed binary (1) internal static options (constant);
 14 
 15      declare
 16           cur_ltbl_version_5 fixed binary (17) initial (5)  /* current version number of these tables         */
 17                     internal static options (constant);
 18 
 19      declare
 20           1 lt based aligned,
 21              2 attachment_attributes,                       /* attributes associated with AS attachment       */
 22                 3 active fixed binary (17),                 /* zero if this is a vacant entry                 */
 23                 3 tty_name character (8) unaligned,         /* channel name (as assigned by the AS)           */
 24                 3 tty_index fixed binary (17),              /* assigned index for this pseudo-tty             */
 25                 3 as_event_chn fixed binary (71),           /* event channel to inform overseer via           */
 26                 3 ansp pointer,                             /* ptr to answer table entry                      */
 27                 3 tty_state fixed binary (3),               /* TTY pseudo-state (1 to 5)                      */
 28                 3 net_socket_group fixed binary (24),       /* Network socket group for this pseudo-TTY       */
 29 
 30                 3 wakeup_count fixed binary (17),           /* num network events rcvd for this channel       */
 31                 3 sig_sw bit (1),
 32 
 33              2 mode_attributes,                             /* Attributes and modes influencing connection    */
 34                 3 pseudo_tty_attributes aligned,
 35                    4 answerback character (4) unaligned,
 36                    4 line_type fixed binary (17),
 37                    4 assigned_service_type fixed binary (17),
 38                    4 line_length fixed binary (17),         /* current tty output carriage length             */
 39                    4 old_terminal_type fixed binary (17),   /* pre-MR 6.0 type of terminal                    */
 40                    4 terminal_type_name character (32) unaligned,     /* used in MR6.0 and later systems      */
 41 
 42                 3 current_modes unaligned,                  /* representation of the modes of this stream     */
 43                    4 can bit (1),                           /* whether the input should be canonicalized      */
 44                    4 erkl bit (1),                          /* whether erase and kill should be done          */
 45                    4 esc bit (1),                           /* whether escape sequences sb understood         */
 46                    4 half bit (1),                          /* terminal like TTY33                            */
 47                    4 edited bit (1),                        /* whether output non-graphics are deleted        */
 48                    4 hndlquit bit (1),                      /* we will do all processing of quits             */
 49                    4 tabs bit (1),                          /* whether tabs should be output directly         */
 50                    4 pad bit (29),
 51 
 52                    4 cr_seen bit (1),                       /* from net_converter_, has CR been seen?         */
 53                    4 escape_seen bit (1),                   /* ditto for escape (backslash)                   */
 54                    4 pad2 bit (34),
 55 
 56                 3 special_control unaligned,                /* special bits not controlled by modes changes   */
 57                    4 printer_off_capability_asserted bit (1),         /* user claims to have printer_off      */
 58                    4 spec_ctl_pad bit (35),
 59 
 60              2 connection_attributes aligned,               /* associated with the net connection             */
 61                 3 ncp_event_chn fixed binary (71),          /* event channel that NCP signals over            */
 62                 3 state_change_timeout fixed binary (71),   /* timeout clock reading                          */
 63                 3 sock_handle (0 : 1) bit (36) unaligned,   /* NCP indicies of read and write sockets         */
 64                 3 ftp_sock_handle (0 : 1) bit (36) unaligned,
 65                 3 passed_off_process_id bit (36) aligned,
 66                 3 line_state fixed binary (3),              /* Network LINE state                             */
 67                 3 foreign_socket,                           /* identification of foreign read socket          */
 68                    4 host_num fixed binary (16),
 69                    4 socket_num fixed binary (32),
 70                 3 hostname character (4) unaligned,         /* short name of host computer at other end       */
 71                 3 cur_service_type fixed binary (17),
 72                 3 service_index fixed binary (17),          /* 1 if Telnet, 2 if FTP                          */
 73                 3 contact_pin fixed binary (8),             /* Logger socket contacted for this service       */
 74                 3 service_name char (8) unaligned,          /* Name of this service: "Telnet", "FTP", etc.    */
 75 
 76              2 communication_attributes,
 77                 3 using_new_TELNET bit (1) unaligned,       /* whether we are using new TELNET                */
 78                 3 need_Go_Ahead bit (1) unaligned,
 79                 3 telnet_state unaligned,                   /* all bits off if telnet protocol is happy       */
 80                    4 last_was_IAC bit (1),                  /* ON -> last char was Interpret As Command       */
 81                    4 last_was_DO bit (1),                   /* last char was DO for some option               */
 82                    4 last_was_WILL bit (1),                 /* last char was WILL for some option             */
 83                    4 last_was_DONT bit (1),                 /* last char was DONT for some option             */
 84                    4 last_was_WONT bit (1),                 /* last char was WONT for some option             */
 85                 3 telnet_field_pad bit (29) unaligned,
 86                 3 rcte_info unaligned,                      /* If RCTE TELNET option in effect, its state     */
 87                    4 rcte_in_effect bit (1),
 88                    4 waiting_for_break_char bit (1),                  /* whether we have a <cmd> out          */
 89                    4 printer_on bit (1),                              /* should user TELNET echo or not       */
 90                    4 last_rcte_echo_cmd bit (3),
 91                    4 rcte_pad bit (30),
 92 
 93                 3 option_in_effect (0 : 1),
 94                    4 option (0 : 35) bit (1) unaligned,
 95                 3 option_in_negotiation (0 : 1),
 96                    4 option (0 : 35) bit (1) unaligned,
 97 
 98                 3 bufidx fixed binary (24),                 /* current length of lt.buf                       */
 99                 3 buffer aligned,
100                    4 buf (262) character (1) unaligned,     /* buffer for undelivered characters              */
101 
102              2 meters aligned,
103                 3 cumulative_dialed_up_time fixed binary (71),
104                 3 last_dialup_time fixed binary (71),
105                 3 num_connections fixed binary (30),
106                 3 num_activations fixed binary (30),
107                 3 num_wakeups_to_net_as fixed binary (30),
108                 3 num_wakeups_to_as fixed binary (30),
109                 3 num_listens fixed binary (30),
110                 3 num_hangup_orders fixed binary (30),
111                 3 num_channel_errors fixed binary (30),
112                 3 num_force_clears fixed binary (30),
113 
114              2 history aligned,
115                 3 num_state_changes fixed binary (30),
116                 3 history_padd fixed binary (35),
117                 3 state_block (0 : 8),
118                    4 entry_time fixed binary (71),
119                    4 status_code fixed binary (35),
120                    4 netstate fixed binary (5) unaligned,
121                    4 socket_state fixed binary (5) unaligned,
122                    4 function fixed binary (5) unaligned,
123                    4 ptty_state fixed binary (5) unaligned,
124                    4 history_pad bit (12) unaligned,
125                    4 comment character (8) unaligned,
126 
127              2 space (6) bit (36) aligned;
128 
129      declare
130            1 cs based aligned,                              /* Structure for each contact socket              */
131              2 logger_event_chn fixed binary (71),          /* Event channel for this contact socket          */
132              2 logger_state_timeout fixed binary (71),      /* Timeout cell for this contact socket           */
133              2 service_index fixed binary (17),             /* Index of this structure in array of structures */
134              2 service_type fixed binary (17),              /* AS Service type -- LOGIN, FTP, etc.            */
135              2 log_pin fixed binary (8),                    /* Pin number of this service                     */
136              2 log_type character (8) unaligned,            /* name of this service type                      */
137              2 ptty_info bit (36),                          /* random bits to be given to net_tty_            */
138 
139              2 log_sock_handle bit (36) unaligned,          /* NCP index of ICP contact socket                */
140              2 tty_idx fixed binary (17),                   /* Index of pseudo-tty found for caller           */
141              2 logger_state fixed binary (3),               /* Contact socket state variable                  */
142              2 socket32 bit (32),                           /* Name of socket we're going to send connect on  */
143              2 num_logger_wakeups fixed binary (30),
144              2 num_logger_contacts fixed binary (30),
145              2 num_logger_rejects fixed binary (30),
146              2 num_force_clears fixed binary (30),
147              2 num_activations fixed binary (30),
148              2 num_timeouts fixed binary (35),
149              2 history aligned,
150                 3 num_state_changes fixed binary (30),
151                 3 state_block (0 : 11),
152                    4 entry_time fixed binary (71),
153                    4 status_code fixed binary (35),
154                    4 netstate fixed binary (5) unaligned,
155                    4 socket_state fixed binary (5) unaligned,
156                    4 function fixed binary (5) unaligned,
157                    4 log_state fixed binary (5) unaligned,
158                    4 history_pad bit (12) unaligned,
159                    4 comment character (8) unaligned,
160 
161              2 space (2) bit (36) aligned;
162 
163      declare
164            1 ltbl based aligned,
165              2 time_initialized fixed binary (71),          /* time this segment was last initialized         */
166              2 version_number fixed binary (17),            /* stored value of existing ltbl                  */
167              2 max_length fixed binary (17),                /* max number of lt entries we will allow         */
168              2 max_inuse fixed binary (17),                 /* max number of lt entries ever in use           */
169              2 num_services fixed binary (17),              /* number of contact sockets in table             */
170              2 logger_grace_period fixed binary (71),       /* interval before log socket is force-closed     */
171              2 ptty_grace_period fixed binary (71),         /* interval before pseudo-TTY is force-closed     */
172              2 ncp_global_channel fixed binary (71),        /* channel to be informed about NCP state changes */
173              2 as_processid bit (36) aligned,               /* processid of the answering service             */
174              2 as_lockid bit (36) aligned,                  /* lock is of the answering service               */
175              2 logger_service_state fixed binary (3),
176              2 ptty_net_state fixed binary (17),
177              2 num_net_state_changes fixed binary (30),
178              2 reserved (47) bit (36) aligned,
179 
180              2 contact_socket (1 : 10) aligned like cs,     /* Structure for each contact socket, the         */
181                                                             /* actual high bound used is num_services         */
182              2 entry (512) aligned like lt;                 /* Structure for each pseudo-tty channel          */
183 
184 /*        end of include file "log_tbl.incl.pl1"                      */
185