home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / src / lose.c < prev    next >
Text File  |  1996-09-03  |  1KB  |  44 lines

  1. /*
  2.  *
  3.  * NAME
  4.  *    lose.c -- report INTERCAL compile- or run-time error
  5.  *
  6. LICENSE TERMS
  7.     Copyright (C) 1996 Eric S. Raymond 
  8.  
  9.     This program is free software; you can redistribute it and/or modify
  10.     it under the terms of the GNU General Public License as published by
  11.     the Free Software Foundation; either version 2 of the License, or
  12.     (at your option) any later version.
  13.  
  14.     This program is distributed in the hope that it will be useful,
  15.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  16.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17.     GNU General Public License for more details.
  18.  
  19.     You should have received a copy of the GNU General Public License
  20.     along with this program; if not, write to the Free Software
  21.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22.  */
  23. /*LINTLIBRARY*/
  24. #include <stdio.h>
  25. #include <stdlib.h>
  26. #include "lose.h"
  27.  
  28. void lose(char *m, int n, char *s)
  29. {
  30.     (void) fprintf(stderr,
  31.            "ICL%c%c%cI\t",
  32.            m[0], m[1], m[2]);
  33.     if (s)
  34.     (void) fprintf(stderr, m + 4, s, n);
  35.     else
  36.     (void) fprintf(stderr, m + 4, n);
  37.     (void) fprintf(stderr, "        CORRECT SOURCE AND RESUBMIT\n");
  38.     exit(atoi(m));
  39. }
  40.  
  41. /* lose.c ends here */
  42.  
  43.  
  44.