63 lines
1.6 KiB
C
63 lines
1.6 KiB
C
/* TIPC Scheme '84 Runtime Support - Error Messages
|
||
(C) Copyright 1984,1985 by Texas Instruments Incorporated.
|
||
All rights reserved.
|
||
|
||
Author: Mark E. Meyer
|
||
Installation: Texas Instruments Incorporated, Dallas, Texas
|
||
Division: Central Research Laboratories
|
||
Cost Center: Computer Science Laboratory
|
||
Project: Computer Architecture Branch
|
||
Date Written: 3 July 1984
|
||
Last Modification: 12 June 1985
|
||
*/
|
||
|
||
#include "scheme.h"
|
||
|
||
|
||
/**************************************************************/
|
||
/* ERRMSG(code) */
|
||
/* This simply prints whatever error message is called */
|
||
/* for by CODE. */
|
||
/**************************************************************/
|
||
errmsg(code)
|
||
int code;
|
||
{
|
||
switch (code)
|
||
{
|
||
case QUOTERR:
|
||
printf("Bad quote form\n");
|
||
break;
|
||
case DOTERR:
|
||
printf("Bad dot form\n");
|
||
break;
|
||
case RPARERR:
|
||
printf(") before (\n");
|
||
break;
|
||
case PORTERR:
|
||
printf("Wrong port direction\n");
|
||
break;
|
||
case FULLERR:
|
||
printf("Disk full\n");
|
||
break;
|
||
case HEAPERR:
|
||
printf("Heap space exhausted\n");
|
||
printf("Press any key to return to Scheme toplevel.\n"); /*rb*/
|
||
getch(); /*rb*/
|
||
rbrk(); /*rb*/
|
||
force_re(); /* we won't return */ /*rb*/
|
||
break;
|
||
case OVERERR:
|
||
printf("Flonum overflow\n");
|
||
break;
|
||
case DIV0ERR:
|
||
printf("Divide by zero\n");
|
||
break;
|
||
case EOFERR:
|
||
/* Don't print a message for end-of-file */
|
||
break;
|
||
case SHARPERR:
|
||
printf("#-macro error\n");
|
||
break;
|
||
}
|
||
}
|
||
|