Mercurial > octave-nkf

comparison src/lex.l @ 4612:d44675070f1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-11-14 19:49:56 by jwe]
author jwe
date Fri, 14 Nov 2003 19:50:38 +0000
parents 22ca4cc02525
children d1786f2d8a3c
comparison
equal deleted inserted replaced
4611:c76a32c6f90c 4612:d44675070f1a
169 static bool next_token_is_bin_op (bool spc_prev); 169 static bool next_token_is_bin_op (bool spc_prev);
170 static bool next_token_is_postfix_unary_op (bool spc_prev); 170 static bool next_token_is_postfix_unary_op (bool spc_prev);
171 static std::string strip_trailing_whitespace (char *s); 171 static std::string strip_trailing_whitespace (char *s);
172 static void handle_number (void); 172 static void handle_number (void);
173 static int handle_string (char delim, int text_style = 0); 173 static int handle_string (char delim, int text_style = 0);
174 static char handle_close_bracket (bool spc_gobbled, char bracket_type); 174 static int handle_close_bracket (bool spc_gobbled, int bracket_type);
175 static int handle_identifier (void); 175 static int handle_identifier (void);
176 static bool have_continuation (bool trailing_comments_ok = true); 176 static bool have_continuation (bool trailing_comments_ok = true);
177 static bool have_ellipsis_continuation (bool trailing_comments_ok = true); 177 static bool have_ellipsis_continuation (bool trailing_comments_ok = true);
178 static void scan_for_comments (const char *); 178 static void scan_for_comments (const char *);
179 static yum_yum eat_whitespace (void); 179 static yum_yum eat_whitespace (void);
2224 yyunput (c0, yytext); 2224 yyunput (c0, yytext);
2225 2225
2226 return retval; 2226 return retval;
2227 } 2227 }
2228 2228
2229 static char 2229 static int
2230 handle_close_bracket (bool spc_gobbled, char bracket_type) 2230 handle_close_bracket (bool spc_gobbled, int bracket_type)
2231 { 2231 {
2232 char retval = bracket_type; 2232 int retval = bracket_type;
2233 2233
2234 if (! nesting_level.none ()) 2234 if (! nesting_level.none ())
2235 { 2235 {
2236 nesting_level.remove (); 2236 nesting_level.remove ();
2237 lexer_flags.bracketflag--; 2237 lexer_flags.bracketflag--;