lib/ack/libp/wrc.c

   1 /* $Header$ */
   2 /*
   3  * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  *
   5  *          This product is part of the Amsterdam Compiler Kit.
   6  *
   7  * Permission to use, sell, duplicate or disclose this software must be
   8  * obtained in writing. Requests for such permissions may be sent to
   9  *
  10  *      Dr. Andrew S. Tanenbaum
  11  *      Wiskundig Seminarium
  12  *      Vrije Universiteit
  13  *      Postbox 7161
  14  *      1007 MC Amsterdam
  15  *      The Netherlands
  16  *
  17  */
  18
  19 #include        <pc_file.h>
  20
  21 extern          _wf();
  22 extern          _outcpt();
  23
  24 _wrc(c,f) int c; struct file *f; {
  25         *f->ptr = c;
  26         _wf(f);
  27         _outcpt(f);
  28 }
  29
  30 _wln(f) struct file *f; {
  31 #ifdef CPM
  32         _wrc('\r',f);
  33 #endif
  34         _wrc('\n',f);
  35         f->flags |= ELNBIT;
  36 }
  37
  38 _pag(f) struct file *f; {
  39         _wrc('\014',f);
  40         f->flags |= ELNBIT;
  41 }