|
|
1.1 root 1: # include <ingres.h>
2: # include <symbol.h>
3: # include <range.h>
4: # include "globs.h"
5: # include <sccs.h>
6:
7: SCCSID(@(#)de_init.c 8.1 12/31/84)
8:
9: /*ARGSUSED*/
10: de_init(argc, argv)
11: int argc;
12: char **argv;
13: {
14: Batchupd = setflag(argv, 'b', 1);
15:
16: /*
17: ** Do the necessary decomp initialization. This includes
18: ** buffering standard output (if i/d system) and giving
19: ** access methods more pages (if i/d system).
20: ** init_decomp is defined in either call_ovqp or call_ovqp70.
21: */
22:
23: init_decomp();
24: }
25: /*
26: ** RUBPROC -- process a rubout signal
27: **
28: ** Called from the principle rubout catching routine
29: ** when a rubout is to be processed. Notice that rubproc
30: ** must return to its caller and not call reset itself.
31: **
32: ** Parameters:
33: ** none
34: **
35: ** Returns:
36: ** none
37: **
38: ** Side Effects:
39: ** reinitializes the state of the world.
40: **
41: ** Called By:
42: ** rubcatch
43: */
44:
45:
46: de_rubproc()
47: {
48: extern int Equel;
49:
50: /*
51: ** Sync with equel if we have the equel pipe.
52: ** This can happen only if ovqp and decomp
53: ** are combined.
54: */
55: /*
56: if (W_front >= 0 && Equel)
57: Error_flag = pv[0].pv_val.pv_int;
58: wrpipe(P_INT, &pipebuf, W_front);
59: */
60:
61: endovqp(RUBACK);
62: reinit();
63: return;
64: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.