/* START OF: bce_abs_io_data.incl.pl1 * * * * * * * * * * * * * * * * * * * */ /* Stolen and shrunk from abs_io_data by Keith Loepere sometime in '83 */ /* Initial coding: 25 June 79 by J. Spencer Love */ /* login_channel option flag BIM 11/81 */ /* Added this_action and next_action 04/20/82 S. Herbst */ /* Added on_info, goto_statement_(pos len) 01/06/83 S. Herbst */ /* Added output_file.turn_of_ssw 05/16/83 S. Herbst */ /* Added attach.trim_whitespace_sw 06/02/83 S. Herbst */ declare abs_data_ptr ptr; declare 1 abs_data aligned based (abs_data_ptr), 2 ec_data_ptr ptr, /* -> communication area for exec_com */ 2 arg_info, /* */ 3 ec_name_ptr ptr, /* Ptr to allocated &ec_name string */ 3 ec_name_len fixed bin (21), /* Length of allocated &ec_name string */ 3 arg_ptr ptr, /* pointer to allocated structure containing args */ 3 arg_count fixed bin, /* number of arguments passed */ 2 input_string, /* data about input segment or archive component */ 3 ptr ptr, /* pointer to input file */ 3 len fixed bin (21), /* number of characters in input file */ 3 start fixed bin (21), /* initial value for input_pos, set beyond &version, if any */ 3 position fixed bin (21), /* current index into input file */ 3 limit fixed bin (21), /* farthest point yet reached...begin &label search here */ /* */ 2 command_line, /* substructure dealing with tracing command lines */ 3 on bit (1), /* 1 to print tracing information */ 3 expand fixed bin (2), /* 1 to print unexpanded, 2 expanded, 3 all, 4 both */ 2 comment_line like command_line, /* for tracing comments..always unexpanded */ 2 control_line like command_line, /* for tracing control lines */ 2 input_line like command_line, /* for tracing input lines in &attach mode */ /* */ 2 attach, /* */ 3 victim_ptr ptr, /* -> IOCB affected by &attach (usually iox_$user_input */ 3 target_ptr ptr, /* -> IOCB &attached to (created by exec_com command) */ 3 save_ptr ptr, /* -> IOCB used to save previous victim_ptr -> IOCB */ 2 allocated_chars_ptr ptr, /* -> allocated buffer for freeing */ 2 chars_ptr ptr, /* -> characters in buffer waiting to be returned */ 2 else_clause_ptr ptr, /* -> characters in deferred else clause */ 2 allocated_chars_len fixed bin (21), /* total length of allocated buffer */ 2 chars_len fixed bin (21), /* characters left in buffer to be returned */ 2 else_clause_len fixed bin (21), /* length of deferred else clause */ /* */ 2 active bit (1), /* 1 indicates get_line is busy, for recursion check */ 2 eof bit (1), /* 1 indicates &quit found or no more input */ 2 nest_level fixed bin, /* V1: depth of &if-&then-&else nesting */ 2 expected_nest_level fixed bin, /* V1: depth that must be reached to resume execution */ /* */ 2 goto_statement_pos fixed bin (21), /* position of last &goto stmt, for error msgs */ 2 goto_statement_len fixed bin (21), /* length of the &goto stmt */ 2 if_info aligned, /* &if-&then-&else nesting info */ 3 if_sw bit (1), /* ON if inside an &if-&then-&else construct */ 3 true_sw bit (1), /* ON after "&if true" */ 3 got_then_sw bit (1), /* ON after the &then has been seen */ 3 got_else_sw bit (1), /* ON after the &else has been seen */ 3 clause_type fixed bin, /* previous &then or &else */ 3 skip_sw bit (1), /* ON if skipping a &then or &else clause */ 3 skip_block_level fixed bin, /* how many levels of &do we are inside while skipping */ 3 prev_if_ptr ptr, /* ptr to if_info (saved) of &if we are nested inside */ 3 this_action fixed bin, /* copy of expand_data.this_statement.action */ 3 next_action fixed bin, /* copy of expand_data.next_statement.action */ 2 labels_ptr ptr, /* hash table ptr for label hash table */ 2 work_area_ptr ptr, /* area for args, etc. */ 2 work_area_len fixed bin; declare abs_data_work_area area (abs_data.work_area_len) based (abs_data.work_area_ptr); declare abs_data_version_1 fixed bin static options (constant) initial (1), Work_area_size fixed bin static options (constant) initial (800); dcl (UNEXPANDED init (1), EXPANDED init (2), ALL init (3), BOTH init (4)) fixed bin int static options (constant); /* END OF: bce_abs_io_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 */