From b8da50f31aac447a903ba6584dee48129e4a772b Mon Sep 17 00:00:00 2001
From: Florian Weimer <fweimer@redhat.com>
Date: Nov 18 2022 10:30:50 +0000
Subject: Avoid call to undeclared Tcldom_libxml2_Init function


Related to:

  <https://fedoraproject.org/wiki/Changes/PortingToModernC>
  <https://fedoraproject.org/wiki/Toolchain/PortingToModernC>

---

diff --git a/tcl-tclxml-libxml2-init.patch b/tcl-tclxml-libxml2-init.patch
new file mode 100644
index 0000000..0f436cb
--- /dev/null
+++ b/tcl-tclxml-libxml2-init.patch
@@ -0,0 +1,18 @@
+Add missing prototype for Tcldom_libxml2_Init.  Required
+for building in strict C99 mode.
+
+Submitted upstream: <https://sourceforge.net/p/tclxml/patches/29/>
+
+diff --git a/include/tcldom-libxml2/tcldom-libxml2.h b/include/tcldom-libxml2/tcldom-libxml2.h
+index 68202818b7d8e6c2..842df263520c7b16 100644
+--- a/include/tcldom-libxml2/tcldom-libxml2.h
++++ b/include/tcldom-libxml2/tcldom-libxml2.h
+@@ -66,6 +66,8 @@ extern "C" {
+ # endif
+ #endif
+ 
++EXTERN int Tcldom_libxml2_Init _ANSI_ARGS_((Tcl_Interp *));
++
+ /*
+  * The following function is required to be defined in all stubs aware
+  * extensions of TclDOM.  The function is actually implemented in the stub
diff --git a/tcl-tclxml.spec b/tcl-tclxml.spec
index f9a5b6e..1a7718c 100644
--- a/tcl-tclxml.spec
+++ b/tcl-tclxml.spec
@@ -6,13 +6,14 @@
 Summary: XML parsing library for the Tcl scripting language
 Name:    tcl-%{realname}
 Version: 3.2
-Release: 31%{?dist}
+Release: 32%{?dist}
 License: BSD
 URL:     http://tclxml.sourceforge.net/
 Source0: http://downloads.sourceforge.net/tclxml/tclxml-%{version}.tar.gz
 Source1: pkgIndex.tcl.in.gui
 Patch0:  tclxml-3.2-sgmlparser.patch
 Patch1:  tclxml-3.2-xmlGenericError.patch
+Patch2:  tcl-tclxml-libxml2-init.patch
 BuildRequires: make
 BuildRequires:  gcc
 BuildRequires:  tcl-devel libxml2-devel libxslt-devel
@@ -54,6 +55,7 @@ This package provides some useful widgets for manipulating a DOM tree.
 %setup -q -n %{realname}-%{version}
 %patch0 -p1
 %patch1 -p1
+%patch2 -p1
 
 # Fix a few spurious execute permissions
 chmod -x ChangeLog doc/xsltsl/cmp.xsl *.c
@@ -103,6 +105,9 @@ install -p -m 0644 examples/tcldom/domtree.tcl \
 %{tcl_sitelib}/%{realname}-gui%{version}/*.tcl
 
 %changelog
+* Fri Nov 18 2022 Florian Weimer <fweimer@redhat.com> - 3.2-32
+- Avoid call to undeclared Tcldom_libxml2_Init function
+
 * Sat Jul 23 2022 Fedora Release Engineering <releng@fedoraproject.org> - 3.2-31
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_37_Mass_Rebuild