projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
NPAR /J-T correct significance calculation when test statistic is greater than zero
[pspp]
/
src
/
language
/
data-io
/
save.c
diff --git
a/src/language/data-io/save.c
b/src/language/data-io/save.c
index b06a850add59d8d8def01e9a085c60c70c8b997b..b930855ec2e27ac246fe884feace49efd1c0c428 100644
(file)
--- a/
src/language/data-io/save.c
+++ b/
src/language/data-io/save.c
@@
-23,9
+23,9
@@
#include "data/case.h"
#include "data/casereader.h"
#include "data/casewriter.h"
#include "data/case.h"
#include "data/casereader.h"
#include "data/casewriter.h"
+#include "data/dataset.h"
#include "data/dictionary.h"
#include "data/por-file-writer.h"
#include "data/dictionary.h"
#include "data/por-file-writer.h"
-#include "data/procedure.h"
#include "data/sys-file-writer.h"
#include "data/transformations.h"
#include "data/variable.h"
#include "data/sys-file-writer.h"
#include "data/transformations.h"
#include "data/variable.h"
@@
-196,7
+196,7
@@
parse_write_command (struct lexer *lexer, struct dataset *ds,
lex_match (lexer, T_EQUALS);
lex_match (lexer, T_EQUALS);
- handle = fh_parse (lexer, FH_REF_FILE
| FH_REF_SCRATCH
);
+ handle = fh_parse (lexer, FH_REF_FILE
, NULL
);
if (handle == NULL)
goto error;
}
if (handle == NULL)
goto error;
}
@@
-213,8
+213,8
@@
parse_write_command (struct lexer *lexer, struct dataset *ds,
cw = true;
else
{
cw = true;
else
{
- lex_error
(lexer, _("expecting %s or %s")
,
-
"READONLY", "WRITEABLE"
);
+ lex_error
_expecting (lexer, "READONLY", "WRITEABLE"
,
+
NULL_SENTINEL
);
goto error;
}
sysfile_opts.create_writeable = porfile_opts.create_writeable = cw;
goto error;
}
sysfile_opts.create_writeable = porfile_opts.create_writeable = cw;
@@
-228,7
+228,7
@@
parse_write_command (struct lexer *lexer, struct dataset *ds,
*retain_unselected = false;
else
{
*retain_unselected = false;
else
{
- lex_error
(lexer, _("expecting %s or %s"), "RETAIN", "DELETE"
);
+ lex_error
_expecting (lexer, "RETAIN", "DELETE", NULL_SENTINEL
);
goto error;
}
}
goto error;
}
}
@@
-256,7
+256,7
@@
parse_write_command (struct lexer *lexer, struct dataset *ds,
porfile_opts.type = PFM_TAPE;
else
{
porfile_opts.type = PFM_TAPE;
else
{
- lex_error
(lexer, _("expecting %s or %s"), "COMM", "TAPE"
);
+ lex_error
_expecting (lexer, "COMM", "TAPE", NULL_SENTINEL
);
goto error;
}
}
goto error;
}
}
@@
-279,7
+279,7
@@
parse_write_command (struct lexer *lexer, struct dataset *ds,
if (handle == NULL)
{
if (handle == NULL)
{
- lex_sbc_missing (
lexer,
"OUTFILE");
+ lex_sbc_missing ("OUTFILE");
goto error;
}
goto error;
}