INTERCAL 0.13 release.
[intercal:intercal.git] / src / lose.c
1 /*
2  * lose.c -- report INTERCAL compile- or run-time error
3  */
4 /*LINTLIBRARY*/
5 #include <stdio.h>
6 #include <stdlib.h>
7 #include "lose.h"
8
9 void lose(char *m, int n, char *s)
10 {
11     (void) fprintf(stderr,
12                    "ICL%c%c%cI\t",
13                    m[0], m[1], m[2]);
14     if (s)
15         (void) fprintf(stderr, m + 4, s, n);
16     else
17         (void) fprintf(stderr, m + 4, n);
18     (void) fprintf(stderr, "        CORRECT SOURCE AND RESUBNIT\n");
19     exit(atoi(m));
20 }
21
22 /* lose.c ends here */
23
24