Mercurial > octave

comparison libinterp/parse-tree/separator-list.h @ 33398:6714a426f484

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new nonterminal for storing lists of separator tokens in the parser * separator-list.h: New file. * libinterp/parse-tree/module.mk: Update. * parse.h, oct-parse.yy (sep_list_type): New nonterminal type. (sep_no_nl, opt_sep_no_nl, nl, opt_nl, sep, opt_sep): Declare as sep_list_type instead of punct_type. Update rules to create separator list objects instead of returning characters. In rules that use them, delete as yet unsaved separator_list objects. (punct_type): Delete now unused nonterminal type. (base_parser::set_stmt_print_flag, base_parser::append_statement_list): New overloads that accept separator token and separator_list objects. (base_parser::append_function_def_list): Accept separator_list instead of char. (base_parser::make_try_command): Update to use separator list instead of character.
author John W. Eaton <jwe@octave.org>
date Fri, 12 Apr 2024 14:52:31 -0400
parents
children
comparison
equal deleted inserted replaced
33397:b4c4f0d65b8a 33398:6714a426f484
1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 2024 The Octave Project Developers
4 //
5 // See the file COPYRIGHT.md in the top-level directory of this
6 // distribution or <https://octave.org/copyright/>.
7 //
8 // This file is part of Octave.
9 //
10 // Octave is free software: you can redistribute it and/or modify it
11 // under the terms of the GNU General Public License as published by
12 // the Free Software Foundation, either version 3 of the License, or
13 // (at your option) any later version.
14 //
15 // Octave is distributed in the hope that it will be useful, but
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 // GNU General Public License for more details.
19 //
20 // You should have received a copy of the GNU General Public License
21 // along with Octave; see the file COPYING. If not, see
22 // <https://www.gnu.org/licenses/>.
23 //
24 ////////////////////////////////////////////////////////////////////////
25
26 #if ! defined (octave_separator_list_h)
27 #define octave_separator_list_h 1
28
29 #include "octave-config.h"
30
31 #include <list>
32
33 #include "token.h"
34
35 OCTAVE_BEGIN_NAMESPACE(octave)
36
37 class separator_list : public std::list<token>
38 {
39 public:
40
41 separator_list (const token& tok)
42 {
43 append (tok);
44 }
45
46 OCTAVE_DEFAULT_CONSTRUCT_COPY_MOVE_DELETE (separator_list)
47
48 separator_list *append (const token& tok)
49 {
50 push_back (tok);
51
52 return this;
53 }
54
55 int first_sep_char () const
56 {
57 token tok = front ();
58
59 return tok.token_id ();
60 }
61
62 separator_list * dup () const
63 {
64 return new separator_list (*this);
65 }
66 };
67
68 OCTAVE_END_NAMESPACE(octave)
69
70 #endif