projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix lack of ->name and ->location in DO REPEAT's getl_interface.
[pspp-builds.git]
/
src
/
language
/
syntax-file.c
diff --git
a/src/language/syntax-file.c
b/src/language/syntax-file.c
index e41466cedd55d180986749cc4a27abc98e7cb9a4..4f667c1284795d84393cdc1d0b9c5355436ee0a6 100644
(file)
--- a/
src/language/syntax-file.c
+++ b/
src/language/syntax-file.c
@@
-78,7
+78,8
@@
line_number (const struct getl_interface *s)
/* Reads a line from syntax file source S into LINE.
Returns true if successful, false at end of file. */
bool
/* Reads a line from syntax file source S into LINE.
Returns true if successful, false at end of file. */
bool
-read_syntax_file (struct getl_interface *s, struct string *line)
+read_syntax_file (struct getl_interface *s,
+ struct string *line, enum getl_syntax *syntax)
{
struct syntax_file_source *sfs = (struct syntax_file_source *) s;
{
struct syntax_file_source *sfs = (struct syntax_file_source *) s;
@@
-114,6
+115,7
@@
read_syntax_file (struct getl_interface *s, struct string *line)
if (get_echo ())
tab_output_text (TAB_LEFT | TAB_FIX, ds_cstr (line));
if (get_echo ())
tab_output_text (TAB_LEFT | TAB_FIX, ds_cstr (line));
+ *syntax = GETL_BATCH;
return true;
}
return true;
}