/* $Id$ */
/* $Name$ */
-#include "gedcom.h"
+#include "gedcom_internal.h"
#include "multilex.h"
#include "encoding.h"
-int line_no = 1;
+int line_no;
typedef int (*lex_func)(void);
lex_func lf;
ENCODING enc;
int result = 1;
FILE* file = fopen (file_name, "r");
+ line_no = 1;
if (!file) {
gedcom_error("Could not open file '%s'\n", file_name);
return 1;
result = gedcom_parse();
}
lexer_close();
+ fclose(file);
return result;
}