wr_putc.c 378 B

1234567891011121314151617
  1. /* $Id$ */
  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. extern int __sectionnr;
  8. void
  9. wr_putc(ch)
  10. {
  11. register struct fil *ptr = &__parts[PARTEMIT+getsect(__sectionnr)];
  12. if (ptr->cnt == 0) __wr_flush(ptr);
  13. ptr->cnt--; *ptr->pnow++ = ch;
  14. }