Mercurial > hg > octave-avbm

comparison src/lex.l @ 4248:eef64f3f9a4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-12-31 00:00:20 by jwe]
author jwe
date Tue, 31 Dec 2002 00:00:20 +0000
parents 71209cc7ad4a
children 4e2d2516da22
comparison
equal deleted inserted replaced
4247:fc9a075d10fb 4248:eef64f3f9a4c
790 %} 790 %}
791 791
792 . { 792 . {
793 // EOF happens here if we are parsing nested functions. 793 // EOF happens here if we are parsing nested functions.
794 794
795 if (yytext[0] != EOF) 795 unput (yytext[0]);
796
797 int c = yyinput ();
798
799 if (c != EOF)
796 { 800 {
797 current_input_column++; 801 current_input_column++;
798 802
799 error ("invalid character `%s' (ASCII %d) near line %d, column %d", 803 error ("invalid character `%s' (ASCII %d) near line %d, column %d",
800 undo_string_escape (yytext[0]), static_cast<int> (yytext[0]), 804 undo_string_escape (static_cast<char> (c)), c,
801 input_line_number, current_input_column); 805 input_line_number, current_input_column);
802 806
803 return LEXICAL_ERROR; 807 return LEXICAL_ERROR;
804 } 808 }
805 else 809 else