Mercurial > octave

/*

Copyright (C) 1995-2016 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
<http://www.gnu.org/licenses/>.

*/

#if defined (HAVE_CONFIG_H)
#  include "config.h"
#endif

#include <cerrno>
#include <cstdlib>
#include <new>

#include <sstream>
#include <string>

#if defined (OCTAVE_USE_WINDOWS_API)
#  define WIN32_LEAN_AND_MEAN 1
#  include <windows.h>
#endif

#include "async-system-wrapper.h"
#include "child-list.h"
#include "lo-error.h"
#include "oct-fftw.h"
#include "oct-locbuf.h"
#include "oct-syscalls.h"
#include "str-vec.h"
#include "wait-for-input.h"

#include "build-env.h"
#include "liboctinterp-build-info.h"
#include "call-stack.h"
#include "defaults.h"
#include "defun.h"
#include "error.h"
#include "file-io.h"
#include "octave.h"
#include "oct-map.h"
#include "ovl.h"
#include "ov.h"
#include "pager.h"
#include "procstream.h"
#include "sysdep.h"
#include "unwind-prot.h"
#include "utils.h"
#include <version.h>

#if ! defined (SHELL_PATH)
#  define SHELL_PATH "/bin/sh"
#endif

DEFUN (warranty, , ,
       doc: /* -*- texinfo -*-
@deftypefn {} {} warranty ()
Describe the conditions for copying and distributing Octave.
@end deftypefn */)
{
  octave_stdout << "\n" << octave_name_version_and_copyright () << "\n\
\n\
GNU Octave is free software; you can redistribute it and/or modify\n\
it under the terms of the GNU General Public License as published by\n\
the Free Software Foundation; either version 3 of the License, or\n\
(at your option) any later version.\n\
\n\
GNU Octave is distributed in the hope that it will be useful,\n\
but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
GNU General Public License for more details.\n\
\n\
You should have received a copy of the GNU General Public License\n\
along with this program.  If not, see <http://www.gnu.org/licenses/>.\n\
\n";

  return ovl ();
}

// Execute a shell command.

static octave_value_list
run_command_and_return_output (const std::string& cmd_str)
{
  octave_value_list retval;
  octave::unwind_protect frame;

  iprocstream *cmd = new iprocstream (cmd_str.c_str ());

  frame.add_delete (cmd);
  frame.add_fcn (octave::child_list::remove, cmd->pid ());

  if (! *cmd)
    error ("system: unable to start subprocess for '%s'", cmd_str.c_str ());

  int fid = cmd->file_number ();

  std::ostringstream output_buf;

  char ch;

  for (;;)
    {
      if (cmd->get (ch))
        output_buf.put (ch);
      else
        {
          if (! cmd->eof () && errno == EAGAIN)
            {
              cmd->clear ();

              if (octave_wait_for_input (fid) != 1)
                break;
            }
          else
            break;
        }
    }

  int cmd_status = cmd->close ();

  if (octave::sys::wifexited (cmd_status))
    cmd_status = octave::sys::wexitstatus (cmd_status);
  else
    cmd_status = 127;

  retval = ovl (cmd_status, output_buf.str ());

  return retval;
}

enum system_exec_type { et_sync, et_async };

