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 ****** */