Mercurial > octave-nkf

changeset 422:875977d1f8cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-05-23 20:50:51 by jwe]
author jwe
date Mon, 23 May 1994 20:50:51 +0000
parents 92f07c38e821
children 49345c503741
files src/utils.cc
diffstat 1 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/utils.cc	Mon May 23 07:07:47 1994 +0000
+++ b/src/utils.cc	Mon May 23 20:50:51 1994 +0000
@@ -439,6 +439,10 @@
 char *
 octave_home (void)
 {
+#ifdef RUN_IN_PLACE
+  static char *home = OCTAVE_HOME;
+  return home;
+#else
   static char *home =  (char *) NULL;
   delete [] home;
   char *oh = getenv ("OCTAVE_HOME");
@@ -447,11 +451,16 @@
   else
     home = strsave (OCTAVE_HOME);
   return home;
+#endif
 }
 
 char *
 octave_lib_dir (void)
 {
+#ifdef RUN_IN_PLACE
+  static char *ol = OCTAVE_LIB_DIR;
+  return ol;
+#else
   static char *ol = (char *) NULL;
   delete [] ol;
   char *oh = octave_home ();
@@ -459,16 +468,22 @@
   ol = strconcat (tmp, version_string);
   delete [] tmp;
   return ol;
+#endif
 }
 
 char *
 octave_info_dir (void)
 {
+#ifdef RUN_IN_PLACE
+  static char *oi = OCTAVE_INFO_DIR;
+  return oi;
+#else
   static char *oi = (char *) NULL;
   delete [] oi;
   char *oh = octave_home ();
   oi = strconcat (oh, "/info/");
   return oi;
+#endif
 }
 
 /*