lib/ack/libp/wrz.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_err.h>
  20 #include        <pc_file.h>
  21
  22 extern          _wss();
  23 extern          _wrs();
  24
  25 _wsz(w,s,f) int w; char *s; struct file *f; {
  26         char *p;
  27
  28         if (w < 0) _trp(EWIDTH);
  29         for (p=s; *p; p++);
  30         _wss(w,(int)(p-s),s,f);
  31 }
  32
  33 _wrz(s,f) char *s; struct file *f; {
  34         char *p;
  35
  36         for (p=s; *p; p++);
  37         _wrs((int)(p-s),s,f);
  38 }