Mercurial > hg > octave-lyh

diff src/utils.cc @ 195:13c6086c325c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-06 10:12:29 by jwe]
author jwe
date Sat, 06 Nov 1993 10:14:11 +0000
parents de0e58f9b064
children cd2e49fb4f6b
line wrap: on
line diff
--- a/src/utils.cc
+++ b/src/utils.cc
@@ -386,7 +386,7 @@
   return path;
 }
 
-static char *
+char *
 octave_home (void)
 {
   static char *home =  (char *) NULL;
@@ -399,7 +399,7 @@
   return home;
 }
 
-static char *
+char *
 octave_lib_dir (void)
 {
   static char *ol = (char *) NULL;
@@ -410,7 +410,7 @@
   return ol;
 }
 
-static char *
+char *
 octave_info_dir (void)
 {
   static char *oi = (char *) NULL;
@@ -453,6 +453,19 @@
 }
 
 char *
+default_editor (void)
+{
+  static char *editor_string = (char *) NULL;
+  delete [] editor_string;
+  char *env_editor = getenv ("EDITOR");
+  if (env_editor == (char *) NULL || *env_editor == '\0')
+    editor_string = strsave ("vi");
+  else
+    editor_string = strsave (env_editor);
+  return editor_string;
+}
+
+char *
 get_site_defaults (void)
 {
   static char *sd = (char *) NULL;