DEFUN (system, args, nargout,
       doc: /* -*- texinfo -*-
@deftypefn  {} {} system ("@var{string}")
@deftypefnx {} {} system ("@var{string}", @var{return_output})
@deftypefnx {} {} system ("@var{string}", @var{return_output}, @var{type})
@deftypefnx {} {[@var{status}, @var{output}] =} system (@dots{})
Execute a shell command specified by @var{string}.

If the optional argument @var{type} is @qcode{"async"}, the process is
started in the background and the process ID of the child process is
returned immediately.  Otherwise, the child process is started and Octave
waits until it exits.  If the @var{type} argument is omitted, it defaults to
the value @qcode{"sync"}.

If @var{system} is called with one or more output arguments, or if the
optional argument @var{return_output} is true and the subprocess is started
synchronously, then the output from the command is returned as a variable.
Otherwise, if the subprocess is executed synchronously, its output is sent
to the standard output.  To send the output of a command executed with
@code{system} through the pager, use a command like

@example
@group
[~, text] = system ("cmd");
disp (text);
@end group
@end example

@noindent
or

@example
printf ("%s\n", nthargout (2, "system", "cmd"));
@end example

The @code{system} function can return two values.  The first is the
exit status of the command and the second is any output from the
command that was written to the standard output stream.  For example,

@example
[status, output] = system ("echo foo; exit 2");
@end example

@noindent
will set the variable @code{output} to the string @samp{foo}, and the
variable @code{status} to the integer @samp{2}.

For commands run asynchronously, @var{status} is the process id of the
command shell that is started to run the command.
@seealso{unix, dos}
@end deftypefn */)
{
  int nargin = args.length ();

  if (nargin == 0 || nargin > 3)
    print_usage ();

  system_exec_type type = et_sync;
  if (nargin == 3)
    {
      std::string type_str = args(2).xstring_value ("system: TYPE must be a string");

      if (type_str == "sync")
        type = et_sync;
      else if (type_str == "async")
        type = et_async;
      else
        error ("system: TYPE must be \"sync\" or \"async\"");
    }

  octave_value_list retval;

  // FIXME: Is this unwind_protect frame needed anymore (12/16/15)?
  octave::unwind_protect frame;

  bool return_output = (nargin == 1 && nargout > 1);

  if (nargin > 1)
    {
      try
        {
          return_output = args(1).is_true ();
        }
      catch (octave::execution_exception& e)
        {
          error (e, "system: RETURN_OUTPUT must be boolean value true or false");
        }
    }

  if (return_output && type == et_async)
    error ("system: can't return output from commands run asynchronously");

  std::string cmd_str = args(0).xstring_value ("system: first argument must be a string");

#if defined (OCTAVE_USE_WINDOWS_API)
  // Work around weird double-quote handling on Windows systems.
  if (type == et_sync)
    cmd_str = "\"" + cmd_str + "\"";
#endif

  if (type == et_async)
    retval(0) = octave_async_system_wrapper (cmd_str.c_str ());
  else if (return_output)
    retval = run_command_and_return_output (cmd_str);
  else
    {
      int status = system (cmd_str.c_str ());

      // The value in status is as returned by waitpid.  If
      // the process exited normally, extract the actual exit
      // status of the command.  Otherwise, return 127 as a
      // failure code.

      if (octave::sys::wifexited (status))
        status = octave::sys::wexitstatus (status);

      retval(0) = status;
    }

  return retval;
}

/*
%!test
%! cmd = ls_command ();
%! [status, output] = system (cmd);
%! assert (status, 0);
%! assert (ischar (output));
%! assert (! isempty (output));

%!error system ()
%!error system (1, 2, 3)
*/

static octave_value
find_config_info (const octave_scalar_map& m, const std::string& key)
{
  if (m.isfield (key))
    {
      Cell c = m.contents (key);

      if (! c.is_empty ())
        return c(0);
    }

  return octave_value ();
}

