![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to error.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / basic / bite / src|
Return to error.c CVS log | Up to [Research Unix] / researchv10no / cmd / basic / bite / src |
1.1 root 1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
2:
3: * ***********************************
4: * ***********************************
5: * ****** ERROR MESSAGE PRINTER ******
6: * *** R. B. Drake WH 8C-005 X4163 ***
7: * **** Fri Aug 24 17:21:10 1979 *****
8: * ***********************************
9: * ***********************************
10: *
11: * MOD,J.P.Hawkins,17-SEP-79, added error 44 and 45
12: * MOD,J.P.Hawkins,31-JAN-81, String handling errors
13:
14: */
15: /* "@(#) error.c: V 1.6 11/29/81" */
16:
17: #include "bas.h"
18: #ifndef LSX
19: static char *mesg[] =
20: {
21: "REFERS TO A NON EXISTING LINE NUMBER", /* 0 */
22: "UNRECOGNIZABLE OPERATION", /* 1 */
23: "CANNOT OPEN FILE", /* 2 */
24: "ILLEGAL VARIABLE NAME", /* 3 */
25: "BAD FILENAME", /* 4 */
26: "WORKING STORAGE AREA EMPTY", /* 5 */
27: "RUNS NESTED TOO DEEPLY", /* 6 */
28: "UNASSIGNED VARIABLE", /* 7 */
29: "EXPRESSION SYNTAX", /* 8 */
30: "BAD KEYWORD IN STATEMENT", /* 9 */
31: "IMPROPER OR NO RELATIONAL OPERATOR", /* 10 */
32: "UNBALANCED QUOTES", /* 11 */
33: "FILE EDITING NOT PERMITTED IN SINGLE STEP MODE", /* 12 */
34: "MISSING OR ILLEGAL DELIMITER", /* 13 */
35: "GOSUB WITH NO RETURN", /* 14 */
36: "IS FATAL", /* 15 */
37: "UNBALANCED PARENTHESIS", /* 16 */
38: "UNKNOWN MATH FUNCTION", /* 17 */
39: "NEXT WITH NO OR WRONG FOR IN PROGRESS", /* 18 */
40: "CANNOT PROCESS IMAGINARY NUMBER", /* 19 */
41: "WHAT ?", /* 20 */
42: "BAD DIMENSION SYNTAX", /* 21 */
43: "TOO MANY DIMENSIONS", /* 22 */
44: "REDUNDANT DIM STATEMENT", /* 23 */
45: "NOT ENOUGH WORKING STORAGE SPACE", /* 24 */
46: "VARIABLE NOT DIMENSIONED", /* 25 */
47: "WRONG NUM OF DIMS", /* 26 */
48: "ONE OR MORE DIMS LARGER THAN ASSIGNED", /* 27 */
49: "NEG. OR ZERO DIMENSION ILLEGAL", /* 28 */
50: "DIVIDE BY ZERO", /* 29 */
51: "BAD TAB SPEC. IN PRINT", /* 30 */
52: "SYS CALL FAILED", /* 31 */
53: "BAD FILE DECLARE SYNTAX", /* 32 */
54: "OUT OF DATA", /* 33 */
55: "FILE-NAME TOO LONG", /* 34 */
56: "FILE DES. USED UP", /* 35 */
57: "FILE NOT OPEN FOR OUTPUT", /* 36 */
58: "FILE NOT OPEN FOR INPUT", /* 37 */
59: "EXPRESSION YIELDS AN IMPOSSIBLE VALUE", /* 38 */
60: "PRINTF: ARG COUNT MISMATCH", /* 39 */
61: "PRINTF: MORE THAN 10 ARGS", /* 40 */
62: "LINE TOO LONG FOR STRIP PRINTER", /* 41 */
63: "MOV REQUIRES 3 LINE #'s SPACING IS OPTIONAL", /*42*/
64: "BAD NAME OR LINE NUMBER AT BEGINNING OF SUBROUTINE", /* 43 */
65: "ELSE WITH NO IF", /* 44 */
66: "ENDIF WITH NO IF", /* 45 */
67: "GOTO NOT ALLOWED INSIDE STRUCTURED 'IF'", /* 46 */
68: "BREAK OR CONTINUE WITH NO FOR IN PROGRESS", /* 47 */
69: "FOR WITHOUT MATCHING NEXT", /* 48 */
70: #ifdef STRINGS
71: "STRING VARIABLE IN NUMERICAL EXPR.", /* 49 */
72: "NON-STRING IN STRING ASSIGNMENT", /* 50 */
73: "NUMERIC IN STRING EXPRESSION", /* 51 */
74: "INVALID STRING OPERATOR", /* 52 */
75: "CANNOT COMPARE STRING WITH NUM. TYPES", /* 53 */
76: "UNKNOWN STRING FUNCTION", /* 54 */
77: "OUT OF STRING RANGE", /* 55 */
78: #else
79: 0, /* 49 */
80: 0, /* 50 */
81: 0, /* 51 */
82: 0, /* 52 */
83: 0, /* 53 */
84: 0, /* 54 */
85: 0, /* 55 */
86: #endif
87: "FACTORIAL NEG. OR TOO LARGE", /* 56 */
88: "SEEK: SYNTAX ERR.", /* 57 */
89: "SEEK FAILED", /* 58 */
90: "ILLEGAL SEEK MODE", /* 59 */
91: "REWIND: SYNTAX ERR.", /* 60 */
92: };
93: #endif
94:
95: /*
96: *
97: * //////// TEST SET AND INSTRUMENT ERRORS ////////
98: */
99: /* "MISSING ' DELIMITER BEFORE BUS ADDR", 100 */
100: /* "PS: VOLTAGE OUT OF RANGE", 101 */
101: /* "PS: CURRENT OUT OF RANGE", 102 */
102: /* "PS: OVERVOLTAGE OUT OF RANGE", 103 */
103: /* "RELAY ERR", 104 */
104: /* "RELAY: INVALID FUNC.", 105 */
105: /* "RELAY: INVALID NUMBER", 106 */
106: /* "DVM: INVALID MODE", 107 */
107: /* "DVM: INVALID RANGE", 108 */
108: /* "LODSET: IMPROPER NUMBER OF ARGUMENTS", 109 */
109: /* "LODSET: IMPROPER MODE", 110 */
110: /* "LODSET: UNABLE TO SET LOAD", 111 */
111:
112: error(line,num)
113: {
114: error2(line,num,'\n');
115: }
116:
117: error2(line,num,c)
118: char c;
119: int line,num;
120: {
121: #ifndef LSX
122: char *msgadr;
123:
124: msgadr = mesg[num];
125: #endif
126:
127: if(line != 0)
128: #ifdef LSX
129: printf("ERROR #%d, LINE %d.\n",num,line);
130: #endif
131: #ifndef LSX
132: printf("ERROR LINE %d: %s%c",line,msgadr,c);
133: #endif
134: else
135: #ifdef LSX
136: printf("ERROR #%d.\n",num);
137: #endif
138: #ifndef LSX
139: printf("ERROR %s%c",msgadr,c);
140: #endif
141: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.