modules/src/object/wr_putc.c

   1 /* $Id: wr_putc.c,v 1.7 1994/06/24 11:19:30 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 #include "obj.h"
   7
   8 extern int __sectionnr;
   9
  10 void
  11 wr_putc(ch)
  12 {
  13         register struct fil *ptr = &__parts[PARTEMIT+getsect(__sectionnr)];
  14
  15         if (ptr->cnt == 0) __wr_flush(ptr);
  16         ptr->cnt--; *ptr->pnow++ = ch;
  17 }