DEFUN (__octave_config_info__, args, ,
       doc: /* -*- texinfo -*-
@deftypefn  {} {} __octave_config_info__ ()
@deftypefnx {} {} __octave_config_info__ (@var{option})
Return a structure containing configuration and installation information for
Octave.

If @var{option} is a string, return the configuration information for the
specified option.

@seealso{computer}
@end deftypefn */)
{
#if defined (ENABLE_DYNAMIC_LINKING)
  bool octave_supports_dynamic_linking = true;
#else
  bool octave_supports_dynamic_linking = false;
#endif

  static bool initialized = false;

  struct conf_info_struct
  {
    const char *key;
    octave_value val;
  };

  static const conf_info_struct conf_info[] =
  {
    { "DEFAULT_PAGER", OCTAVE_DEFAULT_PAGER },

#if defined (OCTAVE_ENABLE_64)
    { "ENABLE_64", true },
#else
    { "ENABLE_64", false },
#endif

#if defined (OCTAVE_ENABLE_ATOMIC_REFCOUNT)
    { "ENABLE_ATOMIC_REFCOUNT", true },
#else
    { "ENABLE_ATOMIC_REFCOUNT", false },
#endif

#if defined (OCTAVE_ENABLE_BOUNDS_CHECK)
    { "ENABLE_BOUNDS_CHECK", true },
#else
    { "ENABLE_BOUNDS_CHECK", false },
#endif

#if defined (ENABLE_DOCS)
    { "ENABLE_DOCS", true },
#else
    { "ENABLE_DOCS", false },
#endif

#if defined (ENABLE_DYNAMIC_LINKING)
    { "ENABLE_DYNAMIC_LINKING", true },
#else
    { "ENABLE_DYNAMIC_LINKING", false },
#endif

#if defined (OCTAVE_ENABLE_FLOAT_TRUNCATE)
    { "ENABLE_FLOAT_TRUNCATE", true },
#else
    { "ENABLE_FLOAT_TRUNCATE", false },
#endif

#if defined (ENABLE_JIT)
    { "ENABLE_JIT", true },
#else
    { "ENABLE_JIT", false },
#endif

#if defined (OCTAVE_ENABLE_OPENMP)
    { "ENABLE_OPENMP", true },
#else
    { "ENABLE_OPENMP", false },
#endif

    { "api_version", OCTAVE_API_VERSION },
    { "archlibdir", subst_octave_home (OCTAVE_ARCHLIBDIR) },
    { "bindir", subst_octave_home (OCTAVE_BINDIR) },
    { "canonical_host_type", OCTAVE_CANONICAL_HOST_TYPE },
    { "datadir", subst_octave_home (OCTAVE_DATADIR) },
    { "datarootdir", subst_octave_home (OCTAVE_DATAROOTDIR) },
    { "exec_prefix", subst_octave_home (OCTAVE_EXEC_PREFIX) },
    { "fcnfiledir", subst_octave_home (OCTAVE_FCNFILEDIR) },
    { "fftw_version", octave_fftw_version () },
    { "fftwf_version", octave_fftwf_version () },
    { "imagedir", subst_octave_home (OCTAVE_IMAGEDIR) },
    { "includedir", subst_octave_home (OCTAVE_INCLUDEDIR) },
    { "infodir", subst_octave_home (OCTAVE_INFODIR) },
    { "infofile", subst_octave_home (OCTAVE_INFOFILE) },
    { "libdir", subst_octave_home (OCTAVE_LIBDIR) },
    { "libexecdir", subst_octave_home (OCTAVE_LIBEXECDIR) },
    // Each library and executable has its own definition of the hg
    // id.  We check for consistency when Octave starts so we just
    // store and report one of them here.
    { "hg_id", liboctinterp_hg_id () },
    { "localapiarchlibdir", subst_octave_home (OCTAVE_LOCALAPIARCHLIBDIR) },
    { "localapifcnfiledir", subst_octave_home (OCTAVE_LOCALAPIFCNFILEDIR) },
    { "localapioctfiledir", subst_octave_home (OCTAVE_LOCALAPIOCTFILEDIR) },
    { "localarchlibdir", subst_octave_home (OCTAVE_LOCALARCHLIBDIR) },
    { "localfcnfiledir", subst_octave_home (OCTAVE_LOCALFCNFILEDIR) },
    { "localoctfiledir", subst_octave_home (OCTAVE_LOCALOCTFILEDIR) },
    { "localstartupfiledir", subst_octave_home (OCTAVE_LOCALSTARTUPFILEDIR) },
    { "localverarchlibdir", subst_octave_home (OCTAVE_LOCALVERARCHLIBDIR) },
    { "localverfcnfiledir", subst_octave_home (OCTAVE_LOCALVERFCNFILEDIR) },
    { "localveroctfiledir", subst_octave_home (OCTAVE_LOCALVEROCTFILEDIR) },
    { "man1dir", subst_octave_home (OCTAVE_MAN1DIR) },
    { "man1ext", OCTAVE_MAN1EXT },
    { "mandir", subst_octave_home (OCTAVE_MANDIR) },
    { "octdatadir", subst_octave_home (OCTAVE_OCTDATADIR) },
    { "octfiledir", subst_octave_home (OCTAVE_OCTFILEDIR) },
    { "octetcdir", subst_octave_home (OCTAVE_OCTETCDIR) },
    { "octincludedir", subst_octave_home (OCTAVE_OCTINCLUDEDIR) },
    { "octlibdir", subst_octave_home (OCTAVE_OCTLIBDIR) },
    { "octtestsdir", subst_octave_home (OCTAVE_OCTTESTSDIR) },
    { "prefix", subst_octave_home (OCTAVE_PREFIX) },
    { "release_date", OCTAVE_RELEASE_DATE },
    { "startupfiledir", subst_octave_home (OCTAVE_STARTUPFILEDIR) },
    { "version", OCTAVE_VERSION },
    { 0, octave_value () }
  };

  struct build_info_struct
  {
    const char *key;
    const char *val;
  };

  static const build_info_struct build_info[] =
  {
    { "AMD_CPPFLAGS", octave::build_env::AMD_CPPFLAGS },
    { "AMD_LDFLAGS", octave::build_env::AMD_LDFLAGS },
    { "AMD_LIBS", octave::build_env::AMD_LIBS },
    { "AR", octave::build_env::AR },
    { "ARFLAGS", octave::build_env::ARFLAGS },
    { "ARPACK_CPPFLAGS", octave::build_env::ARPACK_CPPFLAGS },
    { "ARPACK_LDFLAGS", octave::build_env::ARPACK_LDFLAGS },
    { "ARPACK_LIBS", octave::build_env::ARPACK_LIBS },
    { "BLAS_LIBS", octave::build_env::BLAS_LIBS },
    { "CAMD_CPPFLAGS", octave::build_env::CAMD_CPPFLAGS },
    { "CAMD_LDFLAGS", octave::build_env::CAMD_LDFLAGS },
    { "CAMD_LIBS", octave::build_env::CAMD_LIBS },
    { "CARBON_LIBS", octave::build_env::CARBON_LIBS },
    { "CC", octave::build_env::CC },
    { "CCOLAMD_CPPFLAGS", octave::build_env::CCOLAMD_CPPFLAGS },
    { "CCOLAMD_LDFLAGS", octave::build_env::CCOLAMD_LDFLAGS },
    { "CCOLAMD_LIBS", octave::build_env::CCOLAMD_LIBS },
    { "CFLAGS", octave::build_env::CFLAGS },
    { "CHOLMOD_CPPFLAGS", octave::build_env::CHOLMOD_CPPFLAGS },
    { "CHOLMOD_LDFLAGS", octave::build_env::CHOLMOD_LDFLAGS },
    { "CHOLMOD_LIBS", octave::build_env::CHOLMOD_LIBS },
    { "COLAMD_CPPFLAGS", octave::build_env::COLAMD_CPPFLAGS },
    { "COLAMD_LDFLAGS", octave::build_env::COLAMD_LDFLAGS },
    { "COLAMD_LIBS", octave::build_env::COLAMD_LIBS },
    { "CPICFLAG", octave::build_env::CPICFLAG },
    { "CPPFLAGS", octave::build_env::CPPFLAGS },
    { "CURL_CPPFLAGS", octave::build_env::CURL_CPPFLAGS },
    { "CURL_LDFLAGS", octave::build_env::CURL_LDFLAGS },
    { "CURL_LIBS", octave::build_env::CURL_LIBS },
    { "CXSPARSE_CPPFLAGS", octave::build_env::CXSPARSE_CPPFLAGS },
    { "CXSPARSE_LDFLAGS", octave::build_env::CXSPARSE_LDFLAGS },
    { "CXSPARSE_LIBS", octave::build_env::CXSPARSE_LIBS },
    { "CXX", octave::build_env::CXX },
    { "CXXCPP", octave::build_env::CXXCPP },
    { "CXXFLAGS", octave::build_env::CXXFLAGS },
    { "CXXPICFLAG", octave::build_env::CXXPICFLAG },
    { "DEFS", octave::build_env::DEFS },
    { "DL_LD", octave::build_env::DL_LD },
    { "DL_LDFLAGS", octave::build_env::DL_LDFLAGS },
    { "DL_LIBS", octave::build_env::DL_LIBS },
    { "GCC_VERSION", octave::build_env::GCC_VERSION },
    { "GXX_VERSION", octave::build_env::GXX_VERSION },
    { "EXEEXT", octave::build_env::EXEEXT },
    { "F77", octave::build_env::F77 },
    { "F77_FLOAT_STORE_FLAG", octave::build_env::F77_FLOAT_STORE_FLAG },
    { "F77_INTEGER_8_FLAG", octave::build_env::F77_INTEGER_8_FLAG },
    { "FFLAGS", octave::build_env::FFLAGS },
    { "FFTW3_CPPFLAGS", octave::build_env::FFTW3_CPPFLAGS },
    { "FFTW3_LDFLAGS", octave::build_env::FFTW3_LDFLAGS },
    { "FFTW3_LIBS", octave::build_env::FFTW3_LIBS },
    { "FFTW3F_CPPFLAGS", octave::build_env::FFTW3F_CPPFLAGS },
    { "FFTW3F_LDFLAGS", octave::build_env::FFTW3F_LDFLAGS },
    { "FFTW3F_LIBS", octave::build_env::FFTW3F_LIBS },
    { "FLIBS", octave::build_env::FLIBS },
    { "FLTK_CPPFLAGS", octave::build_env::FLTK_CPPFLAGS },
    { "FLTK_LDFLAGS", octave::build_env::FLTK_LDFLAGS },
    { "FLTK_LIBS", octave::build_env::FLTK_LIBS },
    { "FONTCONFIG_CPPFLAGS", octave::build_env::FONTCONFIG_CPPFLAGS },
    { "FONTCONFIG_LIBS", octave::build_env::FONTCONFIG_LIBS },
    { "FPICFLAG", octave::build_env::FPICFLAG },
    { "FT2_CPPFLAGS", octave::build_env::FT2_CPPFLAGS },
    { "FT2_LIBS", octave::build_env::FT2_LIBS },
    { "GLPK_CPPFLAGS", octave::build_env::GLPK_CPPFLAGS },
    { "GLPK_LDFLAGS", octave::build_env::GLPK_LDFLAGS },
    { "GLPK_LIBS", octave::build_env::GLPK_LIBS },
    { "GNUPLOT", octave::build_env::GNUPLOT },
    { "HDF5_CPPFLAGS", octave::build_env::HDF5_CPPFLAGS },
    { "HDF5_LDFLAGS", octave::build_env::HDF5_LDFLAGS },
    { "HDF5_LIBS", octave::build_env::HDF5_LIBS },
    { "LAPACK_LIBS", octave::build_env::LAPACK_LIBS },
    { "LDFLAGS", octave::build_env::LDFLAGS },
    { "LD_CXX", octave::build_env::LD_CXX },
    { "LD_STATIC_FLAG", octave::build_env::LD_STATIC_FLAG },
    { "LEX", octave::build_env::LEX },
    { "LEXLIB", octave::build_env::LEXLIB },
    { "LFLAGS", octave::build_env::LFLAGS },
    { "LIBOCTAVE", octave::build_env::LIBOCTAVE },
    { "LIBOCTINTERP", octave::build_env::LIBOCTINTERP },
    { "LIBS", octave::build_env::LIBS },
    { "LLVM_CPPFLAGS", octave::build_env::LLVM_CPPFLAGS },
    { "LLVM_LDFLAGS", octave::build_env::LLVM_LDFLAGS },
    { "LLVM_LIBS", octave::build_env::LLVM_LIBS },
    { "LN_S", octave::build_env::LN_S },
    { "MAGICK_CPPFLAGS", octave::build_env::MAGICK_CPPFLAGS },
    { "MAGICK_LDFLAGS", octave::build_env::MAGICK_LDFLAGS },
    { "MAGICK_LIBS", octave::build_env::MAGICK_LIBS },
    { "MKOCTFILE_DL_LDFLAGS", octave::build_env::MKOCTFILE_DL_LDFLAGS },
    { "OCTAVE_LINK_DEPS", octave::build_env::OCTAVE_LINK_DEPS },
    { "OCTAVE_LINK_OPTS", octave::build_env::OCTAVE_LINK_OPTS },
    { "OCT_LINK_DEPS", octave::build_env::OCT_LINK_DEPS },
    { "OCT_LINK_OPTS", octave::build_env::OCT_LINK_OPTS },
    { "OPENGL_LIBS", octave::build_env::OPENGL_LIBS },
    { "OSMESA_CPPFLAGS", octave::build_env::OSMESA_CPPFLAGS },
    { "OSMESA_LDFLAGS", octave::build_env::OSMESA_LDFLAGS },
    { "OSMESA_LIBS", octave::build_env::OSMESA_LIBS },
    { "PCRE_CPPFLAGS", octave::build_env::PCRE_CPPFLAGS },
    { "PCRE_LIBS", octave::build_env::PCRE_LIBS },
    { "PTHREAD_CFLAGS", octave::build_env::PTHREAD_CFLAGS },
    { "PTHREAD_LIBS", octave::build_env::PTHREAD_LIBS },
    { "QHULL_CPPFLAGS", octave::build_env::QHULL_CPPFLAGS },
    { "QHULL_LDFLAGS", octave::build_env::QHULL_LDFLAGS },
    { "QHULL_LIBS", octave::build_env::QHULL_LIBS },
    { "QRUPDATE_CPPFLAGS", octave::build_env::QRUPDATE_CPPFLAGS },
    { "QRUPDATE_LDFLAGS", octave::build_env::QRUPDATE_LDFLAGS },
    { "QRUPDATE_LIBS", octave::build_env::QRUPDATE_LIBS },
    { "QT_CPPFLAGS", octave::build_env::QT_CPPFLAGS },
    { "QT_LDFLAGS", octave::build_env::QT_LDFLAGS },
    { "QT_LIBS", octave::build_env::QT_LIBS },
    { "RANLIB", octave::build_env::RANLIB },
    { "RDYNAMIC_FLAG", octave::build_env::RDYNAMIC_FLAG },
    { "READLINE_LIBS", octave::build_env::READLINE_LIBS },
    { "SED", octave::build_env::SED },
    { "SHARED_LIBS", octave::build_env::SHARED_LIBS },
    { "SH_LD", octave::build_env::SH_LD },
    { "SH_LDFLAGS", octave::build_env::SH_LDFLAGS },
    { "STATIC_LIBS", octave::build_env::STATIC_LIBS },
    { "SUITESPARSE_CONFIG_LIBS", octave::build_env::SUITESPARSE_CONFIG_LIBS },
    { "TERM_LIBS", octave::build_env::TERM_LIBS },
    { "UMFPACK_CPPFLAGS", octave::build_env::UMFPACK_CPPFLAGS },
    { "UMFPACK_LDFLAGS", octave::build_env::UMFPACK_LDFLAGS },
    { "UMFPACK_LIBS", octave::build_env::UMFPACK_LIBS },
    { "WARN_CFLAGS", octave::build_env::WARN_CFLAGS },
    { "WARN_CXXFLAGS", octave::build_env::WARN_CXXFLAGS },
    { "X11_INCFLAGS", octave::build_env::X11_INCFLAGS },
    { "X11_LIBS", octave::build_env::X11_LIBS },
    { "XTRA_CFLAGS", octave::build_env::XTRA_CFLAGS },
    { "XTRA_CXXFLAGS", octave::build_env::XTRA_CXXFLAGS },
    { "YACC", octave::build_env::YACC },
    { "YFLAGS", octave::build_env::YFLAGS },
    { "Z_CPPFLAGS", octave::build_env::Z_CPPFLAGS },
    { "Z_LDFLAGS", octave::build_env::Z_LDFLAGS },
    { "Z_LIBS", octave::build_env::Z_LIBS },
    { "config_opts", octave::build_env::config_opts },
    { 0, 0 },
  };

  static octave_scalar_map config;
  static octave_scalar_map build_env;
  static octave_scalar_map build_features = octave::build_env::features ();

  if (! initialized)
    {
      int i;

      i = 0;
      while (true)
        {
          const build_info_struct& elt = build_info[i++];

          const char *key = elt.key;

          if (key)
            build_env.assign (key, elt.val);
          else
            break;
        }

      i = 0;
      while (true)
        {
          const conf_info_struct& elt = conf_info[i++];

          const char *key = elt.key;

          if (key)
            config.assign (key, elt.val);
          else
            break;
        }

      bool unix_system = true;
      bool mac_system = false;
      bool windows_system = false;

#if defined (__WIN32__)
      windows_system = true;
#if ! defined (__CYGWIN__)
      unix_system = false;
#endif
#endif

#if defined (OCTAVE_USE_OS_X_API)
      mac_system = true;
#endif

      config.assign ("unix", octave_value (unix_system));
      config.assign ("mac", octave_value (mac_system));
      config.assign ("windows", octave_value (windows_system));

      config.assign ("dld", octave_value (octave_supports_dynamic_linking));

      octave::mach_info::float_format ff = octave::mach_info::native_float_format ();
      config.assign ("float_format",
                     octave_value (octave::mach_info::float_format_as_string (ff)));

      config.assign ("words_big_endian",
                     octave_value (octave::mach_info::words_big_endian ()));

      config.assign ("words_little_endian",
                     octave_value (octave::mach_info::words_little_endian ()));

      config.assign ("build_environment", octave_value (build_env));

      config.assign ("build_features", octave_value (build_features));

      initialized = true;
    }

  int nargin = args.length ();

  if (nargin > 1)
    print_usage ();

  octave_value_list retval;

  if (nargin == 1)
    {
      std::string arg = args(0).xstring_value ("__octave_config_info__: OPTION argument must be a string");

      octave_value info = find_config_info (config, arg);

      if (info.is_undefined ())
        info = find_config_info (build_env, arg);

      if (info.is_undefined ())
        info = find_config_info (build_features, arg);

      if (info.is_undefined ())
        error ("__octave_config_info__: no info for '%s'", arg.c_str ());

      return info;
    }
  else
    retval = ovl (config);

  return retval;
}

