octave-nkf: libinterp/parse-tree/pt.h annotate

annotate libinterp/parse-tree/pt.h @ 20624:7c0e10f035bd

Extend parser to accept binary constants that begin with '0b' or '0B'. * NEWS: Announce change: * lex.ll: Define NUMBIN to be 0[bB] followed by 0,1, or '_'. Define NUMBER to be NUMREAL|NUMHEX|NUMBIN. *lex.ll (looks_like_bin): New function to detect 0[bB] prefix. *lex.ll (handle_numbe): Call looks_like_bin() and if found then convert binary string to double. * parser.tst: Add tests for new behavior.

author	Rik <rik@octave.org>
date	Fri, 09 Oct 2015 18:52:58 -0700
parents	4197fc428c7d
children

rev	line source
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	1 /*
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	2
19731 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 17822 diff changeset	3 Copyright (C) 1996-2015 John W. Eaton
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	4
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	6
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5388 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5388 diff changeset	10 option) any later version.
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	11
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	15 for more details.
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	16
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5388 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5388 diff changeset	19 <http://www.gnu.org/licenses/>.
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	20
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	21 */
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	22
17822 ebb3ef964372 maint: Use common #define syntax "octave_filename_h" in h_files. Rik <rik@octave.org> parents: 17744 diff changeset	23 #if !defined (octave_pt_h)
ebb3ef964372 maint: Use common #define syntax "octave_filename_h" in h_files. Rik <rik@octave.org> parents: 17744 diff changeset	24 #define octave_pt_h 1
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	25
2991 fc751d2a99fd [project @ 1997-05-16 21:00:48 by jwe] jwe parents: 2987 diff changeset	26 #include <string>
fc751d2a99fd [project @ 1997-05-16 21:00:48 by jwe] jwe parents: 2987 diff changeset	27
8950 d865363208d6 include <iosfwd> instead of <iostream> in header files John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	28 #include <iosfwd>
2991 fc751d2a99fd [project @ 1997-05-16 21:00:48 by jwe] jwe parents: 2987 diff changeset	29
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4192 diff changeset	30 class octave_function;
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	31 class tree_walker;
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	32
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	33 // Base class for the parse tree.
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	34
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	35 class
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	36 tree
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	37 {
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	38 public:
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	39
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	40 tree (int l = -1, int c = -1)
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	41 : line_num (l), column_num (c), bp (false) { }
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	42
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	43 virtual ~tree (void) { }
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	44
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	45 virtual int line (void) const { return line_num; }
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	46
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	47 virtual int column (void) const { return column_num; }
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	48
8843 b9ce57a309a3 don't store breakpoint info in tree_statement object John W. Eaton <jwe@octave.org> parents: 8658 diff changeset	49 void line (int l) { line_num = l; }
b9ce57a309a3 don't store breakpoint info in tree_statement object John W. Eaton <jwe@octave.org> parents: 8658 diff changeset	50
b9ce57a309a3 don't store breakpoint info in tree_statement object John W. Eaton <jwe@octave.org> parents: 8658 diff changeset	51 void column (int c) { column_num = c; }
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	52
16627 de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	53 void set_location (int l, int c)
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	54 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	55 line_num = l;
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	56 column_num = c;
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	57 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	58
8843 b9ce57a309a3 don't store breakpoint info in tree_statement object John W. Eaton <jwe@octave.org> parents: 8658 diff changeset	59 virtual void set_breakpoint (void) { bp = true; }
b9ce57a309a3 don't store breakpoint info in tree_statement object John W. Eaton <jwe@octave.org> parents: 8658 diff changeset	60
b9ce57a309a3 don't store breakpoint info in tree_statement object John W. Eaton <jwe@octave.org> parents: 8658 diff changeset	61 virtual void delete_breakpoint (void) { bp = false; }
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	62
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	63 bool is_breakpoint (void) const { return bp; }
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	64
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	65 std::string str_print_code (void);
2991 fc751d2a99fd [project @ 1997-05-16 21:00:48 by jwe] jwe parents: 2987 diff changeset	66
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	67 virtual void accept (tree_walker& tw) = 0;
3772 e44ffad3d06c [project @ 2001-02-03 06:23:38 by jwe] jwe parents: 3770 diff changeset	68
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	69 private:
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	70
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	71 // The input line and column where we found the text that was
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	72 // eventually converted to this tree node.
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	73 int line_num;
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	74 int column_num;
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	75
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	76 // Breakpoint flag.
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7818 diff changeset	77 bool bp;
3770 bf6116ca10eb [project @ 2001-02-02 02:21:40 by jwe] jwe parents: 3523 diff changeset	78
2987 ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	79 // No copying!
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	80
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	81 tree (const tree&);
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	82
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	83 tree& operator = (const tree&);
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	84 };
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	85
ae20b3f37f5e [project @ 1997-05-16 07:05:15 by jwe] jwe parents: diff changeset	86 #endif

Mercurial > octave-nkf

annotate libinterp/parse-tree/pt.h @ 20624:7c0e10f035bd