Mercurial > jwe > octave

comparison src/octave.cc @ 1153:ce76086a3954

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-02-27 03:58:47 by jwe]
author jwe
date Mon, 27 Feb 1995 03:58:47 +0000
parents 3508c2ef142c
children b6360f2d4fa6
comparison
equal deleted inserted replaced
1152:8cb9792efbf4 1153:ce76086a3954
235 sprintf (putenv_cmd, "PATH=%s" SEPCHAR_STR "%s", arch_dir, bin_dir); 235 sprintf (putenv_cmd, "PATH=%s" SEPCHAR_STR "%s", arch_dir, bin_dir);
236 } 236 }
237 237
238 putenv (putenv_cmd); 238 putenv (putenv_cmd);
239 239
240 // This may seem odd, but doing it this way means that we don't have
241 // to modify the kpathsea library...
242
243 char *odb = getenv ("OCTAVE_DB_DIR");
244
245 if (odb)
246 putenv (strconcat ("TEXMF=", odb));
247 else
248 {
249 char *oh = getenv ("OCTAVE_HOME");
250
251 if (oh)
252 {
253 len = strlen (oh) + 18;
254 putenv_cmd = new char [len];
255 sprintf (putenv_cmd, "TEXMF=%s/lib/octave", oh);
256 putenv (putenv_cmd);
257 }
258 else
259 putenv (strsave ("TEXMF=" OCTAVE_DATADIR "/octave"));
260 }
261
240 raw_prog_name = strsave (name); 262 raw_prog_name = strsave (name);
241 prog_name = strsave ("octave"); 263 prog_name = strsave ("octave");
242 264
243 load_path = default_path (); 265 load_path = default_path ();
244 266