/* $Id$ */ /* * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands. * * This product is part of the Amsterdam Compiler Kit. * * Permission to use, sell, duplicate or disclose this software must be * obtained in writing. Requests for such permissions may be sent to * * Dr. Andrew S. Tanenbaum * Wiskundig Seminarium * Vrije Universiteit * Postbox 7161 * 1007 MC Amsterdam * The Netherlands * */ /* Author: J.W. Stevenson */ #include #include extern struct file *_curfil; extern _trp(); extern _flush(); extern _outcpt(); extern int _close(); _xcls(f) struct file *f; { if ((f->flags & WRBIT) == 0) return; if ((f->flags & (TXTBIT|ELNBIT)) == TXTBIT) { #ifdef CPM *f->ptr = '\r'; _outcpt(f); #endif *f->ptr = '\n'; _outcpt(f); } _flush(f); } _cls(f) struct file *f; { #ifdef MAYBE char *p; #endif _curfil = f; if ((f->flags&0377) != MAGIC) return; #ifdef MAYBE p = f->bufadr; if (f->ptr < p) return; if (f->buflen <= 0) return; p += f->buflen; if (f->ptr >= p) return; #endif _xcls(f); if (_close(f->ufd) != 0) _trp(ECLOSE); f->flags = 0; }