1 /* *********************************************************** 2 * * 3 * Copyright, (C) Honeywell Bull Inc., 1987 * 4 * * 5 * Copyright, (C) Honeywell Information Systems Inc., 1986 * 6 * * 7 *********************************************************** */ 8 9 /* HISTORY COMMENTS: 10 1) change(86-07-13,Westcott), approve(87-07-13,MCR7580), 11 audit(87-07-13,Leskiw), install(87-08-07,MR12.1-1072): 12 Created. 13 END HISTORY COMMENTS */ 14 15 /* : PROCEDURE FUNCTION (i_sendbg) 16 17 Sends a message over the back ground channel from a foreground program. 18 */ 19 20 #include <stdio.h> 21 #include <ws.h> 22 #include <ws_error.h> 23 #include <ws_msg.h> 24 25 extern char mysystem; /* ID of this system */ 26 27 i_sendbg (p_msg, p_length) 28 29 struct packet_msg *p_msg; 30 int p_length; 31 { 32 33 if ((p_msg -> system == 0) || (p_msg -> major == 0)) 34 { p_msg -> source_system = mysystem; 35 p_msg -> source_major = WSMAJCAP; 36 } 37 38 return (send_i_mess (p_msg, p_length, NULL, 0)); 39 } 40 ^Z