- Copyright (C) 1997-9, 2000 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
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
#include <data/variable.h>
#include <language/command.h>
#include <language/lexer/lexer.h>
#include <data/variable.h>
#include <language/command.h>
#include <language/lexer/lexer.h>
return sfs->ln;
}
/* Reads a line from syntax file source S into LINE.
Returns true if successful, false at end of file. */
return sfs->ln;
}
/* Reads a line from syntax file source S into LINE.
Returns true if successful, false at end of file. */
/* Open file, if not yet opened. */
if (sfs->syntax_file == NULL)
{
/* Open file, if not yet opened. */
if (sfs->syntax_file == NULL)
{
sfs->syntax_file = fn_open (sfs->fn, "r");
if (sfs->syntax_file == NULL)
sfs->syntax_file = fn_open (sfs->fn, "r");
if (sfs->syntax_file == NULL)
{
if (ferror (sfs->syntax_file))
msg (ME, _("Reading `%s': %s."), sfs->fn, strerror (errno));
{
if (ferror (sfs->syntax_file))
msg (ME, _("Reading `%s': %s."), sfs->fn, strerror (errno));
if (sfs->syntax_file && EOF == fn_close (sfs->fn, sfs->syntax_file))
msg (MW, _("Closing `%s': %s."), sfs->fn, strerror (errno));
if (sfs->syntax_file && EOF == fn_close (sfs->fn, sfs->syntax_file))
msg (MW, _("Closing `%s': %s."), sfs->fn, strerror (errno));