/* Format of reals in output (SET WRB). */
enum float_format output_float_format;
+ /* MATRIX...END MATRIX settings. */
+ enum settings_mdisplay mdisplay;
+
int viewlength;
int viewwidth;
bool safer_mode;
double blanks;
int max_messages[MSG_N_SEVERITIES];
bool printback;
- bool mprint;
+
+ /* Macro settings. */
+ bool mexpand; /* Expand macros? */
+ bool mprint; /* Print macro expansions? */
+ int miterate; /* Maximum iterations of !FOR. */
+ int mnest; /* Maximum nested macro expansion levels. */
+
int mxloops;
size_t workspace;
struct fmt_spec default_format;
.input_float_format = FLOAT_NATIVE_DOUBLE,
.output_integer_format = INTEGER_NATIVE,
.output_float_format = FLOAT_NATIVE_DOUBLE,
+ .mdisplay = SETTINGS_MDISPLAY_TEXT,
.viewlength = 24,
.viewwidth = 79,
.safer_mode = false,
},
.printback = true,
- .mprint = true,
+
+ .mexpand = true,
+ .mprint = false,
+ .miterate = 1000,
+ .mnest = 50,
+
.mxloops = 40,
.workspace = 64L * 1024 * 1024,
.default_format = { .type = FMT_F, .w = 8, .d = 2 },
the_settings.include = include;
}
+/* Returns the year that starts the epoch. */
+int
+settings_get_epoch (void)
+{
+ return the_settings.styles.epoch;
+}
+
/* Sets the year that starts the epoch. */
void
settings_set_epoch (int epoch)
the_settings.max_messages[severity] = max;
}
+/* Returns whether to expand macro invocations. */
+bool
+settings_get_mexpand (void)
+{
+ return the_settings.mexpand;
+}
+
+/* Sets whether to expand macro invocations. */
+void
+settings_set_mexpand (bool mexpand)
+{
+ the_settings.mexpand = mexpand;
+}
+
/* Independent of get_printback, controls whether the commands
generated by macro invocations are displayed. */
bool
the_settings.mprint = mprint;
}
+/* Returns the limit for loop iterations within a macro. */
+int
+settings_get_miterate (void)
+{
+ return the_settings.miterate;
+}
+
+/* Sets the limit for loop iterations within a macro. */
+void
+settings_set_miterate (int miterate)
+{
+ the_settings.miterate = miterate;
+}
+
+/* Returns the limit for recursion macro expansions. */
+int settings_get_mnest (void)
+{
+ return the_settings.mnest;
+}
+
+/* Sets the limit for recursion macro expansions. */
+void
+settings_set_mnest (int mnest)
+{
+ the_settings.mnest = mnest;
+}
+
+int settings_get_mxloops (void);
+void settings_set_mxloops (int);
/* Implied limit of unbounded loop. */
int
settings_get_mxloops (void)
{
the_settings.show_variables = s;
}
+
+enum settings_mdisplay
+settings_get_mdisplay (void)
+{
+ return the_settings.mdisplay;
+}
+
+void
+settings_set_mdisplay (enum settings_mdisplay mdisplay)
+{
+ the_settings.mdisplay = mdisplay;
+}