From bf9e55fae6324f24e55a6c155282e8f038f88c40 Mon Sep 17 00:00:00 2001
From: Peter Verthez <Peter.Verthez@advalvas.be>
Date: Fri, 24 Jan 2003 06:48:32 +0000
Subject: [PATCH] Added program to convert a GEDCOM file to standard GEDCOM.

---
 bin/Makefile.am        |  10 ++-
 bin/gedcom-sanitize.c  | 137 +++++++++++++++++++++++++++++++++++++++++
 bin/gedcom-sanitize.sh |  21 +++++++
 3 files changed, 166 insertions(+), 2 deletions(-)
 create mode 100644 bin/gedcom-sanitize.c
 create mode 100755 bin/gedcom-sanitize.sh

diff --git a/bin/Makefile.am b/bin/Makefile.am
index 80b3059..2f64556 100644
--- a/bin/Makefile.am
+++ b/bin/Makefile.am
@@ -6,9 +6,15 @@ localedir = $(datadir)/locale
 INCLUDES = -I$(srcdir)/../intl -I$(srcdir)/../include -I$(srcdir)/../utf8
 CFLAGS   = -O2 -W -Wall -pedantic -Wno-long-long @EXTRA_CFLAGS@
 
-EXTRA_DIST = gedcom-check.sh
+EXTRA_DIST = gedcom-check.sh gedcom-sanitize.sh
 
-bin_PROGRAMS = gedcom-check
+bin_PROGRAMS = gedcom-check gedcom-sanitize
 gedcom_check_SOURCES = gedcom-check.c
 gedcom_check_LDFLAGS = -L../gedcom/.libs -L../utf8/.libs @ICONV_LIBPATH@
 gedcom_check_LDADD   = $(LIBICONV) -lgedcom -lutf8tools $(LIBICONV)
+
+gedcom_sanitize_SOURCES = gedcom-sanitize.c
+gedcom_sanitize_LDFLAGS = -L../gedcom/.libs -L../gom/.libs -L../utf8/.libs \
+                          @ICONV_LIBPATH@
+gedcom_sanitize_LDADD   = $(LIBICONV) -lgedcom_gom -lgedcom -lutf8tools \
+                          $(LIBICONV)
diff --git a/bin/gedcom-sanitize.c b/bin/gedcom-sanitize.c
new file mode 100644
index 0000000..167019d
--- /dev/null
+++ b/bin/gedcom-sanitize.c
@@ -0,0 +1,137 @@
+/* Check program using the Gedcom library.
+   Copyright (C) 2001, 2002 The Genes Development Team
+   This file is part of the Gedcom parser library.
+   Contributed by Peter Verthez <Peter.Verthez@advalvas.be>, 2001.
+
+   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$ */
+
+#include "gedcom.h"
+#include "gom.h"
+#include "utf8tools.h"
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include <libintl.h>
+
+#define _(string) dgettext(PACKAGE, string)
+#define N_(string) (string)
+
+#ifdef __GNUC__
+#define UNUSED __attribute__((unused))
+#else
+#define UNUSED
+#endif
+
+void show_help ()
+{
+  printf("Converts a GEDCOM file to strict standard GEDCOM\n\n");
+  printf("Usage:  gedcom-sanitize [options] file\n");
+  printf("Options:\n");
+  printf("  -h    Show this help text\n");
+  printf("  -dg   Debug setting: only libgedcom debug messages\n");
+  printf("  -da   Debug setting: libgedcom + yacc debug messages\n");
+  printf("  -e <extension>   Extension to give to file name (default 'new')\n");
+  printf("Errors, warnings, ... are sent to stdout\n");
+}
+
+void gedcom_message_handler(Gedcom_msg_type type UNUSED, char *msg)
+{
+  char *converted = NULL;
+  int  conv_fails = 0;
+  converted = convert_utf8_to_locale(msg, &conv_fails);
+  printf("%s\n", converted);
+}
+
+int main(int argc, char* argv[])
+{
+  Gedcom_err_mech mech = DEFER_FAIL;
+  int compat_enabled   = 1;
+  int debug_level = 0;
+  char* file_name = NULL;
+  int result;
+  char* extension = "new";
+  
+  if (argc > 1) {
+    int i;
+    for (i=1; i<argc; i++) {
+      if (!strncmp(argv[i], "-da", 4))
+	debug_level = 2;
+      else if (!strncmp(argv[i], "-dg", 4))
+	debug_level = 1;
+      else if (!strncmp(argv[i], "-e", 3)) {
+	if (i<argc) {
+	  extension = argv[++i];
+	}
+	else {
+	  show_help();
+	  exit(1);
+	}
+      }
+      else if (!strncmp(argv[i], "-h", 3)) {
+	show_help();
+	exit(1);
+      }
+      else if (strncmp(argv[i], "-", 1)) {
+	file_name = argv[i];
+	break;
+      }
+      else {
+	printf ("Unrecognized option: %s\n", argv[i]);
+	show_help();
+	exit(1);
+      }
+    }
+  }
+  
+  if (!file_name) {
+    printf("No file name given\n");
+    show_help();
+    exit(1);
+  }
+  
+  gedcom_init();
+  setlocale(LC_ALL, "");
+  gedcom_set_debug_level(debug_level, NULL);
+  gedcom_set_compat_handling(compat_enabled);
+  gedcom_set_error_handling(mech);
+  gedcom_set_message_handler(gedcom_message_handler);
+
+  result = gom_parse_file(file_name);
+  
+  if (result == 0) {
+    char* newfile = (char*)malloc(strlen(file_name) + strlen(extension) + 2);
+    sprintf(newfile, "%s.%s", file_name, extension);
+    printf(_("Parse succeeded, now writing file '%s'\n"), newfile);
+    result = gom_write_file(newfile, NULL);
+    free(newfile);
+    if (result == 0) {
+      printf(_("Write succeeded\n"));
+    }
+    else {
+      printf(_("Write failed\n"));
+    }
+  }
+  else {
+    printf(_("Parse failed\n"));
+  }
+  return result;
+}
diff --git a/bin/gedcom-sanitize.sh b/bin/gedcom-sanitize.sh
new file mode 100755
index 0000000..eb538ce
--- /dev/null
+++ b/bin/gedcom-sanitize.sh
@@ -0,0 +1,21 @@
+# $Id$
+# $Name$
+# Test script for gedcom-check (when not installed yet)
+
+ltcmd="../libtool --mode=execute"
+for lib in ../gedcom/libgedcom.la ../gom/libgedcom_gom.la ../utf8/libutf8tools.la
+do
+  ltcmd="$ltcmd -dlopen $lib"
+done
+
+ln -s ../data/gedcom.enc .
+ln -s ../data/new.ged .
+ln -s ../iconv/glibc/.libs/ANSI_Z39.47.so .
+ln -s ../iconv/glibc/gconv-modules .
+$ltcmd $GEDCOM_TESTENV ./gedcom-sanitize $*
+result=$?
+rm gedcom.enc
+rm new.ged
+rm ANSI_Z39.47.so
+rm gconv-modules
+exit $result
-- 
2.30.2