ov-usr-fcn.h

Go to the documentation of this file.

////////////////////////////////////////////////////////////////////////
//
// Copyright (C) 1996-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_ov_usr_fcn_h)
#define octave_ov_usr_fcn_h 1
 
#include "octave-config.h"
 
#include <string>
 
#include "comment-list.h"
#include "ovl.h"
#include "ov-fcn.h"
#include "ov-typeinfo.h"
#include "symscope.h"
#include "unwind-prot.h"
 
class string_vector;
 
class octave_value;
 
OCTAVE_BEGIN_NAMESPACE(octave)
 
class file_info;
class stack_frame;
class tree_parameter_list;
class tree_statement_list;
class tree_evaluator;
class tree_expression;
class tree_walker;
 
OCTAVE_END_NAMESPACE(octave)
 
class
octave_user_code : public octave_function
{
protected:
 
  octave_user_code (const std::string& fnm = "", const std::string& nm = "",
                    const octave::symbol_scope& scope = octave::symbol_scope (),
                    octave::tree_statement_list *cmds = nullptr,
                    const std::string& ds = "")
    : octave_function (nm, ds), m_scope (scope), m_file_name (fnm),
      m_t_parsed (static_cast<OCTAVE_TIME_T> (0)),
      m_t_checked (static_cast<OCTAVE_TIME_T> (0)),
      m_file_info (nullptr), m_cmd_list (cmds)
  {
    if (m_scope)
      m_scope.set_user_code (this);
  }
 
public:
 
  // No copying!
 
  octave_user_code (const octave_user_code& f) = delete;
 
  octave_user_code& operator = (const octave_user_code& f) = delete;
 
  ~octave_user_code (void);
 
  bool is_user_code (void) const { return true; }
 
  std::string get_code_line (std::size_t line);
 
  std::deque<std::string> get_code_lines (std::size_t line,
                                          std::size_t num_lines);
 
  void cache_function_text (const std::string& text,
                            const octave::sys::time& timestamp);
 
  octave::symbol_scope scope (void) { return m_scope; }
 
  void stash_fcn_file_name (const std::string& nm) { m_file_name = nm; }
 
  void mark_fcn_file_up_to_date (const octave::sys::time& t)
  { m_t_checked = t; }
 
  void stash_fcn_file_time (const octave::sys::time& t)
  {
    m_t_parsed = t;
    mark_fcn_file_up_to_date (t);
  }
 
  std::string fcn_file_name (void) const { return m_file_name; }
 
  octave::sys::time time_parsed (void) const { return m_t_parsed; }
 
  octave::sys::time time_checked (void) const { return m_t_checked; }
 
  virtual octave_value find_subfunction (const std::string&) const
  {
    return octave_value ();
  }
 
  virtual std::map<std::string, octave_value> subfunctions (void) const;
 
  octave::tree_statement_list * body (void) { return m_cmd_list; }
 
  octave_value dump (void) const;
 
protected:
 
  void get_file_info (void);
 
  // Our symbol table scope.
  octave::symbol_scope m_scope;
 
  // The name of the file we parsed.
  std::string m_file_name;
 
  // The time the file was parsed.
  octave::sys::time m_t_parsed;
 
  // The time the file was last checked to see if it needs to be
  // parsed again.
  octave::sys::time m_t_checked;
 
  // Cached text of function or script code with line offsets
  // calculated.
  octave::file_info *m_file_info;
 
  // The list of commands that make up the body of this function.
  octave::tree_statement_list *m_cmd_list;
};
 
// Scripts.
 
class
octave_user_script : public octave_user_code
{
public:
 
  octave_user_script (void);
 
  octave_user_script (const std::string& fnm, const std::string& nm,
                      const octave::symbol_scope& scope = octave::symbol_scope (),
                      octave::tree_statement_list *cmds = nullptr,
                      const std::string& ds = "");
 
  octave_user_script (const std::string& fnm, const std::string& nm,
                      const octave::symbol_scope& scope = octave::symbol_scope (),
                      const std::string& ds = "");
 
  // No copying!
 
  octave_user_script (const octave_user_script& f) = delete;
 
  octave_user_script& operator = (const octave_user_script& f) = delete;
 
  ~octave_user_script (void) = default;
 
  octave_function * function_value (bool = false) { return this; }
 
  octave_user_script * user_script_value (bool = false) { return this; }
 
  octave_user_code * user_code_value (bool = false) { return this; }
 
  // Scripts and user functions are both considered "scripts" because
  // they are written in Octave's scripting language.
 
  bool is_user_script (void) const { return true; }
 
  // We must overload the call method so that we call the proper
  // push_stack_frame method, which is overloaded for pointers to
  // octave_function, octave_user_function, and octave_user_script
  // objects.
 
  octave_value_list
  call (octave::tree_evaluator& tw, int nargout = 0,
        const octave_value_list& args = octave_value_list ());
 
  octave_value_list
  execute (octave::tree_evaluator& tw, int nargout = 0,
           const octave_value_list& args = octave_value_list ());
 
  void accept (octave::tree_walker& tw);
 
private:
 
  DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
};
 
