view libinterp/corefcn/environment.h @ 25460:627d6bde9b8d

solve installation info initialization problem differently Back out changesets 893344cee100 and 69fc8935020b. * defaults.h, defaults.cc: Instead of storing installation info like include_dir, data_dir, info_dir, etc., in file-scope static variables or a class object owned by the interpreter, store the initialized values as constants inside the functions that return them. This way they are initialized on demand and we don't have to worry about initialization order of static data. It's OK for these to be static because even though they may require some computation to intialize (looking at environment variables or substituting the value of OCTAVE_HOME), they are constants for any given installation of Octave and will be the same for any instantiation of the interpreter. Only include defaults.h in files that actually need it.
author John W. Eaton <jwe@octave.org>
date Tue, 12 Jun 2018 13:03:04 -0400
parents 69fc8935020b
children 00f796120a6d
line wrap: on
line source

/*

Copyright (C) 2017-2018 John W. Eaton

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_environment_h)
#define octave_environment_h 1

#include "octave-config.h"

#include <string>

class octave_value;
class octave_value_list;

namespace octave
{
  class environment
  {
  public:

    environment (void)
      : m_editor (init_editor ()),
        m_exec_path (init_exec_path ()),
        m_image_path (init_image_path ())
    { }

    octave_value editor (const octave_value_list& args, int nargout);

    std::string editor (void) const { return m_editor; }

    std::string editor (const std::string& ed)
    {
      return set (m_editor, ed);
    }

    octave_value exec_path (const octave_value_list& args, int nargout);

    std::string exec_path (void) const { return m_exec_path; }

    std::string exec_path (const std::string& path);

    octave_value image_path (const octave_value_list& args, int nargout);

    std::string image_path (void) const { return m_image_path; }

    std::string image_path (const std::string& path)
    {
      return set (m_image_path, path);
    }

  private:

    std::string m_editor;

    std::string m_exec_path;

    std::string m_image_path;

    static std::string init_editor (void);

    static std::string init_exec_path (void);

    static std::string init_image_path (void);

    std::string set (std::string& var, const std::string& new_val)
    {
      std::string old_val = var;
      var = new_val;
      return old_val;
    }
  };
}

#endif