Mercurial > hg > octave-lyh
diff src/defaults.cc @ 3195:7a5a5da64756
[project @ 1998-10-28 22:54:04 by jwe]
author | jwe |
---|---|
date | Wed, 28 Oct 1998 23:01:17 +0000 |
parents | bdf2186d4592 |
children | 041ea33fbbf4 |
line wrap: on
line diff
--- a/src/defaults.cc +++ b/src/defaults.cc @@ -68,7 +68,7 @@ // Load path specified on command line. // (--path path; -p path) -string Vload_path; +static string Vload_path; // The default load path with OCTAVE_HOME appropriately substituted. static string Vdefault_load_path; @@ -176,11 +176,6 @@ Vexec_path = string (octave_exec_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) { @@ -188,10 +183,9 @@ string oct_path = octave_env::getenv ("OCTAVE_PATH"); - Vload_path = oct_path.empty () - ? Vdefault_load_path : maybe_add_default_path (oct_path); + Vload_path = oct_path.empty () ? string (":") : oct_path; - Vload_path_dir_path = dir_path (Vload_path); + Vload_path_dir_path = dir_path (Vload_path, Vdefault_load_path); } static void @@ -410,9 +404,9 @@ } else { - Vload_path = maybe_add_default_load_path (s); + Vload_path = s; - Vload_path_dir_path = dir_path (Vload_path); + Vload_path_dir_path = dir_path (Vload_path, Vdefault_load_path); } return status; @@ -427,7 +421,7 @@ DEFVAR (EXEC_PATH, Vexec_path, 0, exec_path, "colon separated list of directories to search for programs to run"); - DEFVAR (LOADPATH, ":", 0, octave_loadpath, + DEFVAR (LOADPATH, ":", 0, loadpath, "colon separated list of directories to search for scripts.\n\ The default value is \":\", which means to search the default list\n\ of directories. The default list of directories may be found in\n\