1 /* *********************************************************** 2 * * 3 * Copyright, (C) Honeywell Information Systems Inc., 1983 * 4 * * 5 *********************************************************** */ 6 7 /* ***** BEGIN INCLUDE FILE vu_dimension_table.incl.pl1 ****** */ 8 9 /* format: style2,ind3 */ 10 11 /* HISTORY: 12 Written by Matthew Pierret, 08/24/83. 13 Modified: 14 */ 15 16 dcl 1 dimension_table aligned based (dimension_table_ptr), 17 /* This structure describes a set of dimensions. */ 18 /* These dimensions are primarily used in association */ 19 /* with a vector_list structure. */ 20 2 version char (8) init (DIMENSION_TABLE_VERSION_1), 21 2 maximum_dimension_name_length 22 fixed bin (35), /* length of the dimension.name field */ 23 2 number_of_dimensions 24 fixed bin (35), /* extent of the dimension array */ 25 2 dimension (dt_number_of_dimensions refer (dimension_table.number_of_dimensions)), 26 3 name char (dt_maximum_dimension_name_length 27 refer (dimension_table.maximum_dimension_name_length)) varying init (""), 28 /* name of a dimension */ 29 3 descriptor_string 30 bit (36) aligned init ("0"b), 31 /* One-word Multics descriptor. */ 32 3 descriptor_ptr ptr init (null), /* points to the Multics descriptor for this dimension. */ 33 /* For one-word descriptors, the value is usually */ 34 /* addr (dimension_table.dimension.descriptor_string) */ 35 /* Multi-word descriptors must be allocated in */ 36 /* separate storage */ 37 3 cv_to_print entry (ptr, ptr, ptr, fixed bin (35), char (*) varying, fixed bin (35)), 38 /* call cv_to_print (descriptor_ptr, typed_value_ptr, */ 39 /* temp_seg_ptr, max_length_for_print_value, */ 40 /* print_value, code) */ 41 3 cv_to_typed entry (ptr, ptr, ptr, ptr, fixed bin (35)); 42 /* call cv_to_typed (descriptor_ptr, area_ptr, */ 43 /* print_value_ptr, typed_value_ptr, code) */ 44 45 dcl dimension_table_ptr ptr init (null); 46 dcl dt_maximum_dimension_name_length 47 fixed bin (35) init (-1); 48 dcl dt_number_of_dimensions 49 fixed bin (35) init (-1); 50 dcl DIMENSION_TABLE_VERSION_1 51 char (8) init ("DimTbl_1") internal static options (constant); 52 53 54 /* ******* END INCLUDE FILE vu_dimension_table.incl.pl1 ****** */