Mercurial > hg > octave-nkf

diff src/utils.cc @ 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 9b12e22758d5
children 90964309100b
line wrap: on
line diff
--- a/src/utils.cc
+++ b/src/utils.cc
@@ -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
 }
 
 /*