File psl-1983/3-1/tests/mini-type-errors.red artifact 5a0db4ac3a part of check-in d9e362f11e


% MINI-TYPE-ERRORS.RED

% Almost identical, just faked StdError and Bldmsg

procedure TypeError(Offender, Fn, Typ);
  <<Errorheader();
    Prin2 "An attempt was made to do ";
    prin1 Fn;
    prin2 " on `";
    prin1 Offender;
    prin2 "', which is not ";
    print Typ;
    quit; 
>>;

procedure UsageTypeError(Offender, Fn, Typ, Usage);
<<Errorheader();
    Prin2 "An attempt was made to use ";
    prin1 Offender;
    Prin2 " as ";
    Prin1 Usage; 
    prin2 " in `";
    prin1 Fn;
    prin2 "`, where ";
    prin1 Typ;
    prin2t " is needed";
    quit;
>>;

procedure IndexError(Offender, Fn);
    UsageTypeError(Offender, Fn, "an integer", "an index");

procedure NonPairError(Offender, Fn);
    TypeError(Offender, Fn, "a pair");

procedure NonIdError(Offender, Fn);
    TypeError(Offender, Fn, "an identifier");

procedure NonNumberError(Offender, Fn);
    TypeError(Offender, Fn, "a number");

procedure NonIntegerError(Offender, Fn);
    TypeError(Offender, Fn, "an integer");

procedure NonPositiveIntegerError(Offender, Fn);
    TypeError(Offender, Fn, "a non-negative integer");

procedure NonCharacterError(Offender, Fn);
    TypeError(Offender, Fn, "a character");

procedure NonStringError(Offender, Fn);
    TypeError(Offender, Fn, "a string");

procedure NonVectorError(Offender, Fn);
    TypeError(Offender, Fn, "a vector");

procedure NonWords(Offender, Fn);
    TypeError(Offender, Fn, "a words vector");

procedure NonSequenceError(Offender, Fn);
    TypeError(Offender, Fn, "a sequence");

procedure NonIOChannelError(Offender, Fn);
    TypeError(Offender, Fn, "a legal I/O channel");

End;




REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]