1234567891011121314151617181920212223242526272829303132333435363738394041 |
- /* $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
- *
- */
- #include <pc_file.h>
- extern _wf();
- extern _outcpt();
- _wrc(c,f) int c; struct file *f; {
- *f->ptr = c;
- _wf(f);
- _outcpt(f);
- }
- _wln(f) struct file *f; {
- #ifdef CPM
- _wrc('\r',f);
- #endif
- _wrc('\n',f);
- f->flags |= ELNBIT;
- }
- _pag(f) struct file *f; {
- _wrc('\014',f);
- f->flags |= ELNBIT;
- }
|