diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/cputc.c

   1 #ifdef COMMENT
   2         Proprietary Rand Corporation, 1981.
   3         Further distribution of this software
   4         subject to the terms of the Rand
   5         license agreement.
   6 #endif
   7
   8 #include <stdio.h>
   9
  10 cputc(chr, ip)
  11 register FILE *ip;
  12 {
  13         if(ip != NULL) {
  14                 putc(chr, ip);
  15                 if(ferror(ip)) {
  16                         perror("Write error");
  17                         done(-1);
  18                 }
  19         }
  20 }