COMPILATION LISTING OF SEGMENT dfast_error_ Compiled by: Multics PL/I Compiler of December 8, 1975. Compiled on: 03/18/76 1536.3 mst Thu Options: optimize map 1 dfast_error_: proc (code, name, additional_info); 2 3 dcl code fixed bin (35); 4 dcl name char (*); 5 dcl additional_info char (*); 6 7 dcl extra_message fixed bin; /* = 1 for a non-null message */ 8 dcl print_name fixed bin; /* = 1 for non-null name */ 9 dcl message char (100) aligned; 10 dcl shortinfo char (8) aligned; 11 12 dcl hbound builtin; 13 dcl iox_$user_output ptr ext; 14 dcl com_err_$convert_status_code_ entry (fixed bin (35), char (*) aligned, char (*) aligned); 15 dcl ioa_$ioa_switch entry options (variable); 16 1 1 /* BEGIN INCLUDE ... dfast_error_codes.incl.pl1 */ 1 2 1 3 dcl error_alt_empty fixed bin (35) int static init (1)options (constant); 1 4 dcl error_max_size fixed bin (35) int static init (2)options (constant); 1 5 dcl error_cur_empty fixed bin (35) int static init (3)options (constant); 1 6 dcl error_not_saved fixed bin (35) int static init (4)options (constant); 1 7 dcl error_name_dup fixed bin (35) int static init (5)options (constant); 1 8 dcl error_long_rec fixed bin (35) int static init (6)options (constant); 1 9 dcl error_unknown_arg fixed bin (35) int static init (7)options (constant); 1 10 dcl error_no_expl fixed bin (35) int static init (8)options (constant); 1 11 dcl error_bad_name fixed bin (35) int static init (9)options (constant); 1 12 dcl error_bad_req fixed bin (35) int static init (10)options (constant); 1 13 dcl error_syntax_string fixed bin (35) int static init (11)options (constant); 1 14 dcl error_name_miss fixed bin (35) int static init (12)options (constant); 1 15 dcl error_no_comp fixed bin (35) int static init (13)options (constant); 1 16 dcl error_no_main fixed bin (35) int static init (14)options (constant); 1 17 dcl error_block_spec fixed bin (35) int static init (15)options (constant); 1 18 dcl error_obj_nop fixed bin (35) int static init (16)options (constant); 1 19 dcl error_sav_cur fixed bin (35) int static init (17)options (constant); 1 20 dcl error_bad_type fixed bin (35) int static init (18)options (constant); 1 21 dcl error_unkn_sys fixed bin (35) int static init (19)options (constant); 1 22 dcl error_no_suffix fixed bin (35) int static init (20)options (constant); 1 23 dcl error_no_nl fixed bin (35) int static init (21)options (constant); 1 24 dcl error_bad_sort fixed bin (35) int static init (22)options (constant); 1 25 dcl error_no_num fixed bin (35) int static init (23)options (constant); 1 26 dcl error_line_miss fixed bin (35) int static init (24)options (constant); 1 27 dcl error_request_miss fixed bin (35) int static init (25)options (constant); 1 28 dcl error_bad_line fixed bin (35) int static init (26)options (constant); 1 29 dcl error_no_string fixed bin (35) int static init (27)options (constant); 1 30 dcl error_line_order fixed bin (35) int static init (28)options (constant); 1 31 dcl error_max_lines fixed bin (35) int static init (29)options (constant); 1 32 dcl error_bad_pathname fixed bin (35) int static init (30)options (constant); 1 33 dcl error_access_mode fixed bin (35) int static init (31)options (constant); 1 34 dcl error_delimiter_miss fixed bin (35) int static init (32)options (constant); 1 35 dcl error_size_fixed_record fixed bin (35) int static init (33)options (constant); 1 36 dcl error_bad_rec_len fixed bin (35) int static init (34)options (constant); 1 37 dcl error_string_size fixed bin (35) int static init (35)options (constant); 1 38 dcl error_max_line_number fixed bin (35) int static init (36)options (constant); 1 39 dcl error_max_args fixed bin (35) int static init (37)options (constant); 1 40 dcl error_name_sys fixed bin (35) int static init (38)options (constant); 1 41 dcl error_dprint_map fixed bin (35) int static init (39)options (constant); 1 42 dcl error_max_num fixed bin (35) int static options (constant) init (40); 1 43 dcl error_edit_max_num fixed bin (35) int static options (constant) init (41); 1 44 dcl error_un_num_text fixed bin (35) int static options (constant) init (42); 1 45 dcl error_no_new_line fixed bin (35) int static options (constant) init (43); 1 46 1 47 /* END INCLUDE ... dfast_error_codes.incl.pl1 */ 17 18 19 dcl err_mess (-1:43) char (60) var int static options (constant) init ( 20 "", 21 "", /* 0 */ 22 "alter file is empty", /* alt_empty */ 23 "file would exceed maximum size", /* max_size */ 24 "current file is empty", /* cur_empty */ 25 "file is not saved", /* not_saved */ 26 "name duplication (save denied)", /* name_dup */ 27 "input line is too long", /* long_rec */ 28 "unknown argument", /* unknown_arg */ 29 "no explain file for", /* no_expl */ 30 "illegal character in name", /* bad_name */ 31 "unknown command", /* bad_req */ 32 "syntax error in string specification", /* syntax_string */ 33 "current segment does not have a name", /* name_miss */ 34 "error in compilation", /* no_comp */ 35 "no main program", /* no_main */ 36 "syntax error in range specification", /* block_spec */ 37 "command is not permitted for object code", /* obj_nob */ 38 "current file must be saved", /* sav_cur */ 39 "unknown terminal type", /* bad_type */ 40 "system is not implemented", /* unk_sys */ 41 "suffix missing: "".basic"" or "".fortran""", /* no_suffix */ 42 "current file does not end with a new_line", /* no_nl */ 43 "current file is out of order", /* bad_sort */ 44 "command expects a line number", /* no_num */ 45 "line was not found", /* line_miss */ 46 "request is missing", /* request_miss */ 47 "syntax error in line number", /* bad_line */ 48 "could not find", /* no_string */ 49 "line numbers must be in increasing order", /* line_order */ 50 "maximum of 16 lines per request exceeded", /* max_lines */ 51 "illegal pathname", /* bad_pathname */ 52 "ZZZ", /* access_mode */ 53 "delimitor is missing", /* delimiter_miss */ 54 "record would exceed the size specified. Length =", /* size_fixed_record */ 55 "record length is expected", /* error_no_rec_len */ 56 "maximum string size for replacement is 256", /* max_string_size */ 57 "maximum line number has 6 digits", /* max_line_number */ 58 "maximum number of arguments for a command is 10", /* max_arg */ 59 "system can't be changed to conflict with name", /* name_sys */ 60 "only one segment can be printed with the ""-map"" option", /* dprint_map */ 61 /* fst */ 62 "maximum line number is 99999", /* max_num */ 63 "change would exceed maximum line number (99999)", /* edit_max_num */ 64 "text contains un-numbered line", /* un_num */ 65 "segment does not end with a new_line"); /* no_new_line */ 66 67 if code > hbound (err_mess, 1) | code < -1 then call com_err_$convert_status_code_ (code, shortinfo, message); 68 else message = err_mess (code); 69 if additional_info = "" then extra_message = 0; 70 else extra_message = 1; 71 if name = "" then print_name = 0; 72 else print_name = 1; 73 call ioa_$ioa_switch (iox_$user_output, "^a^v(: ^)^a ^v(^a", name, print_name, message, extra_message, additional_info); 74 75 return; 76 77 end dfast_error_; INCLUDE FILES USED IN THIS COMPILATION. LINE NUMBER NAME PATHNAME 17 1 dfast_error_codes.incl.pl1 >spec>online>fix0318>dfast_error_codes.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES NAMES DECLARED BY DECLARE STATEMENT. additional_info parameter char unaligned dcl 5 set ref 1 69 73 code parameter fixed bin(35,0) dcl 3 set ref 1 67 67 67 68 com_err_$convert_status_code_ 000012 constant entry external dcl 14 ref 67 err_mess 000000 constant varying char(60) initial array dcl 19 ref 67 68 extra_message 000100 automatic fixed bin(17,0) dcl 7 set ref 69 70 73 hbound builtin function internal dcl 12 ref 67 ioa_$ioa_switch 000014 constant entry external dcl 15 ref 73 iox_$user_output 000010 external static pointer dcl 13 set ref 73 message 000102 automatic char(100) dcl 9 set ref 67 68 73 name parameter char unaligned dcl 4 set ref 1 71 73 print_name 000101 automatic fixed bin(17,0) dcl 8 set ref 71 72 73 shortinfo 000134 automatic char(8) dcl 10 set ref 67 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. error_access_mode internal static fixed bin(35,0) initial dcl 1-33 error_alt_empty internal static fixed bin(35,0) initial dcl 1-3 error_bad_line internal static fixed bin(35,0) initial dcl 1-28 error_bad_name internal static fixed bin(35,0) initial dcl 1-11 error_bad_pathname internal static fixed bin(35,0) initial dcl 1-32 error_bad_rec_len internal static fixed bin(35,0) initial dcl 1-36 error_bad_req internal static fixed bin(35,0) initial dcl 1-12 error_bad_sort internal static fixed bin(35,0) initial dcl 1-24 error_bad_type internal static fixed bin(35,0) initial dcl 1-20 error_block_spec internal static fixed bin(35,0) initial dcl 1-17 error_cur_empty internal static fixed bin(35,0) initial dcl 1-5 error_delimiter_miss internal static fixed bin(35,0) initial dcl 1-34 error_dprint_map internal static fixed bin(35,0) initial dcl 1-41 error_edit_max_num internal static fixed bin(35,0) initial dcl 1-43 error_line_miss internal static fixed bin(35,0) initial dcl 1-26 error_line_order internal static fixed bin(35,0) initial dcl 1-30 error_long_rec internal static fixed bin(35,0) initial dcl 1-8 error_max_args internal static fixed bin(35,0) initial dcl 1-39 error_max_line_number internal static fixed bin(35,0) initial dcl 1-38 error_max_lines internal static fixed bin(35,0) initial dcl 1-31 error_max_num internal static fixed bin(35,0) initial dcl 1-42 error_max_size internal static fixed bin(35,0) initial dcl 1-4 error_name_dup internal static fixed bin(35,0) initial dcl 1-7 error_name_miss internal static fixed bin(35,0) initial dcl 1-14 error_name_sys internal static fixed bin(35,0) initial dcl 1-40 error_no_comp internal static fixed bin(35,0) initial dcl 1-15 error_no_expl internal static fixed bin(35,0) initial dcl 1-10 error_no_main internal static fixed bin(35,0) initial dcl 1-16 error_no_new_line internal static fixed bin(35,0) initial dcl 1-45 error_no_nl internal static fixed bin(35,0) initial dcl 1-23 error_no_num internal static fixed bin(35,0) initial dcl 1-25 error_no_string internal static fixed bin(35,0) initial dcl 1-29 error_no_suffix internal static fixed bin(35,0) initial dcl 1-22 error_not_saved internal static fixed bin(35,0) initial dcl 1-6 error_obj_nop internal static fixed bin(35,0) initial dcl 1-18 error_request_miss internal static fixed bin(35,0) initial dcl 1-27 error_sav_cur internal static fixed bin(35,0) initial dcl 1-19 error_size_fixed_record internal static fixed bin(35,0) initial dcl 1-35 error_string_size internal static fixed bin(35,0) initial dcl 1-37 error_syntax_string internal static fixed bin(35,0) initial dcl 1-13 error_un_num_text internal static fixed bin(35,0) initial dcl 1-44 error_unkn_sys internal static fixed bin(35,0) initial dcl 1-21 error_unknown_arg internal static fixed bin(35,0) initial dcl 1-9 NAME DECLARED BY EXPLICIT CONTEXT. dfast_error_ 001340 constant entry external dcl 1 ref 1 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1600 1616 1514 1610 Length 2002 1514 16 150 63 0 External procedure dfast_error_ uses 142 words of automatic storage THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_l_a r_g_a call_ext_out_desc return ext_entry_desc THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_$convert_status_code_ ioa_$ioa_switch THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. iox_$user_output LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1 001334 67 001360 68 001413 69 001421 70 001432 71 001434 72 001444 73 001446 75 001512 ----------------------------------------------------------- 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