diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/Extras/libh/error.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 error(s)
   9 char *s;
  10 {
  11         register char *p;
  12
  13         flush();
  14         write(2, "?", 1);
  15         for (p = s; *p++; );
  16         --p;
  17         write(2, s, p-s);
  18         write(2, "?\n", 2);
  19         exit(-1);
  20 }