X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fdata-reader.c;h=fa96922329fbc29b315cf0feb169d2e4cc1ca7b3;hb=480a0746507ce73d26f528b56dc3ed80195096e0;hp=cd065ddb5bddc94ef062dbbc348e5fda5e3cc706;hpb=0fa141762183890ebd139ccd9264f08db9011539;p=pspp diff --git a/src/language/data-io/data-reader.c b/src/language/data-io/data-reader.c index cd065ddb5b..fa96922329 100644 --- a/src/language/data-io/data-reader.c +++ b/src/language/data-io/data-reader.c @@ -1,6 +1,5 @@ /* PSPP - computes sample statistics. Copyright (C) 1997-2004, 2006 Free Software Foundation, Inc. - Written by Ben Pfaff . This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as @@ -32,7 +31,7 @@ #include #include #include -#include +#include #include #include #include @@ -169,10 +168,10 @@ read_inline_record (struct dfm_reader *r) lex_get (r->lexer); if (!lex_force_match_id (r->lexer, "BEGIN") || !lex_force_match_id (r->lexer, "DATA")) return false; - getl_set_prompt_style (GETL_PROMPT_DATA); + prompt_set_style (PROMPT_DATA); } - if (!lex_get_line_raw (r->lexer)) + if (!lex_get_line_raw (r->lexer, NULL)) { msg (SE, _("Unexpected end-of-file while reading data in BEGIN " "DATA. This probably indicates " @@ -444,7 +443,7 @@ cmd_begin_data (struct lexer *lexer, struct dataset *ds) r->flags |= DFM_SAW_BEGIN_DATA; /* Input procedure reads from inline file. */ - getl_set_prompt_style (GETL_PROMPT_DATA); + prompt_set_style (PROMPT_DATA); ok = procedure (ds, NULL, NULL); dfm_close_reader (r);