Mercurial > octave
view libinterp/parse-tree/pt-cmd.h @ 31195:776446acdc7b
pkg.m: Show URL of source tarball(s) in verbose mode.
* scripts/pkg/pkg.m: If downloading source tarballs with the "-forge" option,
show the URL where they are downloaded from if verbose mode is on.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Fri, 19 Aug 2022 08:54:05 +0200 |
parents | 796f54d4ddbf |
children | e88a07dec498 |
line wrap: on
line source
//////////////////////////////////////////////////////////////////////// // // Copyright (C) 1994-2022 The Octave Project Developers // // See the file COPYRIGHT.md in the top-level directory of this // distribution or <https://octave.org/copyright/>. // // 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 // <https://www.gnu.org/licenses/>. // //////////////////////////////////////////////////////////////////////// #if ! defined (octave_pt_cmd_h) #define octave_pt_cmd_h 1 #include "octave-config.h" #include <string> #include "ov-fcn.h" #include "pt.h" #include "pt-bp.h" #include "pt-walk.h" namespace octave { // A base class for commands. class tree_command : public tree { public: tree_command (int l = -1, int c = -1) : tree (l, c) { } // No copying! tree_command (const tree_command&) = delete; tree_command& operator = (const tree_command&) = delete; virtual ~tree_command (void) = default; }; // No-op. class tree_no_op_command : public tree_command { public: tree_no_op_command (const std::string& cmd = "no_op", bool e = false, int l = -1, int c = -1) : tree_command (l, c), m_eof (e), m_orig_cmd (cmd) { } // No copying! tree_no_op_command (const tree_no_op_command&) = delete; tree_no_op_command& operator = (const tree_no_op_command&) = delete; ~tree_no_op_command (void) = default; void accept (tree_walker& tw) { tw.visit_no_op_command (*this); } bool is_end_of_fcn_or_script (void) const { return (m_orig_cmd == "endfunction" || m_orig_cmd == "endscript"); } bool is_end_of_file (void) const { return m_eof; } std::string original_command (void) { return m_orig_cmd; } private: bool m_eof; std::string m_orig_cmd; }; // Function definition. class tree_function_def : public tree_command { public: tree_function_def (octave_function *f, int l = -1, int c = -1) : tree_command (l, c), m_fcn (f) { } // No copying! tree_function_def (const tree_function_def&) = delete; tree_function_def& operator = (const tree_function_def&) = delete; ~tree_function_def (void) = default; void accept (tree_walker& tw) { tw.visit_function_def (*this); } octave_value function (void) { return m_fcn; } private: octave_value m_fcn; tree_function_def (const octave_value& v, int l = -1, int c = -1) : tree_command (l, c), m_fcn (v) { } }; } #endif