gnue/geas/src/classdef scan.l

[Reinhard Mueller]

CVSROOT:        /cvsroot/gnue
Module name:    gnue
Changes by:     Reinhard Mueller <address@hidden>       01/09/22 14:13:13

Modified files:
        geas/src/classdef: scan.l 

Log message:
        Reset scanner on start of new file in case the old file was not parsed 
to the end because of errors.
        Fixed error check when closing the file.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue/geas/src/classdef/scan.l.diff?tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: gnue/geas/src/classdef/scan.l
diff -u gnue/geas/src/classdef/scan.l:1.4 gnue/geas/src/classdef/scan.l:1.5
--- gnue/geas/src/classdef/scan.l:1.4   Wed Sep 19 17:02:49 2001
+++ gnue/geas/src/classdef/scan.l       Sat Sep 22 14:13:13 2001
@@ -19,7 +19,7 @@
    along with GEAS; if not, write to the Free Software Foundation, Inc.,
    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-   $Id: scan.l,v 1.4 2001/09/19 21:02:49 reinhard Exp $
+   $Id: scan.l,v 1.5 2001/09/22 18:13:13 reinhard Exp $
 */
 
 %option case-insensitive
@@ -193,6 +193,7 @@
       return (0);
     }
 
+  YY_NEW_FILE;
   return (1);
 }
 
@@ -204,8 +205,7 @@
 {
   _token_line = 0;                    /* don't display line on error message */
 
-  fclose (yyin);
-  if (!yyin)
+  if (fclose (yyin))
     {
       yyerror ("Cannot close file");
     }