packages/tclx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Package init

Browse Source
This commit is contained in:
dogsheng 2019-11-19 11:57:38 +08:00
commit 2383267fef
6 changed files with 170 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tclx-8.4-man.patch Normal file
View File

@ -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)

31
tclx-8.4-relid.patch Normal file
View File

@ -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`

26
tclx-8.4-tcl86.patch Normal file
View File

@ -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;

11
tclx-8.4-varinit.patch Normal file
View File

@ -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],

81
tclx.spec Normal file
View File

@ -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

BIN
tclx8.4.tar.bz2 Normal file
View File

Binary file not shown.