Mercurial > hg > octave-terminal
changeset 2203:88a4d3580427
[project @ 1996-05-15 06:09:30 by jwe]
Initial revision
author | jwe |
---|---|
date | Wed, 15 May 1996 06:09:30 +0000 |
parents | 31b62b7c5d2d |
children | a24158362f9f |
files | src/defaults.cc |
diffstat | 1 files changed, 437 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/src/defaults.cc @@ -0,0 +1,437 @@ +/* + +Copyright (C) 1996 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 2, 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, write to the Free +Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +*/ + +/* + +The function builtin_pwd adapted from a similar function from GNU +Bash, the Bourne Again SHell, copyright (C) 1987, 1989, 1991 Free +Software Foundation, Inc. + +*/ + +#ifdef HAVE_CONFIG_H +#include <config.h> +#endif + +#include <cstdlib> + +#include <string> + +#ifdef HAVE_UNISTD_H +#include <sys/types.h> +#include <unistd.h> +#endif + +#include "defaults.h" +#include "defun.h" +#include "error.h" +#include "gripes.h" +#include "help.h" +#include "pt-const.h" +#include "toplev.h" +#include "variables.h" +#include "version.h" + +string Voctave_home; + +string Vbin_dir; +string Vlib_dir; +string Vinfo_dir; +string Varch_lib_dir; +string Vfcn_file_dir; + +// The path that will be searched for programs that we execute. +// (--exec-path path) +string Vexec_path; + +// Load path specified on command line. +// (--path path; -p path) +string Vload_path; + +// Name of the editor to be invoked by the edit_history command. +string Veditor; + +string Vimagepath; + +string Vlocal_site_defaults_file; +string Vsite_defaults_file; + +static string +subst_octave_home (const string& s) +{ + string retval; + + string prefix = OCTAVE_PREFIX; + + retval = s; + + if (Voctave_home != prefix) + { + int len = prefix.length (); + size_t start = 0; + while ((start = s.find (prefix)) != NPOS) + { + retval.replace (start, len, Voctave_home); + start++; + } + } + + return retval; +} + +static void +set_octave_home (void) +{ + char *oh = getenv ("OCTAVE_HOME"); + + Voctave_home = oh ? string (oh) : string (OCTAVE_PREFIX); +} + +static void +set_default_info_dir (void) +{ + Vinfo_dir = subst_octave_home (OCTAVE_INFODIR); +} + +static void +set_default_arch_lib_dir (void) +{ + Varch_lib_dir = subst_octave_home (OCTAVE_ARCHLIBDIR); +} + +static void +set_default_fcn_file_dir (void) +{ + Vfcn_file_dir = subst_octave_home (OCTAVE_FCNFILEDIR); +} + +static void +set_default_bin_dir (void) +{ + Vbin_dir = subst_octave_home (OCTAVE_BINDIR); +} + +static void +set_default_lib_dir (void) +{ + Vlib_dir = subst_octave_home (OCTAVE_LIBDIR); +} + +static void +set_default_exec_path (void) +{ + char *octave_exec_path = getenv ("OCTAVE_EXEC_PATH"); + + if (octave_exec_path) + Vexec_path = string (octave_exec_path); + else + { + char *shell_path = getenv ("PATH"); + + if (shell_path) + { + Vexec_path = string (":"); + Vexec_path.append (shell_path); + } + } +} + +// Handle OCTAVE_PATH from the environment like TeX handles TEXINPUTS. +// If the path starts with `:', prepend the standard path. If it ends +// with `:' append the standard path. If it begins and ends with +// `:', do both (which is useless, but the luser asked for it...). + +static void +set_default_path (void) +{ + string std_path = subst_octave_home (OCTAVE_FCNFILEPATH); + + char *oct_path = getenv ("OCTAVE_PATH"); + + Vload_path = oct_path ? string (oct_path) : std_path; +} + +static void +set_default_info_file (void) +{ + char *oct_info_file = getenv ("OCTAVE_INFO_FILE"); + + if (oct_info_file) + Vinfo_file = string (oct_info_file); + else + { + Vinfo_file = Vinfo_dir; + Vinfo_file.append ("/octave.info"); + } +} + +static void +set_default_info_prog (void) +{ + char *oct_info_prog = getenv ("OCTAVE_INFO_PROGRAM"); + + if (oct_info_prog) + Vinfo_prog = string (oct_info_prog); + else + { + Vinfo_prog = Varch_lib_dir; + Vinfo_prog.append ("/info"); + } +} + +static void +set_default_editor (void) +{ + Veditor = "vi"; + + char *env_editor = getenv ("EDITOR"); + + if (env_editor && *env_editor) + Veditor = string (env_editor); +} + +static void +set_local_site_defaults_file (void) +{ + Vlocal_site_defaults_file = subst_octave_home (OCTAVE_LOCALSTARTUPFILEDIR); + Vlocal_site_defaults_file.append ("/octaverc"); +} + +static void +set_site_defaults_file (void) +{ + Vsite_defaults_file = subst_octave_home (OCTAVE_STARTUPFILEDIR); + Vsite_defaults_file.append ("/octaverc"); +} + +string +maybe_add_default_load_path (const string& pathstring) +{ + string std_path = subst_octave_home (OCTAVE_FCNFILEPATH); + + string retval; + + if (! pathstring.empty ()) + { + if (pathstring[0] == SEPCHAR) + { + retval = std_path; + retval.append (pathstring); + } + else + retval = pathstring; + + if (pathstring[pathstring.length () - 1] == SEPCHAR) + retval.append (std_path); + } + + return retval; +} + +void +install_defaults (void) +{ + // OCTAVE_HOME must be set first! + + set_octave_home (); + + set_default_info_dir (); + + set_default_arch_lib_dir (); + + set_default_fcn_file_dir (); + + set_default_bin_dir (); + + set_default_lib_dir (); + + set_default_exec_path (); + + set_default_path (); + + set_default_info_file (); + + set_default_info_prog (); + + set_default_editor (); + + set_local_site_defaults_file (); + + set_site_defaults_file (); +} + +static int +editor (void) +{ + int status = 0; + + string s = builtin_string_variable ("EDITOR"); + + if (s.empty ()) + { + gripe_invalid_value_specified ("EDITOR"); + status = -1; + } + else + Veditor = s; + + return status; +} + +static int +exec_path (void) +{ + int status = 0; + + if (Vexec_path.empty ()) + { + gripe_invalid_value_specified ("EXEC_PATH"); + status = -1; + } + else + { + int len = Varch_lib_dir.length () + Vbin_dir.length () + + strlen (SEPCHAR_STR); + + static char *putenv_cmd = 0; + + delete [] putenv_cmd; + + putenv_cmd = 0; + + int eplen = Vexec_path.length (); + + if (eplen > 0) + { + int prepend = (Vexec_path[0] == ':'); + int append = (eplen > 1 && Vexec_path[eplen-1] == ':'); + + if (prepend) + { + if (append) + { + putenv_cmd = new char [2 * len + eplen + 6]; + sprintf (putenv_cmd, + "PATH=%s" SEPCHAR_STR "%s%s%s" SEPCHAR_STR "%s", + Varch_lib_dir.c_str (), Vbin_dir.c_str (), + Vexec_path.c_str (), Varch_lib_dir.c_str (), + Vbin_dir.c_str ()); + } + else + { + putenv_cmd = new char [len + eplen + 6]; + sprintf (putenv_cmd, + "PATH=%s" SEPCHAR_STR "%s%s", + Varch_lib_dir.c_str (), Vbin_dir.c_str (), + Vexec_path.c_str ()); + } + } + else + { + if (append) + { + putenv_cmd = new char [len + eplen + 6]; + sprintf (putenv_cmd, + "PATH=%s%s" SEPCHAR_STR "%s", + Vexec_path.c_str (), Varch_lib_dir.c_str (), + Vbin_dir.c_str ()); + } + else + { + putenv_cmd = new char [len + eplen + 6]; + sprintf (putenv_cmd, "PATH=%s", Vexec_path.c_str ()); + } + } + } + else + { + putenv_cmd = new char [len+6]; + sprintf (putenv_cmd, "PATH=%s" SEPCHAR_STR "%s", + Varch_lib_dir.c_str (), Vbin_dir.c_str ()); + } + + putenv (putenv_cmd); + } + + return status; +} + +static int +imagepath (void) +{ + int status = 0; + + string s = builtin_string_variable ("IMAGEPATH"); + + if (s.empty ()) + { + gripe_invalid_value_specified ("IMAGEPATH"); + status = -1; + } + else + Vimagepath = s; + + return status; +} + +static int +loadpath (void) +{ + int status = 0; + + string s = builtin_string_variable ("LOADPATH"); + + if (s.empty ()) + { + gripe_invalid_value_specified ("LOADPATH"); + status = -1; + } + else + Vload_path = maybe_add_default_load_path (s); + + return status; +} + +void +symbols_of_defaults (void) +{ + DEFVAR (EDITOR, Veditor, 0, editor, + "name of the editor to be invoked by the edit_history command"); + + DEFVAR (EXEC_PATH, Vexec_path, 0, exec_path, + "colon separated list of directories to search for programs to run"); + + DEFVAR (LOADPATH, Vload_path, 0, loadpath, + "colon separated list of directories to search for scripts"); + + DEFVAR (IMAGEPATH, OCTAVE_IMAGEPATH, 0, imagepath, + "colon separated list of directories to search for image files"); + + DEFCONSTX ("OCTAVE_VERSION", SBV_OCTAVE_VERSION, OCTAVE_VERSION, 0, 0, + "Octave version"); +} + +/* +;;; Local Variables: *** +;;; mode: C++ *** +;;; End: *** +*/