projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added more (hopefully usefull) comments
[pspp]
/
src
/
language
/
control
/
repeat.c
diff --git
a/src/language/control/repeat.c
b/src/language/control/repeat.c
index e518d51e112885bd3a7fae6d0537da5599bd10f8..32847bb4a9298bd100f0cb80e8489097adc7d8ca 100644
(file)
--- a/
src/language/control/repeat.c
+++ b/
src/language/control/repeat.c
@@
-330,7
+330,7
@@
parse_lines (struct lexer *lexer, struct repeat_block *block)
&command_ends_after_line);
if (recognize_do_repeat (ds_ss (&text)))
{
&command_ends_after_line);
if (recognize_do_repeat (ds_ss (&text)))
{
- if (get_syntax () == COMPATIBLE)
+ if (
settings_
get_syntax () == COMPATIBLE)
msg (SE, _("DO REPEAT may not nest in compatibility mode."));
else
nesting_level++;
msg (SE, _("DO REPEAT may not nest in compatibility mode."));
else
nesting_level++;
@@
-525,8
+525,7
@@
do_repeat_filter (struct getl_interface *block_,
/* Strip trailing whitespace, check for & remove terminal dot. */
ds_rtrim (line, ss_cstr (CC_SPACES));
/* Strip trailing whitespace, check for & remove terminal dot. */
ds_rtrim (line, ss_cstr (CC_SPACES));
- dot = ds_chomp (line, get_endcmd ());
-
+ dot = ds_chomp (line, settings_get_endcmd ());
input = ds_ss (line);
in_apos = in_quote = false;
while ((c = ss_first (input)) != EOF)
input = ds_ss (line);
in_apos = in_quote = false;
while ((c = ss_first (input)) != EOF)
@@
-549,7
+548,7
@@
do_repeat_filter (struct getl_interface *block_,
}
}
if (dot)
}
}
if (dot)
- ds_put_char (&output, get_endcmd ());
+ ds_put_char (&output,
settings_
get_endcmd ());
ds_swap (line, &output);
ds_destroy (&output);
ds_swap (line, &output);
ds_destroy (&output);