/*
%!assert (ischar (__octave_config_info__ ("version")))
%!test
%! x = __octave_config_info__ ();
%! assert (isstruct (x));
%! assert (! isempty (x));

%!assert (__octave_config_info__ ("fftw_version"), __octave_config_info__ ("fftwf_version"))

%!error __octave_config_info__ (1, 2)
*/

#if defined (__GNUG__) && defined (DEBUG_NEW_DELETE)

int debug_new_delete = 0;

typedef void (*vfp)(void);
extern vfp __new_handler;

void *
__builtin_new (size_t sz)
{
  void *p;

  // malloc (0) is unpredictable; avoid it.
  if (sz == 0)
    sz = 1;
  p = std::malloc (sz);
  while (p == 0)
    {
      (*__new_handler) ();
      p = std::malloc (sz);
    }

  if (debug_new_delete)
    std::cerr << "__builtin_new: " << p << std::endl;

  return p;
}

void
__builtin_delete (void *ptr)
{
  if (debug_new_delete)
    std::cerr << "__builtin_delete: " << ptr << std::endl;

  if (ptr)
    free (ptr);
}

#endif
author	Rik <rik@octave.org>
date	Sun, 13 Nov 2016 20:33:47 -0800
parents	ed1b0d5fa97c
children	57e82b74f89b