octave: src/interpfcn/defaults.cc annotate

annotate src/interpfcn/defaults.cc @ 15157:a87fa9132b72

provide Voct_etc_dir variable * defaults.cc (Voct_etc_dir): New global variable. (set_default_oct_etc_dir): New function. (install_defaults): Call it. * defaults.in.h (Voct_etc_dir): Provide decl.

author	John W. Eaton <jwe@octave.org>
date	Sat, 11 Aug 2012 17:32:42 -0400
parents	60ff2cef569d
children

rev	line source
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	1 /*
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	2
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	3 Copyright (C) 1996-2012 John W. Eaton
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	4
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	6
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6276 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6276 diff changeset	10 option) any later version.
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	11
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	15 for more details.
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	16
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6276 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6276 diff changeset	19 <http://www.gnu.org/licenses/>.
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	20
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	21 */
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	22
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	23 #ifdef HAVE_CONFIG_H
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	24 #include <config.h>
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	25 #endif
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	26
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	27 #include <cstdlib>
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	28
6114 a0dafb51dd06 [project @ 2006-10-27 14:02:16 by jwe] jwe parents: 5909 diff changeset	29 #include <algorithm>
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3446 diff changeset	30 #include <iostream>
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	31 #include <string>
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	32
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	33 #include <sys/types.h>
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	34 #include <unistd.h>
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	35
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	36 #include "dir-ops.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	37 #include "oct-env.h"
4217 301cc4cf87e9 [project @ 2002-12-05 03:33:01 by jwe] jwe parents: 3971 diff changeset	38 #include "file-stat.h"
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3141 diff changeset	39 #include "pathsearch.h"
4217 301cc4cf87e9 [project @ 2002-12-05 03:33:01 by jwe] jwe parents: 3971 diff changeset	40 #include "str-vec.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	41
2492 06595bc7f2d0 [project @ 1996-11-09 00:13:50 by jwe] jwe parents: 2466 diff changeset	42 #include <defaults.h>
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	43 #include "defun.h"
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	44 #include "error.h"
3040 443851377f3f [project @ 1997-06-06 09:29:28 by jwe] jwe parents: 2993 diff changeset	45 #include "file-ops.h"
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	46 #include "gripes.h"
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	47 #include "help.h"
5395 8db4eb48f546 [project @ 2005-06-16 20:19:18 by jwe] jwe parents: 5333 diff changeset	48 #include "input.h"
5832 5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	49 #include "load-path.h"
3185 9580887dd160 [project @ 1998-09-26 02:45:55 by jwe] jwe parents: 3174 diff changeset	50 #include "oct-obj.h"
2390 c2c1482c34c8 [project @ 1996-10-12 19:13:23 by jwe] jwe parents: 2203 diff changeset	51 #include "ov.h"
4217 301cc4cf87e9 [project @ 2002-12-05 03:33:01 by jwe] jwe parents: 3971 diff changeset	52 #include "parse.h"
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	53 #include "toplev.h"
4217 301cc4cf87e9 [project @ 2002-12-05 03:33:01 by jwe] jwe parents: 3971 diff changeset	54 #include "unwind-prot.h"
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	55 #include "variables.h"
2492 06595bc7f2d0 [project @ 1996-11-09 00:13:50 by jwe] jwe parents: 2466 diff changeset	56 #include <version.h>
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	57
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	58 std::string Voctave_home;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	59
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	60 std::string Vbin_dir;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	61 std::string Vinfo_dir;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	62 std::string Vdata_dir;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	63 std::string Vlibexec_dir;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	64 std::string Varch_lib_dir;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	65 std::string Vlocal_arch_lib_dir;
5909 a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	66 std::string Vlocal_api_arch_lib_dir;
3597 26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	67 std::string Vlocal_ver_arch_lib_dir;
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	68
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	69 std::string Vlocal_ver_oct_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	70 std::string Vlocal_api_oct_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	71 std::string Vlocal_oct_file_dir;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	72
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	73 std::string Vlocal_ver_fcn_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	74 std::string Vlocal_api_fcn_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	75 std::string Vlocal_fcn_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	76
15157 a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	77 std::string Voct_etc_dir;
a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	78
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	79 std::string Voct_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	80 std::string Vfcn_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	81
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	82 std::string Vimage_dir;
4447 252b9162c084 [project @ 2003-07-08 18:37:53 by jwe] jwe parents: 4264 diff changeset	83
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	84 // The path that will be searched for programs that we execute.
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	85 // (--exec-path path)
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	86 static std::string VEXEC_PATH;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	87
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	88 // Name of the editor to be invoked by the edit_history command.
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	89 std::string VEDITOR;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	90
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	91 static std::string VIMAGE_PATH;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	92
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	93 std::string Vlocal_site_defaults_file;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	94 std::string Vsite_defaults_file;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	95
6274 d42abdfcb8e9 [project @ 2007-02-07 07:22:02 by jwe] jwe parents: 6228 diff changeset	96 std::string
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	97 subst_octave_home (const std::string& s)
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	98 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	99 std::string retval;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	100
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	101 std::string prefix = OCTAVE_PREFIX;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	102
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	103 retval = s;
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	104
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	105 if (Voctave_home != prefix)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	106 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4776 diff changeset	107 octave_idx_type len = prefix.length ();
6276 d26c558691cd [project @ 2007-02-07 09:01:24 by jwe] jwe parents: 6274 diff changeset	108
d26c558691cd [project @ 2007-02-07 09:01:24 by jwe] jwe parents: 6274 diff changeset	109 if (s.substr (0, len) == prefix)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	110 retval.replace (0, len, Voctave_home);
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	111 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	112
8007 a2ab20ba78f7 make file_ops a proper singleton class John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	113 if (file_ops::dir_sep_char () != '/')
a2ab20ba78f7 make file_ops a proper singleton class John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	114 std::replace (retval.begin (), retval.end (), '/',
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	115 file_ops::dir_sep_char ());
6114 a0dafb51dd06 [project @ 2006-10-27 14:02:16 by jwe] jwe parents: 5909 diff changeset	116
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	117 return retval;
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	118 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	119
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	120 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	121 set_octave_home (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	122 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	123 std::string oh = octave_env::getenv ("OCTAVE_HOME");
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	124
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	125 Voctave_home = oh.empty () ? std::string (OCTAVE_PREFIX) : oh;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	126 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	127
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	128 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	129 set_default_info_dir (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	130 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	131 Vinfo_dir = subst_octave_home (OCTAVE_INFODIR);
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	132 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	133
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	134 static void
3141 292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	135 set_default_data_dir (void)
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	136 {
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	137 Vdata_dir = subst_octave_home (OCTAVE_DATADIR);
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	138 }
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	139
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	140 static void
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	141 set_default_libexec_dir (void)
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	142 {
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	143 Vlibexec_dir = subst_octave_home (OCTAVE_LIBEXECDIR);
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	144 }
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	145
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	146 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	147 set_default_arch_lib_dir (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	148 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	149 Varch_lib_dir = subst_octave_home (OCTAVE_ARCHLIBDIR);
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	150 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	151
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	152 static void
2439 dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	153 set_default_local_arch_lib_dir (void)
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	154 {
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	155 Vlocal_arch_lib_dir = subst_octave_home (OCTAVE_LOCALARCHLIBDIR);
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	156 }
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	157
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	158 static void
5909 a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	159 set_default_local_api_arch_lib_dir (void)
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	160 {
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	161 Vlocal_api_arch_lib_dir = subst_octave_home (OCTAVE_LOCALAPIARCHLIBDIR);
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	162 }
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	163
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	164 static void
3597 26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	165 set_default_local_ver_arch_lib_dir (void)
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	166 {
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	167 Vlocal_ver_arch_lib_dir = subst_octave_home (OCTAVE_LOCALVERARCHLIBDIR);
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	168 }
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	169
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	170 static void
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	171 set_default_local_ver_oct_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	172 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	173 Vlocal_ver_oct_file_dir = subst_octave_home (OCTAVE_LOCALVEROCTFILEDIR);
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	174 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	175
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	176 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	177 set_default_local_api_oct_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	178 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	179 Vlocal_api_oct_file_dir = subst_octave_home (OCTAVE_LOCALAPIOCTFILEDIR);
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	180 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	181
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	182 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	183 set_default_local_oct_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	184 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	185 Vlocal_oct_file_dir = subst_octave_home (OCTAVE_LOCALOCTFILEDIR);
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	186 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	187
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	188 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	189 set_default_local_ver_fcn_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	190 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	191 Vlocal_ver_fcn_file_dir = subst_octave_home (OCTAVE_LOCALVERFCNFILEDIR);
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	192 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	193
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	194 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	195 set_default_local_api_fcn_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	196 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	197 Vlocal_api_fcn_file_dir = subst_octave_home (OCTAVE_LOCALAPIFCNFILEDIR);
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	198 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	199
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	200 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	201 set_default_local_fcn_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	202 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	203 Vlocal_fcn_file_dir = subst_octave_home (OCTAVE_LOCALFCNFILEDIR);
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	204 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	205
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	206 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	207 set_default_fcn_file_dir (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	208 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	209 Vfcn_file_dir = subst_octave_home (OCTAVE_FCNFILEDIR);
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	210 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	211
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	212 static void
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	213 set_default_image_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	214 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	215 Vimage_dir = subst_octave_home (OCTAVE_IMAGEDIR);
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	216 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	217
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	218 static void
15157 a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	219 set_default_oct_etc_dir (void)
a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	220 {
a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	221 Voct_etc_dir = subst_octave_home (OCTAVE_OCTETCDIR);
a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	222 }
a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	223
a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	224 static void
5397 b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	225 set_default_oct_file_dir (void)
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	226 {
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	227 Voct_file_dir = subst_octave_home (OCTAVE_OCTFILEDIR);
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	228 }
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	229
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	230 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	231 set_default_bin_dir (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	232 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	233 Vbin_dir = subst_octave_home (OCTAVE_BINDIR);
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	234 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	235
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	236 void
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	237 set_exec_path (const std::string& path_arg)
4447 252b9162c084 [project @ 2003-07-08 18:37:53 by jwe] jwe parents: 4264 diff changeset	238 {
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	239 std::string tpath = path_arg;
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	240
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	241 if (tpath.empty ())
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	242 tpath = octave_env::getenv ("OCTAVE_EXEC_PATH");
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	243
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	244 if (tpath.empty ())
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	245 tpath = Vlocal_ver_arch_lib_dir + dir_path::path_sep_str ()
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	246 + Vlocal_api_arch_lib_dir + dir_path::path_sep_str ()
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	247 + Vlocal_arch_lib_dir + dir_path::path_sep_str ()
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	248 + Varch_lib_dir + dir_path::path_sep_str ()
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	249 + Vbin_dir;
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	250
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	251 VEXEC_PATH = tpath;
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	252
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	253 // FIXME -- should we really be modifying PATH in the environment?
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	254 // The way things are now, Octave will ignore directories set in the
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	255 // PATH with calls like
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	256 //
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	257 // setenv ("PATH", "/my/path");
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	258 //
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	259 // To fix this, I think Octave should be searching the combination of
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	260 // PATH and EXEC_PATH for programs that it executes instead of setting
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	261 // the PATH in the environment and relying on the shell to do the
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	262 // searching.
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	263
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	264 // This is static so that even if set_exec_path is called more than
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	265 // once, shell_path is the original PATH from the environment,
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	266 // before we start modifying it.
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	267 static std::string shell_path = octave_env::getenv ("PATH");
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	268
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	269 if (! shell_path.empty ())
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	270 tpath = shell_path + dir_path::path_sep_str () + tpath;
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	271
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	272 octave_env::putenv ("PATH", tpath);
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	273 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	274
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	275 void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	276 set_image_path (const std::string& path)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	277 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	278 VIMAGE_PATH = ".";
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	279
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	280 std::string tpath = path;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	281
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	282 if (tpath.empty ())
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	283 tpath = octave_env::getenv ("OCTAVE_IMAGE_PATH");
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	284
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	285 if (! tpath.empty ())
8008 4d13a7a2f6ab dir_path: use singleton class for static data members John W. Eaton <jwe@octave.org> parents: 8007 diff changeset	286 VIMAGE_PATH += dir_path::path_sep_str () + tpath;
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	287
5832 5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	288 tpath = genpath (Vimage_dir, "");
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	289
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	290 if (! tpath.empty ())
8008 4d13a7a2f6ab dir_path: use singleton class for static data members John W. Eaton <jwe@octave.org> parents: 8007 diff changeset	291 VIMAGE_PATH += dir_path::path_sep_str () + tpath;
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	292 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	293
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	294 static void
8865 eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	295 set_default_doc_cache_file (void)
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	296 {
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	297 std::string def_file = subst_octave_home (OCTAVE_DOC_CACHE_FILE);
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	298
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	299 std::string env_file = octave_env::getenv ("OCTAVE_DOC_CACHE_FILE");
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	300
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	301 Vdoc_cache_file = env_file.empty () ? def_file : env_file;
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	302 }
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	303
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	304 static void
14614 4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	305 set_default_texi_macros_file (void)
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	306 {
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	307 std::string def_file = subst_octave_home (OCTAVE_TEXI_MACROS_FILE);
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	308
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	309 std::string env_file = octave_env::getenv ("OCTAVE_TEXI_MACROS_FILE");
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	310
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	311 Vtexi_macros_file = env_file.empty () ? def_file : env_file;
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	312 }
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	313
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	314 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	315 set_default_info_file (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	316 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	317 std::string std_info_file = subst_octave_home (OCTAVE_INFOFILE);
2512 fda09c1e787e [project @ 1996-11-14 08:39:41 by jwe] jwe parents: 2492 diff changeset	318
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	319 std::string oct_info_file = octave_env::getenv ("OCTAVE_INFO_FILE");
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	320
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	321 Vinfo_file = oct_info_file.empty () ? std_info_file : oct_info_file;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	322 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	323
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	324 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	325 set_default_info_prog (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	326 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	327 std::string oct_info_prog = octave_env::getenv ("OCTAVE_INFO_PROGRAM");
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	328
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	329 if (oct_info_prog.empty ())
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	330 Vinfo_program = "info";
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	331 else
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	332 Vinfo_program = std::string (oct_info_prog);
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	333 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	334
4773 ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4486 diff changeset	335 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	336 set_default_editor (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	337 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	338 VEDITOR = "emacs";
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	339
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	340 std::string env_editor = octave_env::getenv ("EDITOR");
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	341
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	342 if (! env_editor.empty ())
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	343 VEDITOR = env_editor;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	344 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	345
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	346 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	347 set_local_site_defaults_file (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	348 {
9132 eb1747dbd360 Update help strings for command line options Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	349 std::string lsf = octave_env::getenv ("OCTAVE_SITE_INITFILE");
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	350
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	351 if (lsf.empty ())
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	352 {
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	353 Vlocal_site_defaults_file = subst_octave_home (OCTAVE_LOCALSTARTUPFILEDIR);
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	354 Vlocal_site_defaults_file.append ("/octaverc");
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	355 }
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	356 else
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	357 Vlocal_site_defaults_file = lsf;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	358 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	359
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	360 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	361 set_site_defaults_file (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	362 {
9132 eb1747dbd360 Update help strings for command line options Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	363 std::string sf = octave_env::getenv ("OCTAVE_VERSION_INITFILE");
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	364
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	365 if (sf.empty ())
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	366 {
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	367 Vsite_defaults_file = subst_octave_home (OCTAVE_STARTUPFILEDIR);
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	368 Vsite_defaults_file.append ("/octaverc");
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	369 }
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	370 else
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	371 Vsite_defaults_file = sf;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	372 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	373
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	374 void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	375 install_defaults (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	376 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	377 // OCTAVE_HOME must be set first!
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	378
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	379 set_octave_home ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	380
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	381 set_default_info_dir ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	382
3141 292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	383 set_default_data_dir ();
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	384
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	385 set_default_libexec_dir ();
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	386
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	387 set_default_arch_lib_dir ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	388
5909 a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	389 set_default_local_ver_arch_lib_dir ();
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	390 set_default_local_api_arch_lib_dir ();
2439 dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	391 set_default_local_arch_lib_dir ();
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	392
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	393 set_default_local_ver_oct_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	394 set_default_local_api_oct_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	395 set_default_local_oct_file_dir ();
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	396
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	397 set_default_local_ver_fcn_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	398 set_default_local_api_fcn_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	399 set_default_local_fcn_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	400
15157 a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	401 set_default_oct_etc_dir ();
a87fa9132b72 provide Voct_etc_dir variable John W. Eaton <jwe@octave.org> parents: 15088 diff changeset	402
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	403 set_default_fcn_file_dir ();
5397 b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	404 set_default_oct_file_dir ();
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	405
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	406 set_default_image_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	407
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	408 set_default_bin_dir ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	409
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	410 set_exec_path ();
4447 252b9162c084 [project @ 2003-07-08 18:37:53 by jwe] jwe parents: 4264 diff changeset	411
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	412 set_image_path ();
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	413
8865 eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	414 set_default_doc_cache_file ();
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	415
14614 4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	416 set_default_texi_macros_file ();
4e9dc46d4125 handle texinfo macros consistently in help system and manual John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	417
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	418 set_default_info_file ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	419
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	420 set_default_info_prog ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	421
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	422 set_default_editor ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	423
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	424 set_local_site_defaults_file ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	425
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	426 set_site_defaults_file ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	427 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	428
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	429 DEFUN (EDITOR, args, nargout,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	430 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	431 @deftypefn {Built-in Function} {@var{val} =} EDITOR ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	432 @deftypefnx {Built-in Function} {@var{old_val} =} EDITOR (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	433 @deftypefnx {Built-in Function} {} EDITOR (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	434 Query or set the internal variable that specifies the editor to\n\
9134 a3739e27b017 Update section 2.4 of basics.txi Rik <rdrider0-list@yahoo.com> parents: 9132 diff changeset	435 use with the @code{edit_history} command. The default value is taken from\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	436 the environment variable @w{@env{EDITOR}} when Octave starts. If the\n\
89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	437 environment variable is not initialized, @w{@env{EDITOR}} will be set to\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	438 @code{\"emacs\"}.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	439 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	440 When called from inside a function with the \"local\" option, the variable is\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	441 changed locally for the function and any subroutines it calls. The original\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	442 variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	443 @seealso{edit_history}\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	444 @end deftypefn")
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	445 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	446 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (EDITOR);
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	447 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	448
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	449 /*
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	450 %!test
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	451 %! orig_val = EDITOR ();
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	452 %! old_val = EDITOR ("X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	453 %! assert (orig_val, old_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	454 %! assert (EDITOR (), "X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	455 %! EDITOR (orig_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	456 %! assert (EDITOR (), orig_val);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	457
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	458 %!error (EDITOR (1, 2))
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	459 */
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	460
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	461 DEFUN (EXEC_PATH, args, nargout,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	462 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	463 @deftypefn {Built-in Function} {@var{val} =} EXEC_PATH ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	464 @deftypefnx {Built-in Function} {@var{old_val} =} EXEC_PATH (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	465 @deftypefnx {Built-in Function} {} EXEC_PATH (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	466 Query or set the internal variable that specifies a colon separated\n\
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	467 list of directories to append to the shell PATH when executing external\n\
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	468 programs. The initial value of is taken from the environment variable\n\
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	469 @w{@env{OCTAVE_EXEC_PATH}}, but that value can be overridden by\n\
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	470 the command line argument @option{--exec-path PATH}.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	471 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	472 When called from inside a function with the \"local\" option, the variable is\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	473 changed locally for the function and any subroutines it calls. The original\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	474 variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	475 @end deftypefn")
4217 301cc4cf87e9 [project @ 2002-12-05 03:33:01 by jwe] jwe parents: 3971 diff changeset	476 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	477 octave_value retval = SET_NONEMPTY_INTERNAL_STRING_VARIABLE (EXEC_PATH);
4217 301cc4cf87e9 [project @ 2002-12-05 03:33:01 by jwe] jwe parents: 3971 diff changeset	478
11298 cb94bdc74670 defaults.cc (FEXEC_PATH): only call set_exec_path if nargin is greater than zero John W. Eaton <jwe@octave.org> parents: 11294 diff changeset	479 if (args.length () > 0)
cb94bdc74670 defaults.cc (FEXEC_PATH): only call set_exec_path if nargin is greater than zero John W. Eaton <jwe@octave.org> parents: 11294 diff changeset	480 set_exec_path (VEXEC_PATH);
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	481
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	482 return retval;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	483 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	484
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	485 /*
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	486 %!test
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	487 %! orig_val = EXEC_PATH ();
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	488 %! old_val = EXEC_PATH ("X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	489 %! assert (orig_val, old_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	490 %! assert (EXEC_PATH (), "X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	491 %! EXEC_PATH (orig_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	492 %! assert (EXEC_PATH (), orig_val);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	493
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	494 %!error (EXEC_PATH (1, 2))
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	495 */
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	496
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	497 DEFUN (IMAGE_PATH, args, nargout,
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	498 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	499 @deftypefn {Built-in Function} {@var{val} =} IMAGE_PATH ()\n\
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	500 @deftypefnx {Built-in Function} {@var{old_val} =} IMAGE_PATH (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	501 @deftypefnx {Built-in Function} {} IMAGE_PATH (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	502 Query or set the internal variable that specifies a colon separated\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	503 list of directories in which to search for image files.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	504 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	505 When called from inside a function with the \"local\" option, the variable is\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	506 changed locally for the function and any subroutines it calls. The original\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	507 variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	508 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	509 {
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	510 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (IMAGE_PATH);
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	511 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	512
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	513 /*
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	514 %!test
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	515 %! orig_val = IMAGE_PATH ();
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	516 %! old_val = IMAGE_PATH ("X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	517 %! assert (orig_val, old_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	518 %! assert (IMAGE_PATH (), "X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	519 %! IMAGE_PATH (orig_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	520 %! assert (IMAGE_PATH (), orig_val);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	521
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	522 %!error (IMAGE_PATH (1, 2))
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	523 */
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	524
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	525 DEFUN (OCTAVE_HOME, args, ,
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	526 "-- texinfo --\n\
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	527 @deftypefn {Built-in Function} {} OCTAVE_HOME ()\n\
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	528 Return the name of the top-level Octave installation directory.\n\
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	529 @end deftypefn")
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	530 {
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	531 octave_value retval;
2831 19c45d29f177 [project @ 1997-03-26 04:17:16 by jwe] jwe parents: 2651 diff changeset	532
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	533 if (args.length () == 0)
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	534 retval = Voctave_home;
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	535 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5814 diff changeset	536 print_usage ();
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	537
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	538 return retval;
5749 26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	539 }
3446 5ee5afb3981a [project @ 2000-01-17 09:42:43 by jwe] jwe parents: 3402 diff changeset	540
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	541 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	542 %!assert (ischar (OCTAVE_HOME ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	543 %!error OCTAVE_HOME (1)
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	544 */
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	545
5749 26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	546 DEFUNX ("OCTAVE_VERSION", FOCTAVE_VERSION, args, ,
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	547 "-- texinfo --\n\
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	548 @deftypefn {Built-in Function} {} OCTAVE_VERSION ()\n\
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	549 Return the version number of Octave, as a string.\n\
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	550 @end deftypefn")
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	551 {
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	552 octave_value retval;
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	553
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	554 int nargin = args.length ();
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	555
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	556 if (nargin == 0)
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	557 retval = OCTAVE_VERSION;
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	558 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5814 diff changeset	559 print_usage ();
5749 26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	560
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	561 return retval;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	562 }
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	563
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	564 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	565 %!assert (ischar (OCTAVE_VERSION ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	566 %!error OCTAVE_VERSION (1)
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	567 */

Mercurial > octave

annotate src/interpfcn/defaults.cc @ 15157:a87fa9132b72