COMPILATION LISTING OF SEGMENT pa_cv_result_to_lf Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 02/16/84 1303.1 mst Thu Options: optimize map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1983 * 4* * * 5* *********************************************************** */ 6 /* format: style2,ind3 */ 7 pa_cv_result_to_lf: 8 proc (p_definition_ptr, p_result_ptr, p_linear_form, p_code); 9 10 /* DESCRIPTION: 11* 12* This entry converts a result pva into a linear form. 13**/ 14 15 /* HISTORY: 16* 17*Written by Lindsey L. Spratt, 07/05/83. 18*Modified: 19*07/06/83 by Lindsey L. Spratt: Fixed setting of is_arg_dimension array to set 20* "0"b for dimensions which aren't arg_dimensions. 21*07/08/83 by Lindsey L. Spratt: Fixed to prefix option values which start with 22* "-" with a "-quote ". Fixed to requote all option values. 23*08/26/83 by S. Krupp: Changed to only requote option values that don't 24* contain reserved command line characters. Changed to prefix 25* only non-literal option values with "-quote". 26*09/13/83 by S. Krupp: Commented out -quote facility due to problems 27* in making it compatible with the Force_literal facility. 28**/ 29 30 /* START OF DECLARATIONS */ 31 /* Parameter */ 32 33 dcl p_definition_ptr ptr; /*is a pointer to the definition 34* print_vector_array for the command 35* named in the result pva. If this 36* pointer is null, then a definition is 37* found by searching the 38* process_arguments search list.*/ 39 dcl p_result_ptr ptr; /*is a pointer to a result 40* print_vector_array.*/ 41 dcl p_linear_form char (*) varying; /*is the linear form converted from*/ 42 dcl p_code fixed bin (35); /*is a standard system error code.*/ 43 44 /* Automatic */ 45 46 dcl (command_name_id, option_name_identifier, instance_identifier, pv_idx) 47 fixed bin init (-1); 48 dcl (option_name, instance_count, old_instance_count) 49 char (64) varying init (""); 50 dcl current_linear_form char (1024) varying; 51 dcl result_command_name char (32) varying init (""); 52 dcl definition_ptr ptr init (null); 53 dcl work_area_ptr ptr init (null); 54 55 56 /* Based */ 57 58 59 /* Builtin */ 60 61 dcl null builtin; 62 63 /* Condition */ 64 65 dcl cleanup condition; 66 67 /* Constant */ 68 69 dcl myname init ("pa_cv_result_to_lf") char (32) varying internal static options (constant); 70 dcl UNDEFINED_DIMENSION init (-1) fixed bin internal static options (constant); 71 dcl ( 72 SPACE_CHAR init (" "), 73 TAB_CHAR init (" "), 74 NEWLINE_CHAR init (" 75 ") 76 ) char (1) internal static options (constant); 77 78 /* Entry */ 79 80 dcl process_arguments_$get_definition 81 entry (char (*) var, ptr, ptr, fixed bin (35)); 82 dcl process_arguments_$get_reference_name 83 entry (ptr, char (*) var, char (*) var, char (*) var); 84 85 dcl get_system_free_area_ entry () returns (ptr); 86 dcl sub_err_ entry () options (variable); 87 dcl requote_string_ entry (char (*)) returns (char (*)); 88 89 /* External */ 90 91 dcl sys_info$max_seg_size fixed bin (35) ext static; 92 dcl ( 93 error_table_$unimplemented_version, 94 error_table_$bad_arg 95 ) fixed bin (35) ext; 96 97 /* END OF DECLARATIONS */ 98 99 p_linear_form = ""; 100 definition_ptr = p_definition_ptr; 101 on cleanup call FINISH; 102 if work_area_ptr = null 103 then work_area_ptr = get_system_free_area_ (); 104 call CHECK_VERSION (p_result_ptr -> print_vector_array.version, PRINT_VECTOR_ARRAY_VERSION_2, "print_vector_array"); 105 106 call SET_ID_REQUIRED (p_result_ptr, COMMAND_NAME_DIM_NAME, command_name_id); 107 call GET_VALUE (p_result_ptr -> print_vector_array.vector_slot (1), command_name_id, result_command_name); 108 109 if definition_ptr = null 110 then 111 do; 112 call process_arguments_$get_definition (result_command_name, work_area_ptr, definition_ptr, p_code); 113 if p_code ^= 0 114 then call ERROR_RETURN; 115 end; 116 call 117 CHECK_VERSION (definition_ptr -> print_vector_array.version, PRINT_VECTOR_ARRAY_VERSION_2, "print_vector_array"); 118 119 call SET_ID_REQUIRED (p_result_ptr, OPTION_NAME_DIM_NAME, option_name_identifier); 120 call SET_ID_REQUIRED (p_result_ptr, INSTANCE_DIM_NAME, instance_identifier); 121 122 BUILD_LINEAR_FORM_BLOCK: 123 begin; 124 dcl blfb_is_arg_dimension (p_result_ptr -> print_vector_array.number_of_dimensions) bit (1) aligned; 125 126 call FIND_ARG_DIMENSIONS (p_result_ptr, blfb_is_arg_dimension); 127 128 BLFB_PRINT_VECTOR_LOOP: 129 do pv_idx = 1 to p_result_ptr -> print_vector_array.number_of_vectors; 130 print_vector_ptr = p_result_ptr -> print_vector_array.vector_slot (pv_idx); 131 old_instance_count = instance_count; 132 call GET_VALUE (print_vector_ptr, option_name_identifier, option_name); 133 call GET_VALUE (print_vector_ptr, instance_identifier, instance_count); 134 if instance_count = old_instance_count 135 then call GET_ARG_VALUES (blfb_is_arg_dimension, print_vector_ptr, current_linear_form); 136 else call GET_REFNAME_AND_VALUES (blfb_is_arg_dimension, print_vector_ptr, option_name, current_linear_form); 137 p_linear_form = p_linear_form || " " || current_linear_form; 138 end BLFB_PRINT_VECTOR_LOOP; 139 end BUILD_LINEAR_FORM_BLOCK; 140 call FINISH; 141 MAIN_RETURN: 142 return; 143 144 CHECK_VERSION: 145 proc (p_received_version, p_expected_version, p_structure_name); 146 dcl p_received_version fixed bin (35); 147 dcl p_expected_version fixed bin (35); 148 dcl p_structure_name char (*); 149 150 if p_received_version ^= p_expected_version 151 then call 152 sub_err_ (error_table_$unimplemented_version, myname, ACTION_CANT_RESTART, null, 0, 153 "^/Expected version ^a of the ^a structure. 154 Received version ^d instead.", p_expected_version, p_structure_name, p_received_version); 155 156 end CHECK_VERSION; 157 158 SET_ID: 159 proc (si_p_pva_ptr, si_p_dim_name, si_p_dim_id); 160 dcl si_p_pva_ptr ptr parameter; 161 dcl si_p_dim_name char (*) varying parameter; 162 dcl si_p_dim_id fixed bin parameter; 163 164 dcl si_dim_is_required bit (1) aligned init ("0"b); 165 166 dcl requote_string_ entry (char (*)) returns (char (*)); 167 goto SI_JOIN; 168 169 SET_ID_REQUIRED: 170 entry (si_p_pva_ptr, si_p_dim_name, si_p_dim_id); 171 si_dim_is_required = "1"b; 172 173 SI_JOIN: 174 do si_p_dim_id = 1 to si_p_pva_ptr -> print_vector_array.number_of_dimensions 175 while (si_p_pva_ptr -> print_vector_array.dimension_table (si_p_dim_id).name ^= si_p_dim_name); 176 end; 177 if si_p_dim_id > si_p_pva_ptr -> print_vector_array.number_of_dimensions 178 then if si_dim_is_required 179 then call 180 sub_err_ (error_table_$bad_arg, myname, ACTION_CANT_RESTART, null, 0, 181 "^/The argument processing definition structure must have a ^a dimension in it, 182 but the one provided does not.", requote_string_ ((si_p_dim_name))); 183 else si_p_dim_id = UNDEFINED_DIMENSION; 184 185 end SET_ID; 186 187 GET_DIM_IDX: 188 proc (gdi_p_pv_ptr, gdi_p_identifier, gdi_p_dim_idx); 189 dcl gdi_p_pv_ptr ptr; 190 dcl gdi_p_identifier fixed bin; 191 dcl gdi_p_dim_idx fixed bin; 192 193 do gdi_p_dim_idx = 1 to gdi_p_pv_ptr -> print_vector.number_of_dimensions 194 while (gdi_p_pv_ptr -> print_vector.dimension (gdi_p_dim_idx).identifier ^= gdi_p_identifier); 195 end; 196 if gdi_p_dim_idx > gdi_p_pv_ptr -> print_vector.number_of_dimensions 197 then gdi_p_dim_idx = UNDEFINED_DIMENSION; 198 end GET_DIM_IDX; 199 200 GET_VALUE: 201 proc (gv_p_print_vector_ptr, gv_p_dim_identifier, gv_p_dim_value); 202 dcl gv_p_print_vector_ptr ptr parameter; 203 dcl gv_p_dim_identifier fixed bin parameter; 204 dcl gv_p_dim_value char (*) varying; 205 206 dcl gv_dim_idx fixed bin init (0); 207 208 call GET_DIM_IDX (gv_p_print_vector_ptr, gv_p_dim_identifier, gv_dim_idx); 209 210 if gv_dim_idx = UNDEFINED_DIMENSION 211 then call 212 sub_err_ (error_table_$bad_arg, myname, ACTION_CANT_RESTART, null, 0, 213 "^/All of the vectors in the result print_vector_array must contain the 214 dimension with identifier ^d. The current print_vector does not.", gv_p_dim_identifier); 215 gv_p_dim_value = gv_p_print_vector_ptr -> print_vector.dimension (gv_dim_idx).value; 216 end GET_VALUE; 217 218 FINISH: 219 proc; 220 if p_definition_ptr = null & definition_ptr ^= null 221 then 222 do; 223 do pv_idx = 1 to definition_ptr -> print_vector_array.number_of_vectors; 224 print_vector_ptr = definition_ptr -> print_vector_array.vector_slot (pv_idx); 225 if print_vector_ptr ^= null 226 then free print_vector; 227 end; 228 free definition_ptr -> print_vector_array; 229 end; 230 end FINISH; 231 232 233 ERROR_RETURN: 234 proc (); 235 call FINISH (); 236 goto MAIN_RETURN; 237 end ERROR_RETURN; 238 239 GET_ARG_VALUES: 240 proc (gav_p_is_arg_dimension, gav_p_print_vector_ptr, gav_p_value_str); 241 dcl gav_p_is_arg_dimension (*) bit (1) aligned parameter; 242 dcl gav_p_print_vector_ptr ptr parameter; 243 dcl gav_p_value_str char (*) varying parameter; 244 245 dcl gav_current_value_ptr ptr init (null); 246 dcl gav_current_value based (gav_current_value_ptr) char (sys_info$max_seg_size * 4) varying; 247 248 dcl gav_dim_idx fixed bin init (0); 249 dcl RESERVED_CHARS char(64) var init(SPACE_CHAR || TAB_CHAR || NEWLINE_CHAR || """;[]()|"); 250 251 gav_p_value_str = ""; 252 do gav_dim_idx = 1 to gav_p_print_vector_ptr -> print_vector.number_of_dimensions; 253 254 if gav_p_is_arg_dimension (gav_p_print_vector_ptr -> print_vector.dimension (gav_dim_idx).identifier) 255 then 256 do; 257 gav_current_value_ptr = addr (gav_p_print_vector_ptr -> print_vector.dimension (gav_dim_idx).value); 258 /* if index (ltrim (gav_current_value, SPACE_CHAR || TAB_CHAR), "-") = 1 259* then gav_p_value_str = gav_p_value_str || " " || "-quote"; */ 260 if search(gav_current_value, RESERVED_CHARS) > 0 261 then gav_p_value_str = gav_p_value_str || " " || requote_string_((gav_current_value)); 262 else gav_p_value_str = gav_p_value_str || " " || gav_current_value; 263 end; 264 265 end; 266 end GET_ARG_VALUES; 267 268 GET_REFNAME_AND_VALUES: 269 proc (grav_p_is_arg_dimension, grav_p_print_vector_ptr, grav_p_option_name, grav_p_linear_form); 270 dcl grav_p_is_arg_dimension 271 (*) bit (1) aligned parameter; 272 dcl grav_p_print_vector_ptr 273 ptr parameter; 274 dcl grav_p_option_name char (*) varying parameter; 275 dcl grav_p_linear_form char (*) varying parameter; 276 277 dcl (grav_positive_refname, grav_negative_refname) 278 char (256) varying init (""); 279 280 grav_p_linear_form = ""; 281 282 call 283 process_arguments_$get_reference_name (definition_ptr, grav_p_option_name, grav_positive_refname, 284 grav_negative_refname); 285 call GET_ARG_VALUES (grav_p_is_arg_dimension, grav_p_print_vector_ptr, grav_p_linear_form); 286 287 if grav_negative_refname = "" 288 then grav_p_linear_form = grav_positive_refname || " " || grav_p_linear_form; 289 else if index (grav_p_linear_form, "false") > 0 290 then grav_p_linear_form = grav_negative_refname; 291 else grav_p_linear_form = grav_positive_refname; 292 end GET_REFNAME_AND_VALUES; 293 294 FIND_ARG_DIMENSIONS: 295 proc (fad_p_result_ptr, fad_p_is_arg_dimension); 296 dcl fad_p_result_ptr ptr parameter; 297 dcl fad_p_is_arg_dimension (*) bit (1) aligned parameter; 298 299 dcl fad_dim_identifier fixed bin init (0); 300 dcl fad_dim_name char (128) varying init (""); 301 302 fad_p_is_arg_dimension (*) = "1"b; 303 304 do fad_dim_name = COMMAND_NAME_DIM_NAME, OPTION_NAME_DIM_NAME, ORDER_DIM_NAME, INSTANCE_DIM_NAME; 305 call SET_ID_REQUIRED (fad_p_result_ptr, fad_dim_name, fad_dim_identifier); 306 fad_p_is_arg_dimension (fad_dim_identifier) = "0"b; 307 end; 308 end FIND_ARG_DIMENSIONS; 309 1 1 /* BEGIN INCLUDE FILE sub_err_flags.incl.pl1 BIM 11/81 */ 1 2 /* format: style3 */ 1 3 1 4 /* These constants are to be used for the flags argument of sub_err_ */ 1 5 /* They are just "string (condition_info_header.action_flags)" */ 1 6 1 7 declare ( 1 8 ACTION_CAN_RESTART init (""b), 1 9 ACTION_CANT_RESTART init ("1"b), 1 10 ACTION_DEFAULT_RESTART 1 11 init ("01"b), 1 12 ACTION_QUIET_RESTART 1 13 init ("001"b), 1 14 ACTION_SUPPORT_SIGNAL 1 15 init ("0001"b) 1 16 ) bit (36) aligned internal static options (constant); 1 17 1 18 /* End include file */ 310 311 2 1 /* *********************************************************** 2 2* * * 2 3* * Copyright, (C) Honeywell Information Systems Inc., 1983 * 2 4* * * 2 5* *********************************************************** */ 2 6 /* BEGIN INCLUDE FILE - vu_print_vector_array.incl.pl1 */ 2 7 /* Written by Matthew C. Pierret, 01/21/82 2 8*Modified: 2 9**/ 2 10 2 11 /* format: style2,ind3 */ 2 12 dcl 1 print_vector_array based (print_vector_array_ptr), 2 13 2 version fixed bin (35), 2 14 2 number_of_dimensions 2 15 fixed bin (17), 2 16 2 maximum_dimension_name_length 2 17 fixed bin (17), 2 18 2 number_of_vectors fixed bin (17), 2 19 2 number_of_vector_slots 2 20 fixed bin (17), 2 21 2 dimension_table (pva_number_of_dimensions refer (print_vector_array.number_of_dimensions)), 2 22 3 name char (pva_maximum_dimension_name_length 2 23 refer (print_vector_array.maximum_dimension_name_length)) varying, 2 24 3 descriptor_ptr ptr, 2 25 3 cv_to_print entry (ptr, fixed bin (17), fixed bin (17), ptr, ptr, fixed bin (35)), 2 26 3 cv_to_typed entry (ptr, fixed bin (17), fixed bin (17), ptr, ptr, fixed bin (35)), 2 27 3 maximum_value_length 2 28 fixed bin (17), 2 29 2 vector_slot (pva_number_of_vector_slots refer (print_vector_array.number_of_vector_slots)) ptr; 2 30 2 31 dcl 1 print_vector based (print_vector_ptr), 2 32 2 number_of_dimensions 2 33 fixed bin (17), 2 34 2 maximum_value_length 2 35 fixed bin (35), 2 36 2 dimension (pv_number_of_dimensions refer (print_vector.number_of_dimensions)), 2 37 3 identifier fixed bin (17), 2 38 3 value char (pv_maximum_value_length refer (print_vector.maximum_value_length)) varying; 2 39 2 40 dcl pva_number_of_dimensions 2 41 fixed bin; 2 42 dcl pva_number_of_vector_slots 2 43 fixed bin; 2 44 dcl pva_maximum_dimension_name_length 2 45 fixed bin; 2 46 dcl pv_number_of_dimensions 2 47 fixed bin; 2 48 dcl pv_maximum_value_length 2 49 fixed bin; 2 50 2 51 dcl print_vector_array_ptr ptr; 2 52 dcl print_vector_ptr ptr; 2 53 dcl PRINT_VECTOR_ARRAY_VERSION_2 2 54 fixed bin (35) init (2) internal static options (constant); 2 55 2 56 /* END INCLUDE FILE - vu_print_vector_array.incl.pl1 */ 312 313 3 1 /* BEGIN INCLUDE FILE - pa_dim_name_constants.incl.pl1 */ 3 2 3 3 /* DESCRIPTION: 3 4* This include file contains constants which are the names of all of the 3 5*dimension found in the definition and result print_vector_arrays. 3 6**/ 3 7 3 8 /* HISTORY: 3 9*Written by Lindsey Spratt, 06/30/83. 3 10*Modified: 3 11*07/01/83 by Lindsey Spratt: Added DEFINITION_ORDER_DIM_NAME. 3 12*08/26/83 by S. Krupp: Added all new dimensions. 3 13**/ 3 14 3 15 /* format: style2,ind3 */ 3 16 dcl ( 3 17 COMMAND_NAME_DIM_NAME init ("command name"), 3 18 DEFAULT_LINEAR_FORM_DIM_NAME 3 19 init ("default linear form"), 3 20 OPTION_NAME_DIM_NAME init ("option"), 3 21 SYNONYM_DIM_NAME init ("synonym"), 3 22 NEGATIVE_FORM_DIM_NAME init ("negative form"), 3 23 EXCLUDED_OPTION_DIM_NAME 3 24 init ("excluded option"), 3 25 INITIAL_IMPLIED_OPTION_DIM_NAME 3 26 init ("initial implied option"), 3 27 NEXT_IMPLIED_OPTION_DIM_NAME 3 28 init ("next implied option"), 3 29 ARGUMENT_DIM_NAME init ("argument"), 3 30 INITIAL_ARGUMENT_DIM_NAME 3 31 init ("initial argument"), 3 32 NEXT_ARGUMENT_DIM_NAME init ("next argument"), 3 33 DEFAULT_VALUE_DIM_NAME init ("default value"), 3 34 NEGATIVE_VALUE_DIM_NAME 3 35 init ("negative value"), 3 36 ARGUMENT_VALIDATION_STRING_DIM_NAME 3 37 init ("validation string"), 3 38 EXPLANATION_DIM_NAME init ("explanation"), 3 39 ARGUMENT_PRESENCE_DIM_NAME 3 40 init ("presence required"), 3 41 INSTANCE_DIM_NAME init ("instance"), 3 42 ORDER_DIM_NAME init ("order"), 3 43 DEFINITION_ORDER_DIM_NAME 3 44 init ("definition order"), 3 45 FORCE_LITERAL_DIM_NAME init ("force literal"), 3 46 UNEXCLUDED_OPTION_DIM_NAME 3 47 init ("unexcluded option"), 3 48 VALIDATE_RESULT_DIM_NAME 3 49 init ("validate result"), 3 50 VALIDATE_RESULT_EXPLANATION_DIM_NAME 3 51 init ("validate result explanation"), 3 52 VALIDATE_EXPLANATION_DIM_NAME 3 53 init ("validate explanation") 3 54 ) char (64) varying internal static options (constant); 3 55 3 56 /* END INCLUDE FILE - pa_dim_name_constants.incl.pl1 */ 314 315 end pa_cv_result_to_lf; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 02/16/84 1249.8 pa_cv_result_to_lf.pl1 >spec>on>mtape>pa_cv_result_to_lf.pl1 310 1 04/16/82 0958.1 sub_err_flags.incl.pl1 >ldd>include>sub_err_flags.incl.pl1 312 2 02/16/84 1230.3 vu_print_vector_array.incl.pl1 >spec>on>mtape>vu_print_vector_array.incl.pl1 314 3 02/16/84 1230.3 pa_dim_name_constants.incl.pl1 >spec>on>mtape>pa_dim_name_constants.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. ACTION_CANT_RESTART 000122 constant bit(36) initial dcl 1-7 set ref 150* 177* 210* COMMAND_NAME_DIM_NAME 000063 constant varying char(64) initial dcl 3-16 set ref 106* 304 INSTANCE_DIM_NAME 000021 constant varying char(64) initial dcl 3-16 set ref 120* 304 NEWLINE_CHAR constant char(1) initial unaligned dcl 71 ref 249 OPTION_NAME_DIM_NAME 000042 constant varying char(64) initial dcl 3-16 set ref 119* 304 ORDER_DIM_NAME 000000 constant varying char(64) initial dcl 3-16 ref 304 PRINT_VECTOR_ARRAY_VERSION_2 000137 constant fixed bin(35,0) initial dcl 2-53 set ref 104* 116* RESERVED_CHARS 000133 automatic varying char(64) initial dcl 249 set ref 249* 260 SPACE_CHAR constant char(1) initial unaligned dcl 71 ref 249 TAB_CHAR constant char(1) initial unaligned dcl 71 ref 249 UNDEFINED_DIMENSION 002620 constant fixed bin(17,0) initial dcl 70 ref 183 196 210 blfb_is_arg_dimension 000100 automatic bit(1) array dcl 124 set ref 126* 134* 136* cleanup 000606 stack reference condition dcl 65 ref 101 command_name_id 000100 automatic fixed bin(17,0) initial dcl 46 set ref 46* 106* 107* current_linear_form 000167 automatic varying char(1024) dcl 50 set ref 134* 136* 137 definition_ptr 000602 automatic pointer initial dcl 52 set ref 52* 100* 109 112* 116 220 223 224 228 282* dimension 2 based structure array level 2 unaligned dcl 2-31 dimension_table 6 based structure array level 2 unaligned dcl 2-12 error_table_$bad_arg 000024 external static fixed bin(35,0) dcl 92 set ref 177* 210* error_table_$unimplemented_version 000022 external static fixed bin(35,0) dcl 92 set ref 150* fad_dim_identifier 000374 automatic fixed bin(17,0) initial dcl 299 set ref 299* 305* 306 fad_dim_name 000375 automatic varying char(128) initial dcl 300 set ref 300* 304* 305* fad_p_is_arg_dimension parameter bit(1) array dcl 297 set ref 294 302* 306* fad_p_result_ptr parameter pointer dcl 296 set ref 294 305* gav_current_value based varying char dcl 246 ref 260 260 262 gav_current_value_ptr 000130 automatic pointer initial dcl 245 set ref 245* 257* 260 260 262 gav_dim_idx 000132 automatic fixed bin(17,0) initial dcl 248 set ref 248* 252* 254 257* gav_p_is_arg_dimension parameter bit(1) array dcl 241 ref 239 254 gav_p_print_vector_ptr parameter pointer dcl 242 ref 239 252 254 257 gav_p_value_str parameter varying char dcl 243 set ref 239 251* 260* 260 262* 262 gdi_p_dim_idx parameter fixed bin(17,0) dcl 191 set ref 187 193* 193* 196 196* gdi_p_identifier parameter fixed bin(17,0) dcl 190 ref 187 193 gdi_p_pv_ptr parameter pointer dcl 189 ref 187 193 193 196 get_system_free_area_ 000014 constant entry external dcl 85 ref 102 grav_negative_refname 000265 automatic varying char(256) initial dcl 277 set ref 277* 282* 287 289 grav_p_is_arg_dimension parameter bit(1) array dcl 270 set ref 268 285* grav_p_linear_form parameter varying char dcl 275 set ref 268 280* 285* 287* 287 289 289* 291* grav_p_option_name parameter varying char dcl 274 set ref 268 282* grav_p_print_vector_ptr parameter pointer dcl 272 set ref 268 285* grav_positive_refname 000164 automatic varying char(256) initial dcl 277 set ref 277* 282* 287 291 gv_dim_idx 000107 automatic fixed bin(17,0) initial dcl 206 set ref 206* 208* 210 215 gv_p_dim_identifier parameter fixed bin(17,0) dcl 203 set ref 200 208* 210* gv_p_dim_value parameter varying char dcl 204 set ref 200 215* gv_p_print_vector_ptr parameter pointer dcl 202 set ref 200 208* 215 identifier 2 based fixed bin(17,0) array level 3 dcl 2-31 ref 193 254 instance_count 000125 automatic varying char(64) initial dcl 48 set ref 48* 131 133* 134 instance_identifier 000102 automatic fixed bin(17,0) initial dcl 46 set ref 46* 120* 133* maximum_dimension_name_length 2 based fixed bin(17,0) level 2 dcl 2-12 ref 107 130 173 173 224 228 maximum_value_length 1 based fixed bin(35,0) level 2 dcl 2-31 ref 193 193 215 215 225 254 254 257 257 myname 000104 constant varying char(32) initial dcl 69 set ref 150* 177* 210* name 6 based varying char array level 3 dcl 2-12 ref 173 null builtin function dcl 61 ref 52 53 102 109 150 150 177 177 210 210 220 220 225 245 number_of_dimensions 1 based fixed bin(17,0) level 2 in structure "print_vector_array" dcl 2-12 in procedure "pa_cv_result_to_lf" ref 107 124 130 173 177 224 228 number_of_dimensions based fixed bin(17,0) level 2 in structure "print_vector" dcl 2-31 in procedure "pa_cv_result_to_lf" ref 193 196 225 252 number_of_vector_slots 4 based fixed bin(17,0) level 2 dcl 2-12 ref 228 number_of_vectors 3 based fixed bin(17,0) level 2 dcl 2-12 ref 128 223 old_instance_count 000146 automatic varying char(64) initial dcl 48 set ref 48* 131* 134 option_name 000104 automatic varying char(64) initial dcl 48 set ref 48* 132* 136* option_name_identifier 000101 automatic fixed bin(17,0) initial dcl 46 set ref 46* 119* 132* p_code parameter fixed bin(35,0) dcl 42 set ref 7 112* 113 p_definition_ptr parameter pointer dcl 33 ref 7 100 220 p_expected_version parameter fixed bin(35,0) dcl 147 set ref 144 150 150* p_linear_form parameter varying char dcl 41 set ref 7 99* 137* 137 p_received_version parameter fixed bin(35,0) dcl 146 set ref 144 150 150* p_result_ptr parameter pointer dcl 39 set ref 7 104 106* 107 119* 120* 124 126* 128 130 p_structure_name parameter char unaligned dcl 148 set ref 144 150* print_vector based structure level 1 unaligned dcl 2-31 set ref 225 print_vector_array based structure level 1 unaligned dcl 2-12 set ref 228 print_vector_ptr 000614 automatic pointer dcl 2-52 set ref 130* 132* 133* 134* 136* 224* 225 225 process_arguments_$get_definition 000010 constant entry external dcl 80 ref 112 process_arguments_$get_reference_name 000012 constant entry external dcl 82 ref 282 pv_idx 000103 automatic fixed bin(17,0) initial dcl 46 set ref 46* 128* 130* 223* 224* requote_string_ 000026 constant entry external dcl 166 in procedure "SET_ID" ref 177 requote_string_ 000020 constant entry external dcl 87 in procedure "pa_cv_result_to_lf" ref 260 result_command_name 000570 automatic varying char(32) initial dcl 51 set ref 51* 107* 112* si_dim_is_required 000100 automatic bit(1) initial dcl 164 set ref 164* 171* 177 si_p_dim_id parameter fixed bin(17,0) dcl 162 set ref 158 169 173* 173* 177 183* si_p_dim_name parameter varying char dcl 161 ref 158 169 173 177 si_p_pva_ptr parameter pointer dcl 160 ref 158 169 173 173 177 sub_err_ 000016 constant entry external dcl 86 ref 150 177 210 value 3 based varying char array level 3 dcl 2-31 set ref 215 257 vector_slot based pointer array level 2 dcl 2-12 set ref 107* 130 224 version based fixed bin(35,0) level 2 dcl 2-12 set ref 104* 116* work_area_ptr 000604 automatic pointer initial dcl 53 set ref 53* 102 102* 112* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. ACTION_CAN_RESTART internal static bit(36) initial dcl 1-7 ACTION_DEFAULT_RESTART internal static bit(36) initial dcl 1-7 ACTION_QUIET_RESTART internal static bit(36) initial dcl 1-7 ACTION_SUPPORT_SIGNAL internal static bit(36) initial dcl 1-7 ARGUMENT_DIM_NAME internal static varying char(64) initial dcl 3-16 ARGUMENT_PRESENCE_DIM_NAME internal static varying char(64) initial dcl 3-16 ARGUMENT_VALIDATION_STRING_DIM_NAME internal static varying char(64) initial dcl 3-16 DEFAULT_LINEAR_FORM_DIM_NAME internal static varying char(64) initial dcl 3-16 DEFAULT_VALUE_DIM_NAME internal static varying char(64) initial dcl 3-16 DEFINITION_ORDER_DIM_NAME internal static varying char(64) initial dcl 3-16 EXCLUDED_OPTION_DIM_NAME internal static varying char(64) initial dcl 3-16 EXPLANATION_DIM_NAME internal static varying char(64) initial dcl 3-16 FORCE_LITERAL_DIM_NAME internal static varying char(64) initial dcl 3-16 INITIAL_ARGUMENT_DIM_NAME internal static varying char(64) initial dcl 3-16 INITIAL_IMPLIED_OPTION_DIM_NAME internal static varying char(64) initial dcl 3-16 NEGATIVE_FORM_DIM_NAME internal static varying char(64) initial dcl 3-16 NEGATIVE_VALUE_DIM_NAME internal static varying char(64) initial dcl 3-16 NEXT_ARGUMENT_DIM_NAME internal static varying char(64) initial dcl 3-16 NEXT_IMPLIED_OPTION_DIM_NAME internal static varying char(64) initial dcl 3-16 SYNONYM_DIM_NAME internal static varying char(64) initial dcl 3-16 UNEXCLUDED_OPTION_DIM_NAME internal static varying char(64) initial dcl 3-16 VALIDATE_EXPLANATION_DIM_NAME internal static varying char(64) initial dcl 3-16 VALIDATE_RESULT_DIM_NAME internal static varying char(64) initial dcl 3-16 VALIDATE_RESULT_EXPLANATION_DIM_NAME internal static varying char(64) initial dcl 3-16 print_vector_array_ptr automatic pointer dcl 2-51 pv_maximum_value_length automatic fixed bin(17,0) dcl 2-48 pv_number_of_dimensions automatic fixed bin(17,0) dcl 2-46 pva_maximum_dimension_name_length automatic fixed bin(17,0) dcl 2-44 pva_number_of_dimensions automatic fixed bin(17,0) dcl 2-40 pva_number_of_vector_slots automatic fixed bin(17,0) dcl 2-42 sys_info$max_seg_size external static fixed bin(35,0) dcl 91 NAMES DECLARED BY EXPLICIT CONTEXT. BLFB_PRINT_VECTOR_LOOP 000721 constant label dcl 128 BUILD_LINEAR_FORM_BLOCK 000642 constant label dcl 122 CHECK_VERSION 001161 constant entry internal dcl 144 ref 104 116 ERROR_RETURN 002015 constant entry internal dcl 233 ref 113 FIND_ARG_DIMENSIONS 002463 constant entry internal dcl 294 ref 126 FINISH 001671 constant entry internal dcl 218 ref 101 140 235 GET_ARG_VALUES 002023 constant entry internal dcl 239 ref 134 285 GET_DIM_IDX 001474 constant entry internal dcl 187 ref 208 GET_REFNAME_AND_VALUES 002270 constant entry internal dcl 268 ref 136 GET_VALUE 001537 constant entry internal dcl 200 ref 107 132 133 MAIN_RETURN 001160 constant label dcl 141 ref 236 SET_ID 001262 constant entry internal dcl 158 SET_ID_REQUIRED 001300 constant entry internal dcl 169 ref 106 119 120 305 SI_JOIN 001316 constant label dcl 173 ref 167 pa_cv_result_to_lf 000310 constant entry external dcl 7 NAMES DECLARED BY CONTEXT OR IMPLICATION. addr builtin function ref 257 index builtin function ref 289 search builtin function ref 260 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 3004 3034 2622 3014 Length 3302 2622 30 232 162 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME pa_cv_result_to_lf 516 external procedure is an external procedure. on unit on line 101 64 on unit begin block on line 122 400 begin block uses auto adjustable storage. CHECK_VERSION internal procedure shares stack frame of external procedure pa_cv_result_to_lf. SET_ID 144 internal procedure is called by several nonquick procedures. GET_DIM_IDX internal procedure shares stack frame of internal procedure GET_VALUE. GET_VALUE 152 internal procedure is called by several nonquick procedures. FINISH 66 internal procedure is called by several nonquick procedures. ERROR_RETURN internal procedure shares stack frame of external procedure pa_cv_result_to_lf. GET_ARG_VALUES internal procedure shares stack frame of begin block on line 122. GET_REFNAME_AND_VALUES internal procedure shares stack frame of begin block on line 122. FIND_ARG_DIMENSIONS internal procedure shares stack frame of begin block on line 122. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME GET_VALUE 000107 gv_dim_idx GET_VALUE SET_ID 000100 si_dim_is_required SET_ID begin block on line 122 000100 blfb_is_arg_dimension begin block on line 122 000130 gav_current_value_ptr GET_ARG_VALUES 000132 gav_dim_idx GET_ARG_VALUES 000133 RESERVED_CHARS GET_ARG_VALUES 000164 grav_positive_refname GET_REFNAME_AND_VALUES 000265 grav_negative_refname GET_REFNAME_AND_VALUES 000374 fad_dim_identifier FIND_ARG_DIMENSIONS 000375 fad_dim_name FIND_ARG_DIMENSIONS pa_cv_result_to_lf 000100 command_name_iWong ~8process_overseer_ >user_dir_dir>Multics>Wong  €φαχΒΛύφαχφαχφαχφαχφαχφαχφαχφαχPΑαμT_™ΜFnone`TtΉ«ξΒΛύΖεΰT:Ϋ;2TšΒ>₯φαχ›Š‘X–Ι¦Τ @ @Miko ~8process_overseer_ >user_dir_dir>Multics>Miko  €φαχφαχφαχφαχφαχφαχφαχφαχφαχPΑαμTΡΓs%none`TΡDpa TšΒ>₯φαχ¦±LX–Ι¦Τ @ @Smith ~8process_overseer_ >user_dir_dir>Multics>Smith  €φαχφαχφαχφαχφαχφαχφαχφαχφαχPΑαμQ§sΡnΞnoneUQ§u (TšΒ>₯φαχΈ\»X–Ι¦Τ @ @Kittlitz ~8process_overseer_ >user_dir_dir>Multics>Kittlitz  €φαχφαχφαχφαχφαχφαχφαχφαχφαχPΑαμTμMζςnone`TμOΗΪ‘ ----------------------------------------------------------- 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