63 lines
1.5 KiB
Modula-2
63 lines
1.5 KiB
Modula-2
// DEFINITION OF ERROR CODES AS MACRO
|
|
// General Errors =================================================================
|
|
#define _SYNTAX_ERROR_ 1
|
|
#define _MA_ERROR_ 2
|
|
#define _GO_ERROR_ 3
|
|
#define _NESTING_ERROR_ 4
|
|
#define _STACK_ERROR_ 5
|
|
#define _MEMORY_ERROR_ 6
|
|
#define _ARG_ERROR_ 7
|
|
#define _DIM_ERROR_ 8
|
|
#define _RANGE_ERROR_ 9
|
|
|
|
// Miscellaneous Errors ===========================================================
|
|
#define _NONREAL_ERROR_ 11
|
|
|
|
// Communication Errors ===========================================================
|
|
#define _COM_ERROR_ 20
|
|
#define _TRANSMIST_ERROR_ 21
|
|
#define _RECEIVE_ERROR_ 22
|
|
|
|
// Other Errors ==================================================================
|
|
/*
|
|
28: Too Much Data
|
|
|
|
33: For without Next
|
|
34: Next without For
|
|
35: While w/o W.End
|
|
36: W.End w/o While
|
|
37: Do w/o LpWhile
|
|
38: LpWhile w/o Do
|
|
39: Not Loop ERROR
|
|
40: Division By Zero
|
|
41: Undefined Label
|
|
42: Not enough Memory
|
|
43: String Too Long
|
|
44: No Matrix array
|
|
45: Illegal Ary size
|
|
46: No Prog found
|
|
47: Too many SubProg
|
|
48: If without IfEnd
|
|
49: Then without If
|
|
50: Case w/o Switch
|
|
51: Default w/o Swtch
|
|
52: Switch w/o S.End
|
|
53: S.End w/o Switch
|
|
54: Can't find file
|
|
55: Illegal Element
|
|
56: Already Opened
|
|
57: Com Not Opened
|
|
58: Type Mismatched
|
|
59: Out of Domain
|
|
60: Undefined Var.
|
|
61: Undefined Func.
|
|
62: Not Supported
|
|
63: Exceed Var. limit
|
|
64: Duplicated Def.
|
|
65: Address Align ERR
|
|
66: Not met Accuracy
|
|
70: Try w/o Except
|
|
71: Except w/o Try
|
|
72: TryEnd w/o Try
|
|
*/
|