projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
psppire-output-window: Insert a half-line of space between output items.
[pspp]
/
src
/
language
/
control
/
repeat.c
diff --git
a/src/language/control/repeat.c
b/src/language/control/repeat.c
index 1ab3b9c2ff7f49b4d392655aa336bd9087e0cab1..69c92ac108c439ebf141242a5565281070d60861 100644
(file)
--- a/
src/language/control/repeat.c
+++ b/
src/language/control/repeat.c
@@
-1,5
+1,5
@@
/* PSPP - a program for statistical analysis.
/* PSPP - a program for statistical analysis.
- Copyright (C) 1997-9, 2000, 2007, 2009 Free Software Foundation, Inc.
+ Copyright (C) 1997-9, 2000, 2007, 2009
, 2010
Free Software Foundation, Inc.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@
-306,7
+306,10
@@
parse_lines (struct lexer *lexer, struct repeat_block *block)
/* Retrieve an input line and make a copy of it. */
if (!lex_get_line_raw (lexer))
/* Retrieve an input line and make a copy of it. */
if (!lex_get_line_raw (lexer))
- return false;
+ {
+ msg (SE, _("DO REPEAT without END REPEAT."));
+ return false;
+ }
ds_init_string (&text, lex_entire_line_ds (lexer));
/* Record file name. */
ds_init_string (&text, lex_entire_line_ds (lexer));
/* Record file name. */
@@
-618,10
+621,10
@@
do_repeat_name (const struct getl_interface *interface)
}
/* Returns the line number in the source file from which the
}
/* Returns the line number in the source file from which the
- previous line was originally obtained, or
-1
if none. */
+ previous line was originally obtained, or
0
if none. */
static int
do_repeat_location (const struct getl_interface *interface)
{
struct repeat_line *line = current_line (interface);
static int
do_repeat_location (const struct getl_interface *interface)
{
struct repeat_line *line = current_line (interface);
- return line ? line->line_number :
-1
;
+ return line ? line->line_number :
0
;
}
}