Package init

tclx-8.4-man.patch

@@ -0,0 +1,21 @@
+--- tclx8.4/Makefile.in.old	2005-11-20 22:29:13.000000000 +0100
++++ tclx8.4/Makefile.in	2007-03-20 15:42:48.000000000 +0100
+@@ -221,12 +221,18 @@
+ 
+ install-doc: doc install-help
+ 	@mkdir -p $(DESTDIR)$(mandir)/mann
++	@mkdir -p $(DESTDIR)$(mandir)/man3
+ 	@echo "Installing documentation in $(DESTDIR)$(mandir)"
+ 	@list='$(srcdir)/doc/*.n'; for i in $$list; do \
+ 	    echo "Installing $$i"; \
+ 	    rm -f $(DESTDIR)$(mandir)/mann/`basename $$i`; \
+ 	    $(INSTALL_DATA) $$i $(DESTDIR)$(mandir)/mann ; \
+ 	done
++	@list='$(srcdir)/doc/*.3'; for i in $$list; do \
++		echo "Installing $$i"; \
++		rm -f $(DESTDIR)$(mandir)/man3/`basename $$i`; \
++		$(INSTALL_DATA) $$i $(DESTDIR)$(mandir)/man3 ; \
++	done
+ 
+ test: binaries libraries
+ 	$(TCLSH) `@CYGPATH@ $(srcdir)/tests/all.tcl` $(TESTFLAGS)

tclx-8.4-relid.patch

@@ -0,0 +1,31 @@
+--- tclx8.4/configure.relid	2006-02-03 16:13:25.000000000 -0500
++++ tclx8.4/configure	2006-02-03 16:13:33.000000000 -0500
+@@ -6999,7 +6999,7 @@
+ 	    # results, and the version is kept in special file).
+ 
+ 	    if test -r /etc/.relid -a "X`uname -n`" = "X`uname -s`" ; then
+-		system=MP-RAS-`awk '{print }' /etc/.relid'`
++		system=MP-RAS-`awk '{print }' /etc/.relid`
+ 	    fi
+ 	    if test "`uname -s`" = "AIX" ; then
+ 		system=AIX-`uname -v`.`uname -r`
+--- tclx8.4/tclconfig/tcl.m4.relid	2006-02-03 16:13:43.000000000 -0500
++++ tclx8.4/tclconfig/tcl.m4	2006-02-03 16:13:57.000000000 -0500
+@@ -859,7 +859,7 @@
+ 	    # results, and the version is kept in special file).
+ 	
+ 	    if test -r /etc/.relid -a "X`uname -n`" = "X`uname -s`" ; then
+-		system=MP-RAS-`awk '{print $3}' /etc/.relid'`
++		system=MP-RAS-`awk '{print $3}' /etc/.relid`
+ 	    fi
+ 	    if test "`uname -s`" = "AIX" ; then
+ 		system=AIX-`uname -v`.`uname -r`
+@@ -2302,7 +2302,7 @@
+ 	    # results, and the version is kept in special file).
+ 	
+ 	    if test -r /etc/.relid -a "X`uname -n`" = "X`uname -s`" ; then
+-		system=MP-RAS-`awk '{print $3}' /etc/.relid'`
++		system=MP-RAS-`awk '{print $3}' /etc/.relid`
+ 	    fi
+ 	    if test "`uname -s`" = "AIX" ; then
+ 		system=AIX-`uname -v`.`uname -r`

tclx-8.4-tcl86.patch

@@ -0,0 +1,26 @@
+diff --git a/generic/tclXgeneral.c b/generic/tclXgeneral.c
+index dfa7c66..014e38f 100644
+--- a/generic/tclXgeneral.c
++++ b/generic/tclXgeneral.c
+@@ -405,7 +405,7 @@ TclX_LoopObjCmd (dummy, interp, objc, objv)
+ 		char buf [64];
+ 		
+ 		sprintf (buf, "\n    (\"loop\" body line %d)", 
+-			interp->errorLine);
++			Tcl_GetErrorLine(interp));
+ 		Tcl_AddErrorInfo (interp, buf);
+ 	    }
+ 	    break;
+diff --git a/generic/tclXlib.c b/generic/tclXlib.c
+index af8dd7a..2c002d6 100644
+--- a/generic/tclXlib.c
++++ b/generic/tclXlib.c
+@@ -239,7 +239,7 @@ EvalFilePart (interp, fileName, offset, length)
+      */
+     buf = ckalloc (strlen (fileName) + 64);
+     sprintf (buf, "\n    (file \"%s\" line %d)", fileName,
+-             interp->errorLine);
++             Tcl_GetErrorLine(interp));
+     Tcl_AddErrorInfo (interp, buf);
+     ckfree (buf);
+     goto errorExit;

