projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Correct name of function fn_is_special. Thanks to John McCabe-Dansted
[pspp]
/
src
/
language
/
syntax-file.c
diff --git
a/src/language/syntax-file.c
b/src/language/syntax-file.c
index e41466cedd55d180986749cc4a27abc98e7cb9a4..459fee495f7eac54b78ae1411dd80c49d9d24c4a 100644
(file)
--- a/
src/language/syntax-file.c
+++ b/
src/language/syntax-file.c
@@
-1,6
+1,5
@@
/* PSPP - computes sample statistics.
Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
/* PSPP - computes sample statistics.
Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
- Written by Ben Pfaff <blp@gnu.org>.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
@@
-78,7
+77,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
+114,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;
}