/* BEGIN INCLUDE FILE ... std_descriptor_types.incl.pl1 */ /****^ HISTORY COMMENTS: 1) change(86-09-05,JMAthane), approve(86-09-05,MCR7525), audit(86-09-11,Martinson), install(86-11-12,MR12.0-1208): Added pascal_string_type_dtype descriptor type. Its number is 87. Objects of this type are PASCAL string types. 2) change(88-09-20,WAAnderson), approve(88-09-20,MCR7952), audit(88-09-30,JRGray), install(88-10-24,MR12.2-1184): Added the new C types. END HISTORY COMMENTS */ /* This include file defines mnemonic names for the Multics standard descriptor types, using both pl1 and cobol terminology. PG 780613 JRD 790530 JRD 791016 MBW 810731 TGO 830614 Add hex types. Modified June 83 JMAthane to add PASCAL data types TGO 840120 Add float dec extended and generic, float binary generic */ dcl (real_fix_bin_1_dtype init (1), real_fix_bin_2_dtype init (2), real_flt_bin_1_dtype init (3), real_flt_bin_2_dtype init (4), cplx_fix_bin_1_dtype init (5), cplx_fix_bin_2_dtype init (6), cplx_flt_bin_1_dtype init (7), cplx_flt_bin_2_dtype init (8), real_fix_dec_9bit_ls_dtype init (9), real_flt_dec_9bit_dtype init (10), cplx_fix_dec_9bit_ls_dtype init (11), cplx_flt_dec_9bit_dtype init (12), pointer_dtype init (13), offset_dtype init (14), label_dtype init (15), entry_dtype init (16), structure_dtype init (17), area_dtype init (18), bit_dtype init (19), varying_bit_dtype init (20), char_dtype init (21), varying_char_dtype init (22), file_dtype init (23), real_fix_dec_9bit_ls_overp_dtype init (29), real_fix_dec_9bit_ts_overp_dtype init (30), real_fix_bin_1_uns_dtype init (33), real_fix_bin_2_uns_dtype init (34), real_fix_dec_9bit_uns_dtype init (35), real_fix_dec_9bit_ts_dtype init (36), real_fix_dec_4bit_uns_dtype init (38), /* digit-aligned */ real_fix_dec_4bit_ts_dtype init (39), /* byte-aligned */ real_fix_dec_4bit_bytealigned_uns_dtype init (40), /* COBOL */ real_fix_dec_4bit_ls_dtype init (41), /* digit-aligned */ real_flt_dec_4bit_dtype init (42), /* digit-aligned */ real_fix_dec_4bit_bytealigned_ls_dtype init (43), real_flt_dec_4bit_bytealigned_dtype init (44), cplx_fix_dec_4bit_bytealigned_ls_dtype init (45), cplx_flt_dec_4bit_bytealigned_dtype init (46), real_flt_hex_1_dtype init (47), real_flt_hex_2_dtype init (48), cplx_flt_hex_1_dtype init (49), cplx_flt_hex_2_dtype init (50), c_typeref_dtype init (54), c_enum_dtype init (55), c_enum_const_dtype init (56), c_union_dtype init (57), algol68_straight_dtype init (59), algol68_format_dtype init (60), algol68_array_descriptor_dtype init (61), algol68_union_dtype init (62), cobol_comp_6_dtype init (1), cobol_comp_7_dtype init (1), cobol_display_ls_dtype init (9), cobol_structure_dtype init (17), cobol_char_string_dtype init (21), cobol_display_ls_overp_dtype init (29), cobol_display_ts_overp_dtype init (30), cobol_display_uns_dtype init (35), cobol_display_ts_dtype init (36), cobol_comp_8_uns_dtype init (38), /* digit aligned */ cobol_comp_5_ts_dtype init (39), /* byte aligned */ cobol_comp_5_uns_dtype init (40), cobol_comp_8_ls_dtype init (41), /* digit aligned */ real_flt_dec_extended_dtype init (81), /* 9-bit exponent */ cplx_flt_dec_extended_dtype init (82), /* 9-bit exponent */ real_flt_dec_generic_dtype init (83), /* generic float decimal */ cplx_flt_dec_generic_dtype init (84), real_flt_bin_generic_dtype init (85), /* generic float binary */ cplx_flt_bin_generic_dtype init (86)) fixed bin internal static options (constant); dcl (ft_integer_dtype init (1), ft_real_dtype init (3), ft_double_dtype init (4), ft_complex_dtype init (7), ft_complex_double_dtype init (8), ft_external_dtype init (16), ft_logical_dtype init (19), ft_char_dtype init (21), ft_hex_real_dtype init (47), ft_hex_double_dtype init (48), ft_hex_complex_dtype init (49), ft_hex_complex_double_dtype init (50) ) fixed bin internal static options (constant); dcl (algol68_short_int_dtype init (1), algol68_int_dtype init (1), algol68_long_int_dtype init (2), algol68_real_dtype init (3), algol68_long_real_dtype init (4), algol68_compl_dtype init (7), algol68_long_compl_dtype init (8), algol68_bits_dtype init (19), algol68_bool_dtype init (19), algol68_char_dtype init (21), algol68_byte_dtype init (21), algol68_struct_struct_char_dtype init (22), algol68_struct_struct_bool_dtype init (20) ) fixed bin internal static options (constant); dcl (label_constant_runtime_dtype init (24), int_entry_runtime_dtype init (25), ext_entry_runtime_dtype init (26), ext_procedure_runtime_dtype init (27), picture_runtime_dtype init (63) ) fixed bin internal static options (constant); dcl (pascal_integer_dtype init (1), pascal_real_dtype init (4), pascal_label_dtype init (24), pascal_internal_procedure_dtype init (25), pascal_exportable_procedure_dtype init (26), pascal_imported_procedure_dtype init (27), pascal_typed_pointer_type_dtype init (64), pascal_char_dtype init (65), pascal_boolean_dtype init (66), pascal_record_file_type_dtype init (67), pascal_record_type_dtype init (68), pascal_set_dtype init (69), pascal_enumerated_type_dtype init (70), pascal_enumerated_type_element_dtype init (71), pascal_enumerated_type_instance_dtype init (72), pascal_user_defined_type_dtype init (73), pascal_user_defined_type_instance_dtype init (74), pascal_text_file_dtype init (75), pascal_procedure_type_dtype init (76), pascal_variable_formal_parameter_dtype init (77), pascal_value_formal_parameter_dtype init (78), pascal_entry_formal_parameter_dtype init (79), pascal_parameter_procedure_dtype init (80), pascal_string_type_dtype init (87)) fixed bin int static options (constant); /* END INCLUDE FILE ... std_descriptor_types.incl.pl1 */ */ ----------------------------------------------------------- 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 */