Mercurial > octave-nkf
view libinterp/parse-tree/pt-jump.cc @ 20623:e34692daf663
Extend parser to accept '_' in numbers.
* NEWS: Announce change.
* lex.ll: Define NUMBER to be a NUMREAL (real number) or NUMHEX (hex number).
Define NUMREAL to begin with a digit (D) followed by more digits or an '_'.
Define NUMHEX to begin with 0[xX], a hex digit (a-fA-F0-9), followed by '_' or
more hex digits.
Define EXPON to have a digit (D) followed by more digits or an '_'.
* lex.ll (octave_base_lexer::handle_number): Strip out any underscores before
processing number with sscanf.
* parser.tst: Add tests for new behavior.
author | Rik <rik@octave.org> |
---|---|
date | Mon, 05 Oct 2015 14:05:58 -0700 |
parents | 4197fc428c7d |
children |
line wrap: on
line source
/* Copyright (C) 1996-2015 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include "error.h" #include "oct-obj.h" #include "pt-bp.h" #include "pt-jump.h" #include "pt-walk.h" class octave_value_list; // Break. // Nonzero means we're breaking out of a loop or function body. int tree_break_command::breaking = 0; tree_command * tree_break_command::dup (symbol_table::scope_id, symbol_table::context_id) const { return new tree_break_command (line (), column ()); } void tree_break_command::accept (tree_walker& tw) { tw.visit_break_command (*this); } // Continue. // Nonzero means we're jumping to the end of a loop. int tree_continue_command::continuing = 0; tree_command * tree_continue_command::dup (symbol_table::scope_id, symbol_table::context_id) const { return new tree_continue_command (line (), column ()); } void tree_continue_command::accept (tree_walker& tw) { tw.visit_continue_command (*this); } // Return. // Nonzero means we're returning from a function. int tree_return_command::returning = 0; tree_command * tree_return_command::dup (symbol_table::scope_id, symbol_table::context_id) const { return new tree_return_command (line (), column ()); } void tree_return_command::accept (tree_walker& tw) { tw.visit_return_command (*this); }