# HG changeset patch
# User jwe
# Date 774906300 0
# Node ID 75a371805554710195a7702a606a711d51c32386
# Parent  18007cc05a026609531009e42819257a6eb37ab3
[project @ 1994-07-22 19:44:41 by jwe]

diff -r 18007cc05a02 -r 75a371805554 src/dirfns.cc
--- a/src/dirfns.cc	Fri Jul 22 19:04:22 1994 +0000
+++ b/src/dirfns.cc	Fri Jul 22 19:45:00 1994 +0000
@@ -411,8 +411,6 @@
   return retval;
 }
 
-DEFALIAS (dir, ls);
-
 /*
  * Get a directory listing.
  */
@@ -453,6 +451,8 @@
   return retval;
 }
 
+DEFALIAS (dir, ls);
+
 DEFUN ("pwd", Fpwd, Spwd, 1, 0,
   "pwd (): print current working directory")
 {
diff -r 18007cc05a02 -r 75a371805554 src/octave.cc
--- a/src/octave.cc	Fri Jul 22 19:04:22 1994 +0000
+++ b/src/octave.cc	Fri Jul 22 19:45:00 1994 +0000
@@ -579,8 +579,6 @@
   return retval;
 }
 
-DEFALIAS (exit, quit);
-
 DEFUN ("flops", Fflops, Sflops, 2, 1,
   "flops (): count floating point operations")
 {
@@ -603,6 +601,8 @@
   return retval;
 }
 
+DEFALIAS (exit, quit);
+
 DEFUN ("warranty", Fwarranty, Swarranty, 1, 0,
   "warranty (): describe copying conditions")
 {
diff -r 18007cc05a02 -r 75a371805554 src/sysdep.cc
--- a/src/sysdep.cc	Fri Jul 22 19:04:22 1994 +0000
+++ b/src/sysdep.cc	Fri Jul 22 19:45:00 1994 +0000
@@ -389,6 +389,8 @@
   return retval;
 }
 
+DEFALIAS (home, clc);
+
 DEFUN ("getenv", Fgetenv, Sgetenv, 2, 1,
   "getenv (STRING): get environment variable values")
 {
@@ -410,8 +412,6 @@
   return retval;
 }
 
-DEFALIAS (home, clc);
-
 DEFUN ("kbhit", Fkbhit, Skbhit, 1, 1,
   "kbhit: get a single character from the terminal")
 {
diff -r 18007cc05a02 -r 75a371805554 src/variables.cc
--- a/src/variables.cc	Fri Jul 22 19:04:22 1994 +0000
+++ b/src/variables.cc	Fri Jul 22 19:45:00 1994 +0000
@@ -204,6 +204,21 @@
 }
 
 void
+alias_builtin (const char *alias, const char *name)
+{
+  symbol_record *sr_name = global_sym_tab->lookup (name, 0, 0);
+  if (! sr_name)
+    panic ("can't alias to undefined name!");
+
+  symbol_record *sr_alias = global_sym_tab->lookup (alias, 1, 0);
+
+  if (sr_alias)
+    sr_alias->alias (sr_name);
+  else
+    panic_impossible ();
+}
+
+void
 bind_nargin_and_nargout (symbol_table *sym_tab, int nargin, int nargout)
 {
   tree_constant *tmp;
@@ -1399,6 +1414,13 @@
   return 0;
 }
 
+static int
+is_globally_visible (const char *name)
+{
+  symbol_record *sr = curr_sym_tab->lookup (name, 0, 0);
+  return (sr && sr->is_linked_to_global ());
+}
+
 DEFUN_TEXT ("save", Fsave, Ssave, -1, 1,
   "save file [var ...]\n\
 \n\
@@ -1406,7 +1428,6 @@
 {
   Octave_object retval;
 
-#if 0
   DEFINE_ARGV("save");
 
   if (argc < 2)
@@ -1505,7 +1526,6 @@
     file.close ();
 
   DELETE_ARGV;
-#endif
 
   return retval;
 }