/* Begin include file ftp_server_data.incl.pl1 */ /* Created 02/21/73 by K. T. Pogran */ /* Modified 10/24/74 by K. T. Pogran */ /* Modified by S. T. Kent to become automatic rather than external database 10/14/76 */ declare type_name (4) char (12) internal static options (constant) initial ("ASCII", "Image", "Local Byte", "EBCDIC"); declare mode_name (3) char (8) internal static options (constant) initial ("Stream", "Text", "Block"); declare 1 ftp_data_template based aligned, /* Instance Block for File Transfer Protocol Server */ 2 instance_info, 3 iocb_ptr pointer, /* Input/Output stream for command/response */ 3 static_return_label label, /* label to get out of server environment */ 3 abort_return_label label, /* label to get out of current command */ 3 abort_procedure entry, /* procedure to cleanup after current command */ 3 dptr pointer, /* (possibly) pointer to dprint arg info */ 3 instance_flags unaligned, 4 ftp_server_process bit (1), /* TRUE iff process was created as FTP server */ 4 bye_pending bit (1), /* TRUE iff we should logout after xfer is done */ 4 logout_hold bit (1), /* TRUE iff user said REIN instead of BYE */ 4 quit_flag bit (1), /* TRUE iff we are at abort level */ 4 rename_in_progress bit (1), /* TRUE iff we are in middle of rename sequence */ 4 instance_pad bit (31), 3 request fixed binary (17), /* number of current request */ 3 last_command fixed binary (17), /* number of previous command */ 3 word character (4) unaligned, /* the actual command sent to use */ 3 quit_condition character (32) unaligned, /* our interrupt condition (usually "quit") */ 2 network_info, 3 event_channel fixed binary (71), /* IPC chn we use for data transfer connections */ 3 read_index bit (36) unaligned, /* NCP handle for read connection */ 3 write_index bit (36) unaligned, /* NCP handle for write connection */ 3 foreign_host fixed binary (16), /* number of host we transfer data to/from */ 3 foreign_read_socket fixed binary (32), /* number of socket at foreign host we send to */ 3 foreign_write_socket fixed binary (32), /* number of socket at foreign host we read from */ 3 local_read_socket fixed binary (32), /* number of our local read socket */ 3 local_write_socket fixed binary (32), /* number of our local write socket */ 3 foreign_host_name character (32) unaligned, /* name of "foreign_host" */ 2 transfer_parameters, 3 byte_size fixed binary (8), /* bytesize of network transfers */ 3 representation_type fixed binary (17), /* number of type (ASCII, Image, ...) */ 3 transfer_mode fixed binary (17), /* number of mode (Stream, Text, Block) */ 2 fap_parameters, /* information about File Access protocol */ 3 fap_file_is_open bit (1) aligned, /* TRUE iff file open and other data meaningful */ 3 fap_modes bit (5) unaligned, 3 fap_write_bit fixed binary (24), 3 fap_read_bit fixed binary (24), 3 fap_last_bit fixed binary (24), 3 bit_count fixed binary (24), 3 initial_bit_count fixed binary (24), 3 bits_read fixed binary (24), 2 segptra pointer, 2 dirname character (168) unaligned, 2 ename character (32) unaligned, 2 old_dir character (168) unaligned, 2 old_name character (32) unaligned, 2 text_ptr pointer, 2 mail_info aligned, /* info about mail recipients */ 3 segptrb pointer, /* (possibly) pointer to temp mail buffer */ 3 n_users fixed binary (17), 3 i fixed binary (17), 3 addressee (16) aligned, /* info about recipients mailboxes */ 4 box_pointer pointer, /* pointer to old mailbox (if any) */ 4 box_mseg_index fixed binary (17), /* MSEG index of new mailbox (if any) */ 4 mail_flags unaligned, 5 new_style_box bit (1), /* TRUE iff use mseg index rather than box ptr */ 5 forward_mail bit (1), /* TRUE iff we are going to forward mail */ 5 mail_flags_pad bit (34), 4 user_name character (32) unaligned varying, /* mail name of local recipient */ 4 mail_seg_name character (32) unaligned, /* name of segment we created */ 4 forward_host_name character (32) unaligned, /* name of host we shall forward to */ 4 forward_user character (64); /* recipient name at foreign host */ /* End include file ftp_server_data.incl.pl1 */ */ ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group Bull including Bull HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell Bull Inc., Groupe Bull and Bull HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, Bull or Bull HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by Bull HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved */