commit 2383267feffb5e4b653e4cd6f1a709aa541088f6 Author: dogsheng <960055655@qq.com> Date: Tue Nov 19 11:57:38 2019 +0800 Package init diff --git a/tclx-8.4-man.patch b/tclx-8.4-man.patch new file mode 100644 index 0000000..8532d01 --- /dev/null +++ b/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) diff --git a/tclx-8.4-relid.patch b/tclx-8.4-relid.patch new file mode 100644 index 0000000..45fe687 --- /dev/null +++ b/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` diff --git a/tclx-8.4-tcl86.patch b/tclx-8.4-tcl86.patch new file mode 100644 index 0000000..ca0c6b5 --- /dev/null +++ b/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; diff --git a/tclx-8.4-varinit.patch b/tclx-8.4-varinit.patch new file mode 100644 index 0000000..08fe7d8 --- /dev/null +++ b/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], diff --git a/tclx.spec b/tclx.spec new file mode 100644 index 0000000..c661f3a --- /dev/null +++ b/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 - 1.1.0-14 +- Package init + diff --git a/tclx8.4.tar.bz2 b/tclx8.4.tar.bz2 new file mode 100644 index 0000000..fb29177 Binary files /dev/null and b/tclx8.4.tar.bz2 differ