// User-defined functions.
 
class
octave_user_function : public octave_user_code
{
public:
 
  octave_user_function (const octave::symbol_scope& scope = octave::symbol_scope (),
                        octave::tree_parameter_list *pl = nullptr,
                        octave::tree_parameter_list *rl = nullptr,
                        octave::tree_statement_list *cl = nullptr);
 
  // No copying!
 
  octave_user_function (const octave_user_function& fcn) = delete;
 
  octave_user_function& operator = (const octave_user_function& fcn) = delete;
 
  ~octave_user_function (void);
 
  octave_function * function_value (bool = false) { return this; }
 
  octave_user_function * user_function_value (bool = false) { return this; }
 
  octave_user_code * user_code_value (bool = false) { return this; }
 
  octave_user_function * define_param_list (octave::tree_parameter_list *t);
 
  octave_user_function * define_ret_list (octave::tree_parameter_list *t);
 
  void stash_fcn_location (int line, int col)
  {
    m_location_line = line;
    m_location_column = col;
  }
 
  int beginning_line (void) const { return m_location_line; }
  int beginning_column (void) const { return m_location_column; }
 
  void stash_fcn_end_location (int line, int col)
  {
    m_end_location_line = line;
    m_end_location_column = col;
  }
 
  int ending_line (void) const { return m_end_location_line; }
  int ending_column (void) const { return m_end_location_column; }
 
  void maybe_relocate_end (void);
 
  void stash_parent_fcn_scope (const octave::symbol_scope& ps);
 
  void stash_leading_comment (octave::comment_list *lc) { m_lead_comm = lc; }
 
  void stash_trailing_comment (octave::comment_list *tc) { m_trail_comm = tc; }
 
  std::string profiler_name (void) const;
 
  std::string parent_fcn_name (void) const
  {
    octave::symbol_scope pscope = parent_fcn_scope ();
 
    return pscope.fcn_name ();
  }
 
  octave::symbol_scope parent_fcn_scope (void) const
  {
    return m_scope.parent_scope ();
  }
 
  std::list<std::string> parent_fcn_names (void) const
  {
    return m_scope.parent_fcn_names ();
  }
 
  void mark_as_system_fcn_file (void);
 
  bool is_system_fcn_file (void) const { return m_system_fcn_file; }
 
  bool is_user_function (void) const { return true; }
 
  void erase_subfunctions (void);
 
  bool takes_varargs (void) const;
 
  bool takes_var_return (void) const;
 
  void mark_as_private_function (const std::string& cname = "");
 
  void lock_subfunctions (void);
 
  void unlock_subfunctions (void);
 
  std::map<std::string, octave_value> subfunctions (void) const;
 
  octave_value find_subfunction (const std::string& subfuns) const;
 
  bool has_subfunctions (void) const;
 
  void stash_subfunction_names (const std::list<std::string>& names);
 
  std::list<std::string> subfunction_names (void) const;
 
  octave_value_list all_va_args (const octave_value_list& args);
 
  void stash_function_name (const std::string& s) { m_name = s; }
 
  void mark_as_subfunction (void) { m_subfunction = true; }
 
  bool is_subfunction (void) const { return m_subfunction; }
 
  void mark_as_inline_function (void) { m_inline_function = true; }
 
  bool is_inline_function (void) const { return m_inline_function; }
 
  void mark_as_anonymous_function (void) { m_anonymous_function = true; }
 
  bool is_anonymous_function (void) const { return m_anonymous_function; }
 
  bool is_anonymous_function_of_class
  (const std::string& cname = "") const
  {
    return m_anonymous_function
           ? (cname.empty ()
              ? (! dispatch_class ().empty ())
              : cname == dispatch_class ())
           : false;
  }
 
  // If we are a special expression, then the function body consists of exactly
  // one expression.  The expression's result is the return value of the
  // function.
  bool is_special_expr (void) const
  {
    return is_inline_function () || is_anonymous_function ();
  }
 
  void mark_as_nested_function (void) { m_nested_function = true; }
 
  bool is_nested_function (void) const { return m_nested_function; }
 
  bool is_parent_function (void) const { return m_scope.is_parent (); }
 
  void mark_as_legacy_constructor (void) { m_class_constructor = legacy; }
 
  bool is_legacy_constructor (const std::string& cname = "") const
  {
    return (m_class_constructor == legacy
            ? (cname.empty () ? true : cname == dispatch_class ()) : false);
  }
 
  void mark_as_classdef_constructor (void) { m_class_constructor = classdef; }
 
  bool is_classdef_constructor (const std::string& cname = "") const
  {
    return (m_class_constructor == classdef
            ? (cname.empty () ? true : cname == dispatch_class ()) : false);
  }
 
  void mark_as_legacy_method (void) { m_class_method = legacy; }
 
  bool is_legacy_method (const std::string& cname = "") const
  {
    return (m_class_method == legacy
            ? (cname.empty () ? true : cname == dispatch_class ()) : false);
  }
 
  void mark_as_classdef_method (void) { m_class_method = classdef; }
 
  bool is_classdef_method (const std::string& cname = "") const
  {
    return (m_class_method == classdef
            ? (cname.empty () ? true : cname == dispatch_class ()) : false);
  }
 
  // We must overload the call method so that we call the proper
  // push_stack_frame method, which is overloaded for pointers to
  // octave_function, octave_user_function, and octave_user_script
  // objects.
 
  octave_value_list
  call (octave::tree_evaluator& tw, int nargout = 0,
        const octave_value_list& args = octave_value_list ());
 
  octave_value_list
  execute (octave::tree_evaluator& tw, int nargout = 0,
           const octave_value_list& args = octave_value_list ());
 
  octave::tree_parameter_list * parameter_list (void) { return m_param_list; }
 
  octave::tree_parameter_list * return_list (void) { return m_ret_list; }
 
  octave::comment_list * leading_comment (void) { return m_lead_comm; }
 
  octave::comment_list * trailing_comment (void) { return m_trail_comm; }
 
  // If is_special_expr is true, retrieve the sigular expression that forms the
  // body.  May be null (even if is_special_expr is true).
  octave::tree_expression * special_expr (void);
 
  bool subsasgn_optimization_ok (void);
 
  void accept (octave::tree_walker& tw);
 
  octave_value dump (void) const;
 
private:
 
  enum class_method_type
  {
    none,
    legacy,
    classdef
  };
 
  std::string ctor_type_str (void) const;
  std::string method_type_str (void) const;
 
  // List of arguments for this function.  These are local variables.
  octave::tree_parameter_list *m_param_list;
 
  // List of parameters we return.  These are also local variables in
  // this function.
  octave::tree_parameter_list *m_ret_list;
 
  // The comments preceding the FUNCTION token.
  octave::comment_list *m_lead_comm;
 
  // The comments preceding the ENDFUNCTION token.
  octave::comment_list *m_trail_comm;
 
  // Location where this function was defined.
  int m_location_line;
  int m_location_column;
  int m_end_location_line;
  int m_end_location_column;
 
  // True if this function came from a file that is considered to be a
  // system function.  This affects whether we check the time stamp
  // on the file to see if it has changed.
  bool m_system_fcn_file;
 
  // The number of arguments that have names.
  int m_num_named_args;
 
  // TRUE means this is a m_subfunction of a primary function.
  bool m_subfunction;
 
  // TRUE means this is an inline function.
  bool m_inline_function;
 
  // TRUE means this is an anonymous function.
  bool m_anonymous_function;
 
  // TRUE means this is a nested function.
  bool m_nested_function;
 
  // Enum describing whether this function is the constructor for class object.
  class_method_type m_class_constructor;
 
  // Enum describing whether this function is a method for a class.
  class_method_type m_class_method;
 
  void maybe_relocate_end_internal (void);
 
  void print_code_function_header (const std::string& prefix);
 
  void print_code_function_trailer (const std::string& prefix);
 
  // XXX FIXME (public)
public:
 
  void restore_warning_states (void);
 
  DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
};
 
#endif