ruberon/source/ERRORS.ob07

MODULE ERRORS;

IMPORT C := CONSOLE, UTILS IN "./utils/UTILS.ob07";


PROCEDURE HintMsg* (name: ARRAY OF CHAR; line, col, hint: INTEGER);
    BEGIN
        IF hint = 0 THEN
            C.String("  hint ("); C.Int(line); C.String(":"); C.Int(col); C.String(") ");
            C.String("variable '"); C.String(name); C.StringLn("' never used")
        END
    END HintMsg;


PROCEDURE WarningMsg* (line, col, warning: INTEGER);
    BEGIN
        C.String("  warning ("); C.Int(line); C.String(":"); C.Int(col); C.String(") ");
        CASE warning OF
        |0: C.StringLn("passing a string value as a fixed array")
        |1: C.StringLn("endless FOR loop")
        |2: C.StringLn("identifier too long")
        END
    END WarningMsg;


PROCEDURE ErrorMsg* (fname: ARRAY OF CHAR; line, col, errno: INTEGER);
    VAR
        str: ARRAY 80 OF CHAR;

    BEGIN
        C.Ln;
        C.String("  error  ("); C.Int(errno); C.String(") ("); C.Int(line); C.String(":"); C.Int(col); C.String(") ");

        CASE errno OF
        |  1: str := "missing 'H' or 'X'"
        |  2: str := "missing scale"
        |  3: str := "unclosed string"
        |  4: str := "illegal character"
        |  5: str := "string too long"

        |  7: str := "number too long"
        |  8..12: str := "number too large"
        | 13: str := "real numbers not supported"

        | 21: str := "'MODULE' expected"
        | 22: str := "identifier expected"
        | 23: str := "module name does not match file name"
        | 24: str := "';' expected"
        | 25: str := "identifier does not match module name"
        | 26: str := "'.' expected"
        | 27: str := "'END' expected"
        | 28: str := "',', ';' or ':=' expected"
        | 29: str := "module not found"
        | 30: str := "multiply defined identifier"
        | 31: str := "recursive import"
        | 32: str := "'=' expected"
        | 33: str := "')' expected"
        | 34: str := "syntax error in expression"
        | 35: str := "'}' expected"
        | 36: str := "incompatible operand"
        | 37: str := "incompatible operands"
        | 38: str := "'RETURN' expected"
        | 39: str := "integer overflow"
        | 40: str := "floating point overflow"
        | 41: str := "not enough floating point registers; simplify expression"
        | 42: str := "out of range 0..255"
        | 43: str := "expression is not an integer"
        | 44: str := "out of range 0..MAXSET"
        | 45: str := "division by zero"
        | 46: str := "IV out of range"
        | 47: str := "'OF' or ',' expected"
        | 48: str := "undeclared identifier"
        | 49: str := "type expected"
        | 50: str := "recursive type definition"
        | 51: str := "illegal value of constant"
        | 52: str := "not a record type"
        | 53: str := "':' expected"
        | 54: str := "need to import SYSTEM"
        | 55: str := "pointer type not defined"
        | 56: str := "out of range 0..MAXSET"
        | 57: str := "'TO' expected"
        | 58: str := "not a record type"
        | 59: str := "this expression cannot be a procedure"
        | 60: str := "identifier does not match procedure name"
        | 61: str := "illegally marked identifier"
        | 62: str := "expression should be constant"
        | 63: str := "not enough RAM"
        | 64: str := "'(' expected"
        | 65: str := "',' expected"
        | 66: str := "incompatible parameter"
        | 67: str := "'OF' expected"
        | 68: str := "type expected"
        | 69: str := "result type of procedure is not a basic type"
        | 70: str := "import not supported"
        | 71: str := "']' expected"
        | 72: str := "expression is not BOOLEAN"
        | 73: str := "not a record"
        | 74: str := "undefined record field"
        | 75: str := "not an array"
        | 76: str := "expression is not an integer"
        | 77: str := "not a pointer"
        | 78: str := "type guard not allowed"
        | 79: str := "not a type"
        | 80: str := "not a record type"
        | 81: str := "not a pointer type"
        | 82: str := "type guard not allowed"
        | 83: str := "index out of range"
        | 84: str := "dimension too large"
        | 85: str := "procedure must have level 0"
        | 86: str := "not a procedure"
        | 87: str := "incompatible expression (RETURN)"
        | 88: str := "'THEN' expected"
        | 89: str := "'DO' expected"
        | 90: str := "'UNTIL' expected"
        | 91: str := "incompatible assignment"
        | 92: str := "procedure call of a function"
        | 93: str := "not a variable"
        | 94: str := "read only variable"
        | 95: str := "invalid type of expression (CASE)"
        | 96: str := "':=' expected"
        | 97: str := "not INTEGER variable"
        | 98: str := "illegal value of constant (0)"
        | 99: str := "incompatible label"
        |100: str := "multiply defined label"
        |101: str := "too large parameter of WCHR"
        |102: str := "label expected"
        |103: str := "illegal value of constant"
        |104: str := "type too large"
        |105: str := "access to intermediate variables not allowed"
        |106: str := "qualified identifier expected"
        |107: str := "too large parameter of CHR"
        |108: str := "a variable or a procedure expected"
        |109: str := "expression should be constant"
        |110: str := "out of range 0..65535"
        |111: str := "record [noalign] cannot have a base type"
        |112: str := "record [noalign] cannot be a base type"
        |113: str := "result type of procedure should not be REAL"
        |114: str := "identifiers 'lib_init' and 'version' are reserved"
        |115: str := "recursive constant definition"
        |116: str := "procedure too deep nested"
        |117: str := "string expected"
        |118: str := "'$END', '$ELSE' or '$ELSIF' without '$IF'"
        |119: str := "'$IF', '$ELSIF', '$ELSE' or '$END' expected"
        |120: str := "too many formal parameters"
        |121: str := "multiply defined handler"
        |122: str := "bad divisor"
        |123: str := "illegal flag"
        |124: str := "unknown flag"
        |125: str := "flag not supported"
        |126: str := "type of formal parameter should not be REAL"
        END;
        C.StringLn(str);
        C.String("  file:  ");  C.StringLn(fname);
        UTILS.Exit(1)
    END ErrorMsg;


