diff src/variables.cc @ 1343:94bedeb289e5

[project @ 1995-09-04 00:29:21 by jwe]
author jwe
date Mon, 04 Sep 1995 00:42:19 +0000
parents 611d403c7f3d
children 5f63d83dd694
line wrap: on
line diff
--- a/src/variables.cc	Mon Sep 04 00:24:09 1995 +0000
+++ b/src/variables.cc	Mon Sep 04 00:42:19 1995 +0000
@@ -25,19 +25,13 @@
 #include <config.h>
 #endif
 
-#if 0
-#include <ctype.h>
-#include <iostream.h>
-
-#include "mappers.h"
-#endif
+#include <cfloat>
+#include <cstring>
 
 #include <sys/types.h>
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #endif
-#include <float.h>
-#include <string.h>
 #include <strstream.h>
 
 #include "defaults.h"
@@ -1556,6 +1550,9 @@
   DEFVAR ("ans", SBV_ans, , 0, 0, 1, 0,
     "");
 
+  DEFVAR ("argv", SBV_argv, , 0, 1, 1, 0,
+    "the command line arguments this program was invoked with");
+
   DEFVAR ("automatic_replot", SBV_automatic_replot, "false",
 	  0, 0, 1, automatic_replot,
     "if true, auto-insert a replot command when a plot changes");
@@ -1651,6 +1648,14 @@
 	  0, 0, 1, print_empty_dimensions,
     "also print dimensions of empty matrices");
 
+  DEFVAR ("program_invocation_name", SBV_program_invocation_name,
+	  raw_prog_name, 0, 1, 1, 0,
+    "the full name of the current program or script, including the\n\
+directory specification");
+
+  DEFVAR ("program_name", SBV_program_name, prog_name, 0, 1, 1, 0,
+    "the name of the current program or script");
+
   DEFVAR ("propagate_empty_matrices", SBV_propagate_empty_matrices,
 	  "true", 0, 0, 1, propagate_empty_matrices,
     "operations on empty matrices return an empty matrix, not an error");