From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sat, 5 Nov 2011 23:10:54 +0000 (-0700)
Subject: settings: Implement MXLOOPS subcommand.
X-Git-Tag: v0.7.9~110
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2a9e84da09c7c9a604471fb9591e401588db49d1;p=pspp-builds.git

settings: Implement MXLOOPS subcommand.

It had been overlooked.

The following commit adds a test.
---

diff --git a/src/language/utilities/set.q b/src/language/utilities/set.q
index ea040cb5..c538c8c4 100644
--- a/src/language/utilities/set.q
+++ b/src/language/utilities/set.q
@@ -150,6 +150,13 @@ cmd_set (struct lexer *lexer, struct dataset *ds)
     settings_set_include (cmd.inc == STC_ON);
   if (cmd.sbc_mxerrs)
     settings_set_max_messages (MSG_S_ERROR, cmd.n_mxerrs[0]);
+  if (cmd.sbc_mxloops)
+    {
+      if (cmd.n_mxloops[0] >= 1)
+        settings_set_mxloops (cmd.n_mxloops[0]);
+      else
+        msg (SE, _("%s must be at least 1."), "MXLOOPS");
+    }
   if (cmd.sbc_mxwarns)
     settings_set_max_messages (MSG_S_WARNING, cmd.n_mxwarns[0]);
   if (cmd.sbc_rib)