octave-lyh: src/defaults.cc annotate

annotate src/defaults.cc @ 14429:eff4a5933e28

Update %!tests in src/ directory with Octave coding conventions. * data.cc, defaults.cc, dirfns.cc, file-io.cc, graphics.cc, mappers.cc, oct-map.cc, octave.cc, ov-base.cc, ov-bool-mat.cc, ov-cell.cc, ov-fcn-handle.cc, ov-fcn-inline.cc, ov-flt-re-mat.cc, ov-int16.cc, ov-int32.cc, ov-int64.cc, ov-int8.cc, ov-null-mat.cc, ov-oncleanup.cc, ov-range.cc, ov-re-mat.cc, ov-struct.cc, ov-typeinfo.cc, ov-uint16.cc, ov-uint32.cc, ov-uint64.cc, ov-uint8.cc, ov.cc, pr-output.cc, pt-binop.cc, pt-eval.cc, pt-idx.cc, pt-mat.cc, sighandlers.cc, strfns.cc, symtab.cc, syscalls.cc, sysdep.cc, toplev.cc, utils.cc, variables.cc: Update %!tests in src/ directory with Octave coding conventions.

author	Rik <octave@nomad.inbox5.com>
date	Sun, 04 Mar 2012 12:21:10 -0800
parents	72c96de7a403
children	4e9dc46d4125

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
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	77 std::string Voct_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	78 std::string Vfcn_file_dir;
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	79
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	80 std::string Vimage_dir;
4447 252b9162c084 [project @ 2003-07-08 18:37:53 by jwe] jwe parents: 4264 diff changeset	81
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	82 // 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	83 // (--exec-path path)
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	84 static std::string VEXEC_PATH;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	85
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	86 // 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	87 std::string VEDITOR;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	88
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	89 static std::string VIMAGE_PATH;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	90
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	91 std::string Vlocal_site_defaults_file;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	92 std::string Vsite_defaults_file;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	93
6274 d42abdfcb8e9 [project @ 2007-02-07 07:22:02 by jwe] jwe parents: 6228 diff changeset	94 std::string
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	95 subst_octave_home (const std::string& s)
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	96 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	97 std::string retval;
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 prefix = OCTAVE_PREFIX;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	100
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	101 retval = s;
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 if (Voctave_home != prefix)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	104 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4776 diff changeset	105 octave_idx_type len = prefix.length ();
6276 d26c558691cd [project @ 2007-02-07 09:01:24 by jwe] jwe parents: 6274 diff changeset	106
d26c558691cd [project @ 2007-02-07 09:01:24 by jwe] jwe parents: 6274 diff changeset	107 if (s.substr (0, len) == prefix)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	108 retval.replace (0, len, Voctave_home);
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	109 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	110
8007 a2ab20ba78f7 make file_ops a proper singleton class John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	111 if (file_ops::dir_sep_char () != '/')
a2ab20ba78f7 make file_ops a proper singleton class John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	112 std::replace (retval.begin (), retval.end (), '/',
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	113 file_ops::dir_sep_char ());
6114 a0dafb51dd06 [project @ 2006-10-27 14:02:16 by jwe] jwe parents: 5909 diff changeset	114
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	115 return retval;
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	116 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	117
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	118 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	119 set_octave_home (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	120 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	121 std::string oh = octave_env::getenv ("OCTAVE_HOME");
2203 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 Voctave_home = oh.empty () ? std::string (OCTAVE_PREFIX) : oh;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	124 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	125
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	126 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	127 set_default_info_dir (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	128 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	129 Vinfo_dir = subst_octave_home (OCTAVE_INFODIR);
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
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	132 static void
3141 292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	133 set_default_data_dir (void)
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	134 {
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	135 Vdata_dir = subst_octave_home (OCTAVE_DATADIR);
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
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	138 static void
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	139 set_default_libexec_dir (void)
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	140 {
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	141 Vlibexec_dir = subst_octave_home (OCTAVE_LIBEXECDIR);
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
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	144 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	145 set_default_arch_lib_dir (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	146 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	147 Varch_lib_dir = subst_octave_home (OCTAVE_ARCHLIBDIR);
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
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	150 static void
2439 dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	151 set_default_local_arch_lib_dir (void)
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	152 {
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	153 Vlocal_arch_lib_dir = subst_octave_home (OCTAVE_LOCALARCHLIBDIR);
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
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	156 static void
5909 a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	157 set_default_local_api_arch_lib_dir (void)
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	158 {
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	159 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	160 }
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	161
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	162 static void
3597 26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	163 set_default_local_ver_arch_lib_dir (void)
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	164 {
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	165 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	166 }
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	167
26662775f4e9 [project @ 2000-02-12 02:24:41 by jwe] jwe parents: 3535 diff changeset	168 static void
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	169 set_default_local_ver_oct_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	170 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	171 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	172 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	173
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	174 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	175 set_default_local_api_oct_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	176 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	177 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	178 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	179
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	180 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	181 set_default_local_oct_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	182 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	183 Vlocal_oct_file_dir = subst_octave_home (OCTAVE_LOCALOCTFILEDIR);
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
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	186 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	187 set_default_local_ver_fcn_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	188 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	189 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	190 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	191
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	192 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	193 set_default_local_api_fcn_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	194 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	195 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	196 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	197
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	198 static void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	199 set_default_local_fcn_file_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	200 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	201 Vlocal_fcn_file_dir = subst_octave_home (OCTAVE_LOCALFCNFILEDIR);
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
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	204 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	205 set_default_fcn_file_dir (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	206 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	207 Vfcn_file_dir = subst_octave_home (OCTAVE_FCNFILEDIR);
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
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	210 static void
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	211 set_default_image_dir (void)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	212 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	213 Vimage_dir = subst_octave_home (OCTAVE_IMAGEDIR);
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
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	216 static void
5397 b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	217 set_default_oct_file_dir (void)
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	218 {
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	219 Voct_file_dir = subst_octave_home (OCTAVE_OCTFILEDIR);
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	220 }
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	221
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	222 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	223 set_default_bin_dir (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	224 {
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	225 Vbin_dir = subst_octave_home (OCTAVE_BINDIR);
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	226 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	227
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	228 void
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	229 set_exec_path (const std::string& path_arg)
4447 252b9162c084 [project @ 2003-07-08 18:37:53 by jwe] jwe parents: 4264 diff changeset	230 {
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	231 std::string tpath = path_arg;
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	232
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	233 if (tpath.empty ())
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	234 tpath = octave_env::getenv ("OCTAVE_EXEC_PATH");
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	235
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	236 if (tpath.empty ())
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	237 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	238 + 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	239 + 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	240 + Varch_lib_dir + dir_path::path_sep_str ()
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	241 + Vbin_dir;
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	242
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	243 VEXEC_PATH = tpath;
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	244
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	245 // 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	246 // 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	247 // PATH with calls like
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	248 //
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	249 // setenv ("PATH", "/my/path");
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 // 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	252 // 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	253 // 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	254 // searching.
e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	255
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	256 // 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	257 // 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	258 // before we start modifying it.
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	259 static std::string shell_path = octave_env::getenv ("PATH");
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	260
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	261 if (! shell_path.empty ())
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	262 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	263
11294 e2a4f3478b7c datetick.m: add missing semicolon John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	264 octave_env::putenv ("PATH", tpath);
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	265 }
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	266
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	267 void
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	268 set_image_path (const std::string& path)
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	269 {
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	270 VIMAGE_PATH = ".";
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	271
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	272 std::string tpath = path;
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 if (tpath.empty ())
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	275 tpath = octave_env::getenv ("OCTAVE_IMAGE_PATH");
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	276
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	277 if (! tpath.empty ())
8008 4d13a7a2f6ab dir_path: use singleton class for static data members John W. Eaton <jwe@octave.org> parents: 8007 diff changeset	278 VIMAGE_PATH += dir_path::path_sep_str () + tpath;
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	279
5832 5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	280 tpath = genpath (Vimage_dir, "");
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	281
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	282 if (! tpath.empty ())
8008 4d13a7a2f6ab dir_path: use singleton class for static data members John W. Eaton <jwe@octave.org> parents: 8007 diff changeset	283 VIMAGE_PATH += dir_path::path_sep_str () + tpath;
5814 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
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	286 static void
8865 eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	287 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	288 {
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	289 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	290
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	291 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	292
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	293 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	294 }
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	295
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	296 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	297 set_default_info_file (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	298 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	299 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	300
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	301 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	302
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	303 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	304 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	305
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	306 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	307 set_default_info_prog (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	308 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	309 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	310
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	311 if (oct_info_prog.empty ())
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	312 Vinfo_program = "info";
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	313 else
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	314 Vinfo_program = std::string (oct_info_prog);
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	315 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	316
4773 ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4486 diff changeset	317 static void
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	318 set_default_editor (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	319 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	320 VEDITOR = "emacs";
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	321
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	322 std::string env_editor = octave_env::getenv ("EDITOR");
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	323
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	324 if (! env_editor.empty ())
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	325 VEDITOR = env_editor;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	326 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	327
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	328 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	329 set_local_site_defaults_file (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	330 {
9132 eb1747dbd360 Update help strings for command line options Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	331 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	332
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	333 if (lsf.empty ())
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	334 {
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	335 Vlocal_site_defaults_file = subst_octave_home (OCTAVE_LOCALSTARTUPFILEDIR);
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	336 Vlocal_site_defaults_file.append ("/octaverc");
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	337 }
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	338 else
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	339 Vlocal_site_defaults_file = lsf;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	340 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	341
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	342 static void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	343 set_site_defaults_file (void)
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	344 {
9132 eb1747dbd360 Update help strings for command line options Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	345 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	346
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	347 if (sf.empty ())
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	348 {
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	349 Vsite_defaults_file = subst_octave_home (OCTAVE_STARTUPFILEDIR);
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	350 Vsite_defaults_file.append ("/octaverc");
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	351 }
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	352 else
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5780 diff changeset	353 Vsite_defaults_file = sf;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	354 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	355
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	356 void
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	357 install_defaults (void)
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 // OCTAVE_HOME must be set first!
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	360
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	361 set_octave_home ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	362
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	363 set_default_info_dir ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	364
3141 292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	365 set_default_data_dir ();
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	366
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	367 set_default_libexec_dir ();
292ff0bf484b [project @ 1998-02-03 08:11:07 by jwe] jwe parents: 3040 diff changeset	368
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	369 set_default_arch_lib_dir ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	370
5909 a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	371 set_default_local_ver_arch_lib_dir ();
a6a2423a9c25 [project @ 2006-07-27 19:35:22 by jwe] jwe parents: 5832 diff changeset	372 set_default_local_api_arch_lib_dir ();
2439 dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	373 set_default_local_arch_lib_dir ();
dc870b8b229f [project @ 1996-10-30 07:57:31 by jwe] jwe parents: 2390 diff changeset	374
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	375 set_default_local_ver_oct_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	376 set_default_local_api_oct_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	377 set_default_local_oct_file_dir ();
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	378
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	379 set_default_local_ver_fcn_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	380 set_default_local_api_fcn_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	381 set_default_local_fcn_file_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	382
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	383 set_default_fcn_file_dir ();
5397 b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	384 set_default_oct_file_dir ();
b12c0f920da0 [project @ 2005-06-17 07:52:28 by jwe] jwe parents: 5395 diff changeset	385
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	386 set_default_image_dir ();
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	387
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	388 set_default_bin_dir ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	389
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	390 set_exec_path ();
4447 252b9162c084 [project @ 2003-07-08 18:37:53 by jwe] jwe parents: 4264 diff changeset	391
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	392 set_image_path ();
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	393
8865 eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	394 set_default_doc_cache_file ();
eace5649a8b5 set default value for doc_cache_file variable John W. Eaton <jwe@octave.org> parents: 8008 diff changeset	395
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	396 set_default_info_file ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	397
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	398 set_default_info_prog ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	399
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	400 set_default_editor ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	401
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	402 set_local_site_defaults_file ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	403
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	404 set_site_defaults_file ();
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	405 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	406
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	407 DEFUN (EDITOR, args, nargout,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	408 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	409 @deftypefn {Built-in Function} {@var{val} =} EDITOR ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	410 @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	411 @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	412 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	413 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	414 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	415 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	416 @code{\"emacs\"}.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	417 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	418 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	419 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	420 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	421 @seealso{edit_history}\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	422 @end deftypefn")
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	423 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	424 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (EDITOR);
2203 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
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	427 /*
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	428 %!test
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	429 %! orig_val = EDITOR ();
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	430 %! old_val = EDITOR ("X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	431 %! assert (orig_val, old_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	432 %! assert (EDITOR (), "X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	433 %! EDITOR (orig_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	434 %! assert (EDITOR (), orig_val);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	435
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	436 %!error (EDITOR (1, 2))
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	437 */
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	438
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	439 DEFUN (EXEC_PATH, args, nargout,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	440 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	441 @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	442 @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	443 @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	444 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	445 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	446 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	447 @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	448 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	449 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	450 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	451 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	452 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	453 @end deftypefn")
4217 301cc4cf87e9 [project @ 2002-12-05 03:33:01 by jwe] jwe parents: 3971 diff changeset	454 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	455 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	456
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	457 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	458 set_exec_path (VEXEC_PATH);
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	459
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	460 return retval;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	461 }
88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	462
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	463 /*
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	464 %!test
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	465 %! orig_val = EXEC_PATH ();
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	466 %! old_val = EXEC_PATH ("X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	467 %! assert (orig_val, old_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	468 %! assert (EXEC_PATH (), "X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	469 %! EXEC_PATH (orig_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	470 %! 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	471
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	472 %!error (EXEC_PATH (1, 2))
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	473 */
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	474
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	475 DEFUN (IMAGE_PATH, args, nargout,
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	476 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	477 @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	478 @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	479 @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	480 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	481 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	482 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12855 diff changeset	483 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	484 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	485 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	486 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	487 {
5814 67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe] jwe parents: 5794 diff changeset	488 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (IMAGE_PATH);
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	489 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5781 diff changeset	490
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	491 /*
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	492 %!test
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	493 %! orig_val = IMAGE_PATH ();
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	494 %! old_val = IMAGE_PATH ("X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	495 %! assert (orig_val, old_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	496 %! assert (IMAGE_PATH (), "X");
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	497 %! IMAGE_PATH (orig_val);
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	498 %! 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	499
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	500 %!error (IMAGE_PATH (1, 2))
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	501 */
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	502
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	503 DEFUN (OCTAVE_HOME, args, ,
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	504 "-- texinfo --\n\
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	505 @deftypefn {Built-in Function} {} OCTAVE_HOME ()\n\
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	506 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	507 @end deftypefn")
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	508 {
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	509 octave_value retval;
2831 19c45d29f177 [project @ 1997-03-26 04:17:16 by jwe] jwe parents: 2651 diff changeset	510
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	511 if (args.length () == 0)
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	512 retval = Voctave_home;
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	513 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5814 diff changeset	514 print_usage ();
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	515
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5777 diff changeset	516 return retval;
5749 26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	517 }
3446 5ee5afb3981a [project @ 2000-01-17 09:42:43 by jwe] jwe parents: 3402 diff changeset	518
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	519 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	520 %!assert (ischar (OCTAVE_HOME ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	521 %!error OCTAVE_HOME (1)
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	522 */
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	523
5749 26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	524 DEFUNX ("OCTAVE_VERSION", FOCTAVE_VERSION, args, ,
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	525 "-- texinfo --\n\
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	526 @deftypefn {Built-in Function} {} OCTAVE_VERSION ()\n\
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	527 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	528 @end deftypefn")
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	529 {
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	530 octave_value retval;
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	531
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	532 int nargin = args.length ();
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	533
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	534 if (nargin == 0)
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	535 retval = OCTAVE_VERSION;
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	536 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5814 diff changeset	537 print_usage ();
5749 26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	538
26beffa9f66f [project @ 2006-04-07 20:35:07 by jwe] jwe parents: 5451 diff changeset	539 return retval;
2203 88a4d3580427 [project @ 1996-05-15 06:09:30 by jwe] jwe parents: diff changeset	540 }
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	541
7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	542 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	543 %!assert (ischar (OCTAVE_VERSION ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	544 %!error OCTAVE_VERSION (1)
12851 7fce673b934a codesprint: new tests for defaults.cc John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	545 */

Mercurial > hg > octave-lyh

annotate src/defaults.cc @ 14429:eff4a5933e28