iX Computer Systems - Edition 1 (32715-90001)

ManualsBrandsHP ManualsSoftwareMPE/iX 6.0 Operating System

491

492

493

494

495

496

497

498

499

500

G-: 20

$page$

{----------------------------------------------------------------------------}

{ t_basic_scalar_type }

{ Definition of a variant record for which the representation of the data }

{ can be selected when the data type of the value is known. }

{----------------------------------------------------------------------------}

type

t_basic_scalar_type =

record

case t_basic_data_types of

basic_sinteger_type :

( sinteger_value : t_short_integer_type );

basic_integer_type :

( integer_value : t_integer_type );

basic_short_type :

( short_value : t_short_real_type );

basic_real_type :

( real_value : t_real_type );

basic_short_decimal_type :

( short_decimal_value : t_short_decimal_type );

basic_decimal_type :

( decimal_value : t_decimal_type );

basic_string_type :

( string_value : t_basic_string_type );

end; { record t_basic_scalar_type }

$page$

{----------------------------------------------------------------------------}

{ Array constant and type definitions. }

{----------------------------------------------------------------------------}

{ Constants describing array bounds and limits. }

{----------------------------------------------------------------------------}

const

c_max_array_bound = 32767;

c_min_array_bound = -32768;

c_max_array_elements = 32767;

c_max_array_size = 32767; { bytes }

c_max_array_dim = 6;

{----------------------------------------------------------------------------}

{ Definition of the array descriptor that precedes the area used to store }

{ the array data. }

{----------------------------------------------------------------------------}

type

t_dimension_subrange = integer;

t_array_single_dimension_descriptor =

record

dim_size : t_dimension_subrange; { number of elements in dimension }

lower_bound : t_dimension_subrange; { lower bound for dimension }

end; { record t_array_single_dimension_descriptor }

t_array_dimension_descriptor =

array [1..c_max_array_dim] of t_array_single_dimension_descriptor;

t_array_descriptor =

record

total_elements : integer;

bounds_info : t_array_dimension_descriptor;

end;

{----------------------------------------------------------------------------}

{ Definition of the DATA area of the array. }

{----------------------------------------------------------------------------}