COMPILATION LISTING OF SEGMENT xmail_dprint_mlist_ Compiled by: Multics PL/I Compiler, Release 31a, of October 12, 1988 Compiled at: Honeywell Bull, Phoenix AZ, SysM Compiled on: 10/28/88 1319.8 mst Fri Options: optimize map 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Bull Inc., 1988 * 4* * * 5* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6* * * 7* * Copyright (c) 1972 by Massachusetts Institute of * 8* * Technology and Honeywell Information Systems, Inc. * 9* * * 10* *********************************************************** */ 11 12 13 14 /****^ HISTORY COMMENTS: 15* 1) change(86-02-27,Blair), approve(86-02-27,MCR7358), 16* audit(86-04-18,RBarstad), install(86-05-28,MR12.0-1062): 17* 85-03-26 Joanne Backs: Modified to not put in the defaults for copies, 18* lmargin and notify in auto_dprint_arg before printing. These are now 19* personalization options and will be filled in by xmail_print_$submit_file. 20* 21* 85-04-02 Joanne Backs: Deleted call to ioa_ to display user message. Added 22* the call to xmail_print_ so messages when printing would be consistant. 23* 2) change(87-05-10,Gilcrease), approve(87-05-15,MCR7686), 24* audit(88-02-01,Farley), install(88-02-02,MR12.2-1019): 25* Update to version 9 dprint_arg. 26* END HISTORY COMMENTS */ 27 28 29 xmail_dprint_mlist_: proc (P_dir, P_file); 30 31 /* BEGIN DESCRIPTION 32* 33*history: 34* Written: by ?? 35* 36* 82-10-11 Dave Schimke: Modified to use dp_args version 7 37* 38* 84-09-27 Joanne Backs: Modified to use dp_args version 8 39* 40*END DESCRIPTION 41**/ 42 43 /* PARAMETERS */ 44 45 dcl (P_dir, P_file) char (*); 46 47 /* AUTOMATIC */ 48 49 dcl code fixed bin (35); 50 dcl 1 auto_dprint_arg like dprint_arg; 51 52 /* BUILTINS */ 53 54 dcl addr builtin; 55 56 /* ENTRIES */ 57 58 dcl com_err_$suppress_name entry () options (variable); 59 dcl xmail_print_$delete_file entry (char (*), char (*), fixed bin (35)); 60 dcl xmail_print_$submit_file entry (char (*), char (*), char (*), ptr, fixed bin (35)); 61 62 /* EXTERNAL STATIC */ 63 64 dcl xmail_err_$int_prog_err fixed bin (35) ext static; 65 66 /* CONSTANTS */ 67 68 dcl ME_CHAR char (19) init ("xmail_dprint_mlist_") int static options (constant); 69 70 /* INCLUDE FILES */ 71 1 1 /* BEGIN INCLUDE FILE ... dprint_arg.incl.pl1 */ 1 2 /* Modified 11/13/74 by Noel I. Morris */ 1 3 /* Modified: 10 April 1981 by G. Palter for version 6 structure -- longer request type names */ 1 4 /* Modified: 30 April 1982 by R. Kovalcik for version 7 structure -- defer_until_process_terminataion */ 1 5 /* Modified: November 1983 by C. Marker for version 8 structure -- no_separator */ 1 6 1 7 /****^ HISTORY COMMENTS: 1 8* 1) change(87-05-10,Gilcrease), approve(87-05-13,MCR7686), 1 9* audit(88-02-01,Farley), install(88-02-02,MR12.2-1019): 1 10* Add line_nbrs bit for line-numbered printouts, version 9. 1 11* 2) change(88-02-05,Farley), approve(88-02-05,PBF7686), audit(88-02-05,GWMay), 1 12* install(88-02-05,MR12.2-1022): 1 13* Corrected alignment of line_nbrs, was aligned s/b unaligned.. 1 14* 3) change(88-08-29,Farley), approve(88-09-16,MCR7911), 1 15* audit(88-09-29,Wallman), install(88-10-28,MR12.2-1199): 1 16* Created a new 64 character forms_name variable, which supersedes the old 1 17* char 24 form_name variable, version 10. 1 18* END HISTORY COMMENTS */ 1 19 1 20 1 21 dcl dpap ptr; /* ptr to argument structure */ 1 22 dcl 1 dprint_arg_buf aligned like dprint_arg; /* Automatic storage for arg. */ 1 23 1 24 dcl 1 dprint_arg based (dpap) aligned, /* argument structure */ 1 25 2 version fixed bin, /* version number of dcl - current version is 9 */ 1 26 2 copies fixed bin, /* number of copies wanted */ 1 27 2 delete fixed bin, /* 1=delete after print */ 1 28 2 queue fixed bin, /* print queue */ 1 29 2 pt_pch fixed bin, /* 1=print, 2=punch */ 1 30 2 notify fixed bin, /* 1 = notify user when done */ 1 31 2 heading char (64), /* first page heading */ 1 32 2 output_module fixed bin, /* 1=print, 2=7punch, 3=mcc, 4=raw, 5=plotter */ 1 33 2 dest char (12), /* version 5 made this a pad - see destination below */ 1 34 /* limit of version 1 structure */ 1 35 2 carriage_control, /* Carriage control flags. */ 1 36 3 nep bit (1) unal, /* TRUE if print trhu perf. */ 1 37 3 single bit (1) unal, /* TRUE if ignore FF and VT */ 1 38 3 non_edited bit (1) unal, /* TRUE if printing in non-edited mode */ 1 39 3 truncate bit (1) unal, /* TRUE if truncating lines at line length */ 1 40 3 center_top_label bit (1) unal, /* TRUE if top label to be centered */ 1 41 3 center_bottom_label bit (1) unal, /* TRUE if bottom label to be centered */ 1 42 3 esc bit (1) unal, /* version 5 TRUE if text escapes are to be processed */ 1 43 3 no_separator bit (1) unal, /* version 8 TRUE if the inner head and tail sheets are to be suppressed. */ 1 44 3 line_nbrs bit (1) unal, /* version 9, line numbers */ 1 45 3 padding bit (27) unal, 1 46 2 pad (30) fixed bin, 1 47 2 forms char (8), /* version 5 made this a pad - see form_name below */ 1 48 2 lmargin fixed bin, /* left margin */ 1 49 2 line_lth fixed bin, /* max line lth */ 1 50 /* limit of version 2 structure */ 1 51 2 class char (8), /* version 6 made this a pad - see request_type below */ 1 52 2 page_lth fixed bin, /* Paper length arg */ 1 53 /* limit of version 3 structure */ 1 54 2 top_label char (136), /* top-of-page label */ 1 55 2 bottom_label char (136), /* bottom-of-page label */ 1 56 /* limit of version 4 structure */ 1 57 2 bit_count fixed bin (35), /* segment bit count */ 1 58 2 form_name char (24), /* name of special forms needed - moved from forms */ 1 59 /* version 10 made this a pad - see forms_name below */ 1 60 2 destination char (24), /* the long destination - moved from dest */ 1 61 2 chan_stop_path char (168), /* path of user channel stops - future */ 1 62 /* limit of version 5 structure */ 1 63 2 request_type character (24) unaligned, /* request type for the request */ 1 64 /* limit of version 6 structure */ 1 65 2 defer_until_process_termination fixed bin, /* 1 = don't process request until requesting process terminates */ 1 66 2 forms_name char (64) unal; /* name of special forms needed - moved from form_name */ 1 67 /* limit of version 10 structure */ 1 68 1 69 dcl dprint_arg_version_1 fixed bin int static options (constant) init (1); 1 70 dcl dprint_arg_version_2 fixed bin int static options (constant) init (2); 1 71 dcl dprint_arg_version_3 fixed bin int static options (constant) init (3); 1 72 dcl dprint_arg_version_4 fixed bin int static options (constant) init (4); 1 73 dcl dprint_arg_version_5 fixed bin int static options (constant) init (5); 1 74 dcl dprint_arg_version_6 fixed bin int static options (constant) init (6); 1 75 dcl dprint_arg_version_7 fixed bin int static options (constant) init (7); 1 76 dcl dprint_arg_version_8 fixed bin int static options (constant) init (8); 1 77 dcl dprint_arg_version_9 fixed bin int static options (constant) init (9); 1 78 dcl dprint_arg_version_10 fixed bin int static options (constant) init (10); 1 79 /* current version */ 1 80 1 81 dcl ( 1 82 DP_PRINT init (1), 1 83 DP_PUNCH init (2), 1 84 DP_PLOT init (3) 1 85 ) fixed bin static options (constant); /* for dprint_arg.pt_pch */ 1 86 1 87 /* END INCLUDE FILE ... dprint_arg.incl.pl1 */ 72 73 74 /* BEGIN */ 75 76 auto_dprint_arg.version = dprint_arg_version_9; 77 auto_dprint_arg.delete = 0; 78 auto_dprint_arg.carriage_control = "0"b; 79 auto_dprint_arg.line_lth = -1; 80 auto_dprint_arg.page_lth = -1; 81 auto_dprint_arg.top_label = ""; 82 auto_dprint_arg.bottom_label = ""; 83 auto_dprint_arg.form_name = ""; 84 auto_dprint_arg.chan_stop_path = ""; 85 auto_dprint_arg.request_type = "printer"; 86 auto_dprint_arg.defer_until_process_termination = 0; 87 88 call xmail_print_$submit_file (P_dir, P_file, "", addr (auto_dprint_arg), code); 89 if code ^= 0 then call dprint_mlist_err (xmail_err_$int_prog_err, "Trying to submit dprint request."); 90 91 EXIT: 92 93 return; 94 95 96 /* INTERNAL PROCEDURES */ 97 98 dprint_mlist_err: proc (P_code, P_str); 99 100 dcl P_str char (*); 101 dcl P_code fixed bin (35); 102 103 call com_err_$suppress_name (P_code, ME_CHAR, "^a", P_str); 104 call xmail_print_$delete_file (P_dir, P_file, (0)); 105 go to EXIT; 106 107 end dprint_mlist_err; 108 109 end xmail_dprint_mlist_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 10/28/88 1302.1 xmail_dprint_mlist_.pl1 >special_ldd>install>MR12.2-1199>xmail_dprint_mlist_.pl1 72 1 10/28/88 1227.7 dprint_arg.incl.pl1 >special_ldd>install>MR12.2-1199>dprint_arg.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. ME_CHAR 000000 constant char(19) initial packed unaligned dcl 68 set ref 103* P_code parameter fixed bin(35,0) dcl 101 set ref 98 103* P_dir parameter char packed unaligned dcl 45 set ref 29 88* 104* P_file parameter char packed unaligned dcl 45 set ref 29 88* 104* P_str parameter char packed unaligned dcl 100 set ref 98 103* addr builtin function dcl 54 ref 88 88 auto_dprint_arg 000101 automatic structure level 1 unaligned dcl 50 set ref 88 88 bottom_label 142 000101 automatic char(136) level 2 packed packed unaligned dcl 50 set ref 82* carriage_control 32 000101 automatic structure level 2 packed packed unaligned dcl 50 set ref 78* chan_stop_path 221 000101 automatic char(168) level 2 packed packed unaligned dcl 50 set ref 84* code 000100 automatic fixed bin(35,0) dcl 49 set ref 88* 89 com_err_$suppress_name 000010 constant entry external dcl 58 ref 103 defer_until_process_termination 301 000101 automatic fixed bin(17,0) level 2 dcl 50 set ref 86* delete 2 000101 automatic fixed bin(17,0) level 2 dcl 50 set ref 77* dprint_arg based structure level 1 dcl 1-24 dprint_arg_version_9 constant fixed bin(17,0) initial dcl 1-77 ref 76 form_name 205 000101 automatic char(24) level 2 packed packed unaligned dcl 50 set ref 83* line_lth 74 000101 automatic fixed bin(17,0) level 2 dcl 50 set ref 79* page_lth 77 000101 automatic fixed bin(17,0) level 2 dcl 50 set ref 80* request_type 273 000101 automatic char(24) level 2 packed packed unaligned dcl 50 set ref 85* top_label 100 000101 automatic char(136) level 2 packed packed unaligned dcl 50 set ref 81* version 000101 automatic fixed bin(17,0) level 2 dcl 50 set ref 76* xmail_err_$int_prog_err 000016 external static fixed bin(35,0) dcl 64 set ref 89* xmail_print_$delete_file 000012 constant entry external dcl 59 ref 104 xmail_print_$submit_file 000014 constant entry external dcl 60 ref 88 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. DP_PLOT internal static fixed bin(17,0) initial dcl 1-81 DP_PRINT internal static fixed bin(17,0) initial dcl 1-81 DP_PUNCH internal static fixed bin(17,0) initial dcl 1-81 dpap automatic pointer dcl 1-21 dprint_arg_buf automatic structure level 1 dcl 1-22 dprint_arg_version_1 internal static fixed bin(17,0) initial dcl 1-69 dprint_arg_version_10 internal static fixed bin(17,0) initial dcl 1-78 dprint_arg_version_2 internal static fixed bin(17,0) initial dcl 1-70 dprint_arg_version_3 internal static fixed bin(17,0) initial dcl 1-71 dprint_arg_version_4 internal static fixed bin(17,0) initial dcl 1-72 dprint_arg_version_5 internal static fixed bin(17,0) initial dcl 1-73 dprint_arg_version_6 internal static fixed bin(17,0) initial dcl 1-74 dprint_arg_version_7 internal static fixed bin(17,0) initial dcl 1-75 dprint_arg_version_8 internal static fixed bin(17,0) initial dcl 1-76 NAMES DECLARED BY EXPLICIT CONTEXT. EXIT 000201 constant label dcl 91 ref 105 dprint_mlist_err 000202 constant entry internal dcl 98 ref 89 xmail_dprint_mlist_ 000032 constant entry external dcl 29 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 374 414 302 404 Length 612 302 20 162 72 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME xmail_dprint_mlist_ 342 external procedure is an external procedure. dprint_mlist_err internal procedure shares stack frame of external procedure xmail_dprint_mlist_. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME xmail_dprint_mlist_ 000100 code xmail_dprint_mlist_ 000101 auto_dprint_arg xmail_dprint_mlist_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc return_mac ext_entry_desc THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_$suppress_name xmail_print_$delete_file xmail_print_$submit_file THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. xmail_err_$int_prog_err LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 29 000026 76 000052 77 000054 78 000055 79 000101 80 000103 81 000104 82 000107 83 000112 84 000115 85 000120 86 000123 88 000124 89 000157 91 000201 98 000202 103 000213 104 000244 105 000270 ----------------------------------------------------------- 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