Mercurial > octave-nkf

diff src/utils.cc @ 195:13c6086c325c
[project @ 1993-11-06 10:12:29 by jwe]
author: jwe
date: Sat, 06 Nov 1993 10:14:11 +0000
parents: de0e58f9b064
children: cd2e49fb4f6b
--- a/src/utils.cc	Wed Nov 03 21:38:05 1993 +0000
+++ b/src/utils.cc	Sat Nov 06 10:14:11 1993 +0000
@@ -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;