PROCEDURE Error1 (s1: ARRAY OF CHAR);
    BEGIN
        C.Ln;
        C.StringLn(s1);
        UTILS.Exit(1)
    END Error1;


PROCEDURE Error3 (s1, s2, s3: ARRAY OF CHAR);
    BEGIN
        C.Ln;
        C.String(s1); C.String(s2); C.StringLn(s3);
        UTILS.Exit(1)
    END Error3;


PROCEDURE Error5 (s1, s2, s3, s4, s5: ARRAY OF CHAR);
    BEGIN
        C.Ln;
        C.String(s1); C.String(s2); C.String(s3); C.String(s4); C.StringLn(s5);
        UTILS.Exit(1)
    END Error5;


PROCEDURE WrongRTL* (ProcName: ARRAY OF CHAR);
    BEGIN
        Error5("procedure ", UTILS.RTL_NAME, ".", ProcName, " not found")
    END WrongRTL;


PROCEDURE BadParam* (param: ARRAY OF CHAR);
    BEGIN
        Error3("bad parameter: ", param, "")
    END BadParam;


PROCEDURE FileNotFound* (Path, Name, Ext: ARRAY OF CHAR);
    BEGIN
        Error5("file ", Path, Name, Ext, " not found")
    END FileNotFound;


PROCEDURE Error* (n: INTEGER);
    BEGIN
        CASE n OF
        |201: Error1("writing file error")
        |202: Error1("too many relocations")
        |203: Error1("size of program is too large")
        |204: Error1("size of variables is too large")
        |205: Error1("not enough parameters")
        |206: Error1("bad parameter <target>")
        |207: Error3('inputfile name extension must be "', UTILS.FILE_EXT, '"')
        |208: Error1("not enough RAM")
        END
    END Error;


END ERRORS.