lib/ack/libp/buff.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 /* Author: J.W. Stevenson */
  20
  21 #include        <pc_file.h>
  22
  23 extern          _flush();
  24
  25 /* procedure buff(var f:file of ?); */
  26
  27 buff(f) struct file *f; {
  28         int sz;
  29
  30         if ((f->flags & (0377|WRBIT)) != (MAGIC|WRBIT))
  31                 return;
  32         _flush(f);
  33         sz = f->size;
  34         f->count = f->buflen = (sz>PC_BUFLEN ? sz : PC_BUFLEN-PC_BUFLEN%sz);
  35 }