X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gedcom%2Fmultilex.c;h=75563117c55f8f51f6bbd151491f5e31a40cf1af;hb=7cbefaec45b82eb0449465da19d38a89f2ff2cf3;hp=cff8608f049337a143c1dca78265807dfc7bcdad;hpb=6c3f98698bd9db6abc7641501d6c1ab96a97797a;p=gedcom-parse.git diff --git a/gedcom/multilex.c b/gedcom/multilex.c index cff8608..7556311 100644 --- a/gedcom/multilex.c +++ b/gedcom/multilex.c @@ -1,5 +1,5 @@ /* The lexer multiplexer for Gedcom. - Copyright (C) 2001 The Genes Development Team + Copyright (C) 2001,2002 The Genes Development Team This file is part of the Gedcom parser library. Contributed by Peter Verthez , 2001. @@ -24,29 +24,32 @@ #include "gedcom_internal.h" #include "multilex.h" #include "encoding.h" +#include "xref.h" -int line_no; +int line_no = 0; typedef int (*lex_func)(void); lex_func lf; +#define NEW_MODEL_FILE "new.ged" + int lexer_init(ENCODING enc, FILE* f) { if (enc == ONE_BYTE) { - gedcom_1byte_in = f; - lf = &gedcom_1byte_lex; + lf = &gedcom_1byte_lex; + gedcom_1byte_myinit(f); set_encoding_width(enc); return open_conv_to_internal("ASCII"); } else if (enc == TWO_BYTE_HILO) { - gedcom_hilo_in = f; - lf = &gedcom_hilo_lex; + lf = &gedcom_hilo_lex; + gedcom_hilo_myinit(f); set_encoding_width(enc); return open_conv_to_internal("UNICODE"); } else if (enc == TWO_BYTE_LOHI) { - gedcom_lohi_in = f; - lf = &gedcom_lohi_lex; + lf = &gedcom_lohi_lex; + gedcom_lohi_myinit(f); set_encoding_width(enc); return open_conv_to_internal("UNICODE"); } @@ -68,17 +71,24 @@ int gedcom_lex() int determine_encoding(FILE* f) { char first[2]; + int read; - fread(first, 1, 2, f); - if ((first[0] == '0') && (first[1] == ' ')) { + read = fread(first, 1, 2, f); + if (read != 2) { + gedcom_warning(_("Error reading from input file: %s"), strerror(errno)); + return ONE_BYTE; + } + else if ((first[0] == '0') && (first[1] == ' ')) { gedcom_debug_print(_("One-byte encoding")); - fseek(f, 0, 0); + if (fseek(f, 0, 0) != 0) + gedcom_warning(_("Error positioning input file: %s"), strerror(errno)); return ONE_BYTE; } else if ((first[0] == '\0') && (first[1] == '0')) { gedcom_debug_print(_("Two-byte encoding, high-low")); - fseek(f, 0, 0); + if (fseek(f, 0, 0) != 0) + gedcom_warning(_("Error positioning input file: %s"), strerror(errno)); return TWO_BYTE_HILO; } else if ((first[0] == '\xFE') && (first[1] == '\xFF')) @@ -89,7 +99,8 @@ int determine_encoding(FILE* f) else if ((first[0] == '0') && (first[1] == '\0')) { gedcom_debug_print(_("Two-byte encoding, low-high")); - fseek(f, 0, 0); + if (fseek(f, 0, 0) != 0) + gedcom_warning(_("Error positioning input file: %s"), strerror(errno)); return TWO_BYTE_LOHI; } else if ((first[0] == '\xFF') && (first[1] == '\xFE')) @@ -99,42 +110,124 @@ int determine_encoding(FILE* f) } else { gedcom_warning(_("Unknown encoding, falling back to one-byte")); - fseek(f, 0, 0); + if (fseek(f, 0, 0) != 0) + gedcom_warning(_("Error positioning input file: %s"), strerror(errno)); return ONE_BYTE; } } -int gedcom_parse_file(char* file_name) +int init_called = 0; + +void gedcom_init() +{ + init_called = 1; + update_gconv_search_path(); +} + +int gedcom_parse_file(const char* file_name) { ENCODING enc; int result = 1; FILE* file; + char *locale, *save_locale, *save_textdom; + + locale = setlocale(LC_ALL, NULL); + if (! locale) { + gedcom_error(_("Could not retrieve locale information")); + return result; + } - char *save_textdom = textdomain(NULL); - setlocale(LC_ALL, ""); /* In fact only necessary if main program doesn't - do this */ - bindtextdomain(PACKAGE, LOCALEDIR); - bind_textdomain_codeset(PACKAGE, INTERNAL_ENCODING); - textdomain(PACKAGE); - - line_no = 1; - file = fopen(file_name, "r"); - if (!file) { - gedcom_error(_("Could not open file '%s'"), file_name); + save_locale = strdup(locale); + if (! save_locale) { + MEMORY_ERROR; + return result; + } + + save_textdom = textdomain(NULL); + if (!save_textdom) { + gedcom_error(_("Could not retrieve locale domain: %s"), strerror(errno)); + return result; + } + + if (! setlocale(LC_ALL, "") + || ! bindtextdomain(PACKAGE, LOCALEDIR) + || ! bind_textdomain_codeset(PACKAGE, INTERNAL_ENCODING) + || ! textdomain(PACKAGE)) { + gedcom_error(_("Could not set locale: %s"), strerror(errno)); + return result; + } + + if (!init_called) { + gedcom_error(_("Internal error: GEDCOM parser not initialized")); } else { - init_encodings(); - enc = determine_encoding(file); - - if (lexer_init(enc, file)) { - line_no = 1; - result = gedcom_parse(); + file = fopen(file_name, "r"); + if (!file) { + gedcom_error(_("Could not open file '%s': %s"), + file_name, strerror(errno)); } - lexer_close(); - fclose(file); + else { + init_encodings(); + enc = determine_encoding(file); + + if (lexer_init(enc, file)) { + line_no = 0; + make_xref_table(); + result = gedcom_parse(); + line_no = 0; + if (result == 0) + result = check_xref_table(); + } + lexer_close(); + fclose(file); + } + } + + if (! textdomain(save_textdom) + || ! setlocale(LC_ALL, save_locale)) { + gedcom_error(_("Could not restore locale: %s"), strerror(errno)); + return result; } + free(save_locale); + return result; +} - textdomain(save_textdom); +int gedcom_new_model() +{ + int result = 1; + FILE* file; + + file = fopen(NEW_MODEL_FILE, "r"); + if (file) { + fclose(file); + result = gedcom_parse_file(NEW_MODEL_FILE); + } + else { + char* filename = (char*) malloc(strlen(PKGDATADIR) + strlen(NEW_MODEL_FILE) + + 2); + if (!filename) + MEMORY_ERROR; + else { + sprintf(filename, "%s/%s", PKGDATADIR, NEW_MODEL_FILE); + result = gedcom_parse_file(filename); + free(filename); + } + } return result; } +int gedcom_check_version(int major, int minor, int patch) +{ + if (major < GEDCOM_PARSE_VERSION_MAJOR) + return 1; + else if (major > GEDCOM_PARSE_VERSION_MAJOR) + return 0; + else if (minor < GEDCOM_PARSE_VERSION_MINOR) + return 1; + else if (minor > GEDCOM_PARSE_VERSION_MINOR) + return 0; + else if (patch <= GEDCOM_PARSE_VERSION_PATCH) + return 1; + else { + return 0; +}