X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fprint-space.c;h=b7683670f5076353ac114e994aa3d0c584b54f7c;hb=81579d9e9f994fb2908f50af41c3eb033d216e58;hp=3f73ee25a8de16fb1f1883608e2c6fa8cf25fdba;hpb=cc57a28ef6796ae9a64ef80d453f72126956d49d;p=pspp-builds.git diff --git a/src/language/data-io/print-space.c b/src/language/data-io/print-space.c index 3f73ee25..b7683670 100644 --- a/src/language/data-io/print-space.c +++ b/src/language/data-io/print-space.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 2006, 2009 Free Software Foundation, Inc. + Copyright (C) 2006, 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 @@ -19,17 +19,17 @@ #include #include -#include -#include -#include -#include -#include -#include -#include -#include -#include +#include "data/procedure.h" +#include "data/value.h" +#include "language/command.h" +#include "language/data-io/data-writer.h" +#include "language/data-io/file-handle.h" +#include "language/expressions/public.h" +#include "language/lexer/lexer.h" +#include "libpspp/message.h" +#include "output/text-item.h" -#include "xalloc.h" +#include "gl/xalloc.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -54,20 +54,19 @@ cmd_print_space (struct lexer *lexer, struct dataset *ds) if (lex_match_id (lexer, "OUTFILE")) { - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); handle = fh_parse (lexer, FH_REF_FILE); if (handle == NULL) return CMD_FAILURE; - lex_get (lexer); } else handle = NULL; - if (lex_token (lexer) != '.') + if (lex_token (lexer) != T_ENDCMD) { expr = expr_parse (lexer, ds, EXPR_NUMBER); - if (lex_token (lexer) != '.') + if (lex_token (lexer) != T_ENDCMD) { expr_free (expr); lex_error (lexer, _("expecting end of command")); @@ -123,7 +122,7 @@ print_space_trns_proc (void *t_, struct ccase **c, while (n--) if (trns->writer == NULL) - som_blank_line (); + text_item_submit (text_item_create (TEXT_ITEM_BLANK_LINE, "")); else dfm_put_record (trns->writer, " ", 1);