1 /* BEGIN INCLUDE FILE pascal_symbol_.incl.pl1 */ 2 3 /****^ HISTORY COMMENTS: 4 1) change(86-09-15,JMAthane), approve(86-09-15,MCR7521), 5 audit(86-09-15,Martinson), install(86-11-12,MR12.0-1208): 6 Added for version 8.03 of pascal to support pascal_display tools. 7 END HISTORY COMMENTS */ 8 9 /* format: style4,^linecom,^ifthendo,^indproc,^indblkcom,initcol1,declareind8,dclind4,struclvlind1 */ 10 11 dcl pascal_symbol_$display_declaration entry 12 (ptr, /* ptr to Pascal symbol node */ 13 ptr, /* ptr to Multics iocb for output */ 14 fixed bin (35), /* nbr of spaces for left margin */ 15 fixed bin (35), /* nbr of spaces for indentation */ 16 bit (5), /* switches : 17 - name : if true, name of the symbol is printed. 18 - declaration : if true, declaration is printed. 19 - status : if true, place of declaration (proc name, etc..) is printed. 20 - long : if true, record types fields are described. 21 - nl : if true, new_line is printed at the end. */ 22 fixed bin (35)); /* standard error_code */ 23 24 25 dcl pascal_symbol_$display_var_type entry 26 (fixed bin (35), /* type code for the Pascal variable or field */ 27 ptr, /* type pointer for the Pascal variable or field (null if none) */ 28 ptr, /* ptr to the Multics iocb for output */ 29 fixed bin (35), /* nbr of spaces for left margin */ 30 fixed bin (35), /* nbr of spaces for indentation */ 31 bit (2), /* switches : 32 - long : not used 33 - nl : if true, new_Line is printed at the end */ 34 fixed bin (35)); /* standard error_code */ 35 36 37 dcl pascal_symbol_$display_data entry 38 (fixed bin (35), /* type code for the Pascal data */ 39 ptr, /* type ptr for the Pascal data (null if none) */ 40 ptr, /* ptr to the Multics switch for output */ 41 fixed bin (35), /* spaces count for left margin */ 42 fixed bin (35), /* spaces count for indentation */ 43 bit (3), /* switches : 44 - name : if true, name of the symbol is printed. 45 - long : not used 46 - nl : if true, new_Line is printed at the end */ 47 ptr, /* ptr to stack frame (null if none) */ 48 ptr, /* ptr to linkage section (null if none) */ 49 ptr, /* ptr to "declared in" runtime block for the data */ 50 1 like pascal_subscript_info, /* info about subarray bounds */ 51 ptr, /* ptr to the data */ 52 char (256) var, /* name of the data */ 53 fixed bin (35), /* size of the data */ 54 fixed bin (35)); /* standard error code */ 55 56 dcl pascal_symbol_$memorize_refs_on entry; 57 58 dcl pascal_symbol_$memorize_refs_off entry; 59 60 dcl pascal_symbol_$clear_references entry; 61 62 dcl pascal_symbol_$display_references entry 63 (ptr, /* ptr to the Multics switch for output */ 64 fixed bin (35), /* spaces count for left margin */ 65 fixed bin (35), /* spaces count for indentation */ 66 fixed bin (35)); /* standard error code */ 67 dcl 1 pascal_subscript_info aligned based, 68 2 number fixed bin, /* number actually present */ 69 2 value (2, 16) fixed bin (24); /* values for lower and upper bound for each */ 70 71 /* END INCLUDE FILE pascal_symbol_.incl.pl1 */