X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gedcom%2Fmultilex.c;h=e8d514cb67296e2777548eeb0ebf80c1ed733ade;hb=505301d49e81bcd0e1827026cd4672b8722ac349;hp=a6ea0faa20caa258deadb7640659f7008f68e507;hpb=8093e53a57e174b019f07760f5bf815271ceee9b;p=gedcom-parse.git diff --git a/gedcom/multilex.c b/gedcom/multilex.c index a6ea0fa..e8d514c 100644 --- a/gedcom/multilex.c +++ b/gedcom/multilex.c @@ -1,11 +1,22 @@ -/* 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 * - * the Free Software Foundation; either version 2 of the License, or * - * (at your option) any later version. * +/* The lexer multiplexer for Gedcom. + Copyright (C) 2001,2002 The Genes Development Team + This file is part of the Gedcom parser library. + Contributed by Peter Verthez , 2001. - (C) 2001 by The Genes Development Team - Original author: Peter Verthez (Peter.Verthez@advalvas.be) -*/ + The Gedcom parser library is free software; you can redistribute it + and/or modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + The Gedcom parser library is distributed in the hope that it will be + useful, but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with the Gedcom parser library; if not, write to the + Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA + 02111-1307 USA. */ /* $Id$ */ /* $Name$ */ @@ -13,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; -int lexer_init(ENCODING enc, FILE* f) +#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"); } @@ -57,62 +71,137 @@ int gedcom_lex() int determine_encoding(FILE* f) { char first[2]; + int read; - fread(first, 1, 2, f); - if ((first[0] == '0') && (first[1] == ' ')) { - gedcom_message("One-byte encoding"); - fseek(f, 0, 0); + 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")); + 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_message("Two-byte encoding, high-low"); - fseek(f, 0, 0); + gedcom_debug_print(_("Two-byte encoding, high-low")); + 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')) { - gedcom_message("Two-byte encoding, high-low, with BOM"); + gedcom_debug_print(_("Two-byte encoding, high-low, with BOM")); return TWO_BYTE_HILO; } else if ((first[0] == '0') && (first[1] == '\0')) { - gedcom_message("Two-byte encoding, low-high"); - fseek(f, 0, 0); + gedcom_debug_print(_("Two-byte encoding, low-high")); + 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')) { - gedcom_message("Two-byte encoding, low-high, with BOM"); + gedcom_debug_print(_("Two-byte encoding, low-high, with BOM")); return TWO_BYTE_LOHI; } else { - gedcom_message("Unknown encoding, falling back to one-byte"); - fseek(f, 0, 0); + gedcom_warning(_("Unknown encoding, falling back to one-byte")); + 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; + +int gedcom_init() { - 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); + init_called = 1; + update_gconv_search_path(); + init_encodings(); + if (!setlocale(LC_ALL, "") + || ! bindtextdomain(PACKAGE, LOCALEDIR) + || ! bind_textdomain_codeset(PACKAGE, INTERNAL_ENCODING)) return 1; + else + return 0; +} + +int gedcom_parse_file(const char* file_name) +{ + Encoding enc; + int result = 1; + FILE* file; + + if (!init_called) { + gedcom_error(_("Internal error: GEDCOM parser not initialized")); + } + else { + file = fopen(file_name, "r"); + if (!file) { + gedcom_error(_("Could not open file '%s': %s"), + file_name, strerror(errno)); + } + else { + line_no = 1; + 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); + } } - init_encodings(); - enc = determine_encoding(file); - - if (lexer_init(enc, file)) { - result = gedcom_parse(); + return result; +} + +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); + } } - lexer_close(); - fclose(file); - 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; +}