|
|
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.