Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0172/utlcod.req
There is 1 other file named utlcod.req in the archive. Click here to see a list.
!	Require file "UTLCOD.REQ":
!	Definitions of error codes for the BLISS Language Formatter.
!


MACRO
    next_error (a) =
	LITERAL a = _next_error_;
	%ASSIGN (_next_error_, _next_error_ + 1);
	%;

COMPILETIME
    _next_error_ = 0;
next_error (er_tok);				! Token too long for line.
next_error (er_pthen);				! Missing '%THEN'.

next_error (er_eof);				! Read past end-of-file
next_error (er_ill_sym);			! Illegal symbol in text
next_error (er_quote);				! Incomplete quoted string
next_error (er_rparen);				! Missing right parenthesis
next_error (er_pmodule);			! Incorrect MODULE format
next_error (er_colon);				! Expected colon missing
next_error (er_block_start);			! Malformed block
next_error (er_end_block);			! Block END missing
next_error (er_plit_rparen);			! Right paren missing in PLIT
next_error (er_plit_body);			! PLIT body incorrect
next_error (er_equal);				! Expected '=' sign missing.
next_error (er_string);				! Error in string syntax.
next_error (er_name);				! Expected name is missing.
next_error (er_formal_list);			! Expected param. list is missing.
next_error (er_macro_body);			! Syntax of macro body is bad.
next_error (er_rbracket);			! Missing right bracket.
next_error (er_end_macro);			! '%' character missing.
next_error (er_name_list);			! Name list improperly closed.
next_error (er_semi_decl);			! ';' missing in declaration.
next_error (er_inv_bracket);			! Invalid use of brackets.
next_error (er_primary);			! Primary missing.
next_error (er_then);				! 'THEN' missing.
next_error (er_of);				! 'OF' missing.
next_error (er_set);				! 'SET' missing.
next_error (er_tes);				! 'TES' missing.
next_error (er_to);				! 'TO' missing.
next_error (er_from);				! 'FROM' missing.
next_error (er_set_tes);			! Punctuation in SET...TES
next_error (er_do);				! 'DO' missing.
next_error (er_post_test);			! Expected WHILE/UNTIL missing.
next_error (er_file_spec);			! Bad file_spec string.
next_error (er_syn_def);			! Bad synonym definition.
next_error (er_stge_class);			! Storage class missing in 'psect' decl.
next_error (er_then_else);			! Dangling THEN or ELSE

LITERAL
    maxerr = _next_error_;

!++
!	Error severity codes:
!--

LITERAL
    warning = 1,
    serious = 2,
    fatal = 3;

!	End of require file 'UTLCOD.REQ'