Mercurial > octave
view libinterp/corefcn/ls-oct-text.h @ 31730:610a85b0ff62
use interpreter::feval instead of global feval function
* __eigs__.cc, bsxfun.cc, call-stack.cc, cellfun.cc, daspk.cc,
dasrt.cc, dassl.cc, data.cc, defun.cc, gh-manager.cc, graphics.cc,
gtk-manager.cc, gtk-manager.h, hook-fcn.cc, input.cc, interpreter.cc,
ls-mat5.cc, lsode.cc, mex.cc, pr-output.cc, quad.cc, quadcc.cc,
variables.cc, __init_fltk__.cc, __init_gnuplot__.cc, __ode15__.cc,
audiodevinfo.cc, cdef-method.cc, cdef-package.cc, cdef-property.cc,
ov-class.cc, ov-java.cc, ov-oncleanup.cc, op-class.cc, pt-assign.cc,
pt-eval.cc, pt-id.cc:
Change all uses of global feval function to use interpreter::feval
instead. If necessary, use __get_interpreter__ to access global
interpreter object.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 12 Jan 2023 10:22:04 -0500 |
parents | 597f3ee61a48 |
children | 2e484f9f1f18 |
line wrap: on
line source
//////////////////////////////////////////////////////////////////////// // // Copyright (C) 2003-2023 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_ls_oct_text_h) #define octave_ls_oct_text_h 1 #include "octave-config.h" #include <limits> #include <sstream> #include <string> #include "str-vec.h" #include "ls-ascii-helper.h" class octave_value; // Flag for cell elements #define CELL_ELT_TAG "<cell-element>" // Used when converting Inf to something that gnuplot can read. #if ! defined (OCT_RBV) # define OCT_RBV (std::numeric_limits<double>::max () / 100.0) #endif extern OCTINTERP_API std::string extract_keyword (std::istream& is, const char *keyword, const bool next_only = false); extern OCTINTERP_API std::string read_text_data (std::istream& is, const std::string& filename, bool& global, octave_value& tc, octave_idx_type count, const bool do_name_validation = true); extern OCTINTERP_API bool save_text_data (std::ostream& os, const octave_value& val_arg, const std::string& name, bool mark_global, int precision); extern OCTINTERP_API bool save_text_data_for_plotting (std::ostream& os, const octave_value& t, const std::string& name); extern OCTINTERP_API bool save_three_d (std::ostream& os, const octave_value& t, bool parametric = false); // Match KEYWORD on stream IS, placing the associated value in VALUE, // returning TRUE if successful and FALSE otherwise. // // Input should look something like: // // [%#][ \t]*keyword[ \t]*int-value.*\n template <typename T> bool extract_keyword (std::istream& is, const char *keyword, T& value, const bool next_only = false) { bool status = false; value = T (); char c; while (is.get (c)) { if (c == '%' || c == '#') { std::ostringstream buf; while (is.get (c) && (c == ' ' || c == '\t' || c == '%' || c == '#')) ; // Skip whitespace and comment characters. if (isalpha (c)) buf << c; while (is.get (c) && isalpha (c)) buf << c; std::string tmp = buf.str (); bool match = (tmp.substr (0, strlen (keyword)) == keyword); if (match) { while (is.get (c) && (c == ' ' || c == '\t' || c == ':')) ; // Skip whitespace and the colon. is.putback (c); if (c != '\n' && c != '\r') is >> value; if (is) status = true; octave::skip_until_newline (is, false); break; } else if (next_only) break; } } return status; } template <typename T> bool extract_keyword (std::istream& is, const std::string& kw, T& value, const bool next_only = false) { return extract_keyword (is, kw.c_str (), value, next_only); } // Match one of the elements in KEYWORDS on stream IS, placing the // matched keyword in KW and the associated value in VALUE, // returning TRUE if successful and FALSE otherwise. // // Input should look something like: // // [%#][ \t]*keyword[ \t]*int-value.*\n template <typename T> bool extract_keyword (std::istream& is, const string_vector& keywords, std::string& kw, T& value, const bool next_only = false) { bool status = false; kw = ""; value = 0; char c; while (is.get (c)) { if (c == '%' || c == '#') { std::ostringstream buf; while (is.get (c) && (c == ' ' || c == '\t' || c == '%' || c == '#')) ; // Skip whitespace and comment characters. if (isalpha (c)) buf << c; while (is.get (c) && isalpha (c)) buf << c; std::string tmp = buf.str (); for (int i = 0; i < keywords.numel (); i++) { int match = (tmp == keywords[i]); if (match) { kw = keywords[i]; while (is.get (c) && (c == ' ' || c == '\t' || c == ':')) ; // Skip whitespace and the colon. is.putback (c); if (c != '\n' && c != '\r') is >> value; if (is) status = true; octave::skip_until_newline (is, false); return status; } } if (next_only) break; } } return status; } #endif