From: John Darrington <john@darrington.wattle.id.au>
Date: Sun, 17 Mar 2013 13:03:41 +0000 (+0100)
Subject: Added the SHOW WORKSPACE command which was absent.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=af563b6614fd4d6f2bf1bdd6f88b3b2c3a2ac732;p=pspp

Added the SHOW WORKSPACE command which was absent.

Reported-by: Stefan Tzeggai
---

diff --git a/src/language/utilities/set.q b/src/language/utilities/set.q
index e6e816a8b7..8f59156e2b 100644
--- a/src/language/utilities/set.q
+++ b/src/language/utilities/set.q
@@ -872,6 +872,12 @@ show_width (const struct dataset *ds UNUSED)
   return xasprintf ("%d", settings_get_viewwidth ());
 }
 
+static char *
+show_workspace (const struct dataset *ds UNUSED)
+{
+  return xasprintf ("%d", settings_get_workspace ());
+}
+
 static char *
 show_current_directory (const struct dataset *ds UNUSED)
 {
@@ -963,6 +969,7 @@ const struct show_sbc show_table[] =
     {"WIB", show_wib},
     {"WRB", show_wrb},
     {"WIDTH", show_width},
+    {"WORKSPACE", show_workspace},
   };
 
 static void