Mercurial > hg > octave-nkf
changeset 422:875977d1f8cf
[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 +++ 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 } /*