tclx-8.4-varinit.patch

@@ -0,0 +1,11 @@
+--- tclx8.4/generic/tclXdup.c.varinit	2006-02-03 15:54:38.000000000 -0500
++++ tclx8.4/generic/tclXdup.c	2006-02-03 15:54:53.000000000 -0500
+@@ -202,7 +202,7 @@
+ {
+     Tcl_Channel newChannel;
+     int bindFnum, fnum;
+-    char *srcChannelId, *targetChannelId;
++    char *srcChannelId = NULL, *targetChannelId;
+ 
+     if ((objc < 2) || (objc > 3)) {
+         return TclX_WrongArgs (interp, objv [0],

tclx.spec

@@ -0,0 +1,81 @@
+%{!?tcl_version: %global tcl_version %(echo 'puts $tcl_version' | tclsh)}
+%{!?tcl_sitearch: %global tcl_sitearch %{_libdir}/tcl%{tcl_version}}
+Name:          tclx
+Version:       8.4.0
+Release:       33
+Summary:       Extensions for Tcl and Tk
+License:       BSD
+URL:           http://tclx.sourceforge.net/
+Source:        http://downloads.sourceforge.net/tclx/tclx8.4.tar.bz2
+Requires:      tcl >= 8.4.13, tk >= 8.4.13
+BuildRequires: tcl-devel >= 8.4.13, tk-devel >= 8.4.13
+Patch0000:     tclx-8.4-varinit.patch
+Patch0001:     tclx-8.4-relid.patch
+Patch0002:     tclx-8.4-man.patch
+Patch0003:     tclx-8.4-tcl86.patch
+
+%description
+Extended Tcl (TclX) is a set of extensions to the Tcl programming language.
+Extended Tcl is oriented towards system programming tasks and large
+application development. TclX provides additional interfaces to the
+operating system, and adds many new programming constructs, text manipulation
+and debugging tools.
+
+%package devel
+Summary:   Extended Tcl development files
+Requires:  tclx = %{version}-%{release}
+
+%description devel
+This package contains the tclx development files needed for building
+applications embedding tclx.
+
+%package help
+Summary:   Help document for the TclX package
+Buildarch: noarch
+
+%description help
+Help document for the TclX package.
+
+%prep
+%autosetup -n tclx8.4 -p1
+
+%build
+%configure \
+   --enable-tk=YES --with-tclconfig=%{_libdir} --with-tkconfig=%{_libdir} \
+   --with-tclinclude=%{_includedir} --with-tkinclude=%{_includedir} \
+   --enable-gcc --disable-threads --enable-64bit --libdir=%{tcl_sitearch}
+
+%make_build
+
+%check
+%if %{with check}
+   make test
+%endif
+
+%install
+%make_install
+
+install -d $RPM_BUILD_ROOT%{_sysconfdir}/ld.so.conf.d/
+echo '%{_libdir}/tcl%{tcl_version}/tclx8.4' > $RPM_BUILD_ROOT%{_sysconfdir}/ld.so.conf.d/tclx-%{_arch}.conf
+
+%post -p /sbin/ldconfig
+%postun -p /sbin/ldconfig
+
+%files
+%doc ChangeLog README
+%{_libdir}/tcl8.6/tclx8.4/
+%{_sysconfdir}/ld.so.conf.d/tclx-%{_arch}.conf
+
+%files devel
+%{_includedir}/*
+
+%files help
+%{_mandir}/mann/*
+%{_mandir}/man3/*
+%exclude %{_mandir}/man3/CmdWrite.*
+%exclude %{_mandir}/man3/Handles.*
+
+%changelog
+* Fri Nov 08 2019 Lijin Yang <yanglijin@huawei.com> - 1.1.0-14
+- Package init
+