X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fsave.c;h=b06a850add59d8d8def01e9a085c60c70c8b997b;hb=d8fdf0b4fa919e48397b438e9453d6b82215ff51;hp=91fbc2fd3bfcb6f6a55ff202698f9c237f52e853;hpb=a7b5ed72c52e462c75a2fed485ed65aaf09a1d39;p=pspp diff --git a/src/language/data-io/save.c b/src/language/data-io/save.c index 91fbc2fd3b..b06a850add 100644 --- a/src/language/data-io/save.c +++ b/src/language/data-io/save.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2006, 2007, 2008, 2009, 2010, 2011 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 @@ -18,25 +18,25 @@ #include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include "xalloc.h" +#include "data/any-writer.h" +#include "data/case-map.h" +#include "data/case.h" +#include "data/casereader.h" +#include "data/casewriter.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 "language/command.h" +#include "language/data-io/file-handle.h" +#include "language/data-io/trim.h" +#include "language/lexer/lexer.h" +#include "libpspp/assertion.h" +#include "libpspp/compiler.h" + +#include "gl/xalloc.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -183,7 +183,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds, case_map_prepare_dict (dict); dict_delete_scratch_vars (dict); - lex_match (lexer, '/'); + lex_match (lexer, T_SLASH); for (;;) { if (lex_match_id (lexer, "OUTFILE")) @@ -194,7 +194,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds, goto error; } - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); handle = fh_parse (lexer, FH_REF_FILE | FH_REF_SCRATCH); if (handle == NULL) @@ -206,7 +206,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds, { bool cw; - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); if (lex_match_id (lexer, "READONLY")) cw = false; else if (lex_match_id (lexer, "WRITEABLE")) @@ -221,7 +221,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds, } else if (command_type == PROC_CMD && lex_match_id (lexer, "UNSELECTED")) { - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); if (lex_match_id (lexer, "RETAIN")) *retain_unselected = true; else if (lex_match_id (lexer, "DELETE")) @@ -241,7 +241,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds, else if (writer_type == SYSFILE_WRITER && lex_match_id (lexer, "VERSION")) { - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); if (!lex_force_int (lexer)) goto error; sysfile_opts.version = lex_integer (lexer); @@ -249,7 +249,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds, } else if (writer_type == PORFILE_WRITER && lex_match_id (lexer, "TYPE")) { - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); if (lex_match_id (lexer, "COMMUNICATIONS")) porfile_opts.type = PFM_COMM; else if (lex_match_id (lexer, "TAPE")) @@ -262,7 +262,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds, } else if (writer_type == PORFILE_WRITER && lex_match_id (lexer, "DIGITS")) { - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); if (!lex_force_int (lexer)) goto error; porfile_opts.digits = lex_integer (lexer); @@ -271,7 +271,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds, else if (!parse_dict_trim (lexer, dict)) goto error; - if (!lex_match (lexer, '/')) + if (!lex_match (lexer, T_SLASH)) break; } if (lex_end_of_command (lexer) != CMD_SUCCESS)