From 3725e15ff100d00bd9345e09de2216ca05c1d93e Mon Sep 17 00:00:00 2001 From: Oliver Lehmann Date: Thu, 7 Dec 1989 07:55:58 +0000 Subject: [PATCH] ING_DB --- WEGA/contrib/ingres/dbs/src/yyyacc/y5.c | 35 +++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 WEGA/contrib/ingres/dbs/src/yyyacc/y5.c diff --git a/WEGA/contrib/ingres/dbs/src/yyyacc/y5.c b/WEGA/contrib/ingres/dbs/src/yyyacc/y5.c new file mode 100644 index 0000000..4dc238b --- /dev/null +++ b/WEGA/contrib/ingres/dbs/src/yyyacc/y5.c @@ -0,0 +1,35 @@ +# include +/* fake portable I/O routines, for those + sites so backward as to not have the + port. library */ + +FILE *cin, *cout; +FILE *Fin, *Fout; + +FILE *copen(s, c) +register char *s; +register char *c; +{ + register FILE *f; + + if ((f = fopen(s, c)) == (FILE *) 0) + error("cannot open %s", s); + else if (*c == 'r') + Fin = f; + return (f); +} + +cflush(x) +register FILE *x; +{ + /* fake! sets file to x */ + fflush(Fout); + Fout = x; +} + +cexit(i) +register int i; +{ + fflush(Fout); + exit(i); +}