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(87-03-10,Flegel), 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 #include <ws_error.h>
16 
17 #define PACKETS 125
18 #define REJECTS 126
19 #define EXTRA   127
20 
21 extern int dbgpkts;
22 extern int dbgrejs;
23 extern int dbgxchr;
24 
25 /* : PROCEDURE FUNCTION (toggle_debug_switches)
26 
27 Toggle the debug switches packet (125), rejects (126), and extr-chars (127)
28 */
29 
30 toggle_debug_switches (db_switch)
31 
32 int  db_switch;
33 {
34 
35    switch (db_switch)
36    {
37       case PACKETS:
38          dbgpkts = !dbgpkts;
39          return (0);
40 
41       case REJECTS:
42          dbgrejs = !dbgrejs;
43          return (0);
44 
45       case EXTRA:
46          dbgxchr = !dbgxchr;
47          return (0);
48 
49       default:
50          return (WSERROR);
51    }
52 
53    return (0);
54 }
55 ^Z