diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/Extras/libh/errtyp.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 errtype(file, errmsg)
   9 char *file, *errmsg;
  10 {
  11         register char *r1, *r2;
  12         char errlin[80];
  13         register char *r3;
  14
  15         r3 = errlin;
  16         r1 = r3;
  17         r2 = file;
  18         while (*r1++ = *r2++);
  19         r1[-1] = ':';
  20         r2 = errmsg;
  21         while (*r1++ = *r2++);
  22         r1[-1] = '\n';
  23         write(2, r3, r1-r3);
  24 }