X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fsyntax-file.c;h=5521972477f270a1a046b9a99f5b0b3e5a117f69;hb=fad701f04b435a42e2feabd90174274f04a23d4d;hp=411022d43d40563ef11ade555e17ee004d74448a;hpb=12895f38b01137ae0b14f07d26e6f0928b735bdf;p=pspp diff --git a/src/language/syntax-file.c b/src/language/syntax-file.c index 411022d43d..5521972477 100644 --- a/src/language/syntax-file.c +++ b/src/language/syntax-file.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2009 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2009, 2010 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 @@ -33,9 +33,8 @@ #include #include #include -#include #include -#include +#include #include @@ -89,7 +88,6 @@ read_syntax_file (struct getl_interface *s, /* Open file, if not yet opened. */ if (sfs->syntax_file == NULL) { - verbose_msg (1, _("opening \"%s\" as syntax file"), sfs->fn); sfs->syntax_file = fn_open (sfs->fn, "r"); if (sfs->syntax_file == NULL) @@ -104,6 +102,7 @@ read_syntax_file (struct getl_interface *s, do { sfs->ln++; + ds_clear (line); if (!ds_read_line (line, sfs->syntax_file, SIZE_MAX)) { if (ferror (sfs->syntax_file)) @@ -114,10 +113,6 @@ read_syntax_file (struct getl_interface *s, } while (sfs->ln == 1 && !memcmp (ds_cstr (line), "#!", 2)); - /* Echo to listing file, if configured to do so. */ - if (settings_get_echo ()) - tab_output_text (TAB_LEFT | TAB_FIX, ds_cstr (line)); - return true; }