Hello community, here is the log from the commit of package tcl checked in at Wed Apr 9 00:53:38 CEST 2008. -------- --- tcl/tcl.changes 2008-04-02 18:14:18.000000000 +0200 +++ tcl/tcl.changes 2008-04-07 21:16:02.000000000 +0200 @@ -1,0 +2,6 @@ +Mon Apr 7 21:15:17 CEST 2008 - max@suse.de + +- Added /etc/rpm/macros.tcl +- Fixed behaviour of "% d" format string. + +------------------------------------------------------------------- New: ---- macros.tcl tcl-format.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ tcl.spec ++++++ --- /var/tmp/diff_new_pack.d16255/_old 2008-04-09 00:53:25.000000000 +0200 +++ /var/tmp/diff_new_pack.d16255/_new 2008-04-09 00:53:25.000000000 +0200 @@ -14,7 +14,7 @@ Name: tcl Url: http://www.tcl.tk Version: 8.5.2 -Release: 2 +Release: 4 %define TCL_MINOR %(echo %version | cut -c1-3) BuildRoot: %{_tmppath}/%{name}-%{version}-build Summary: The Tcl Programming Language @@ -26,7 +26,9 @@ Source0: %name%{version}-src.tar.bz2 Source1: tcl-rpmlintrc Source2: baselibs.conf +Source3: macros.tcl Patch0: tcl.patch +Patch1: tcl-format.patch %description Tcl (Tool Command Language) is a very powerful but easy to learn @@ -68,6 +70,7 @@ %prep %setup -q -n %name%version %patch0 +%patch1 %build cd unix @@ -110,6 +113,7 @@ rm -f %buildroot%scriptdir/tcl%TCL_MINOR/ldAix ln -sf tclsh%TCL_MINOR %buildroot%_prefix/bin/tclsh mkdir -p %buildroot%_datadir/tcl +install -D %{S:3} %buildroot/etc/rpm/macros.tcl %clean rm -rf %buildroot @@ -131,6 +135,7 @@ %_datadir/tcl %scriptdir %exclude %scriptdir/*/tclAppInit.c +/etc/rpm/macros.tcl %files devel %defattr(-,root,root) @@ -141,6 +146,9 @@ %_libdir/tclConfig.sh %changelog +* Mon Apr 07 2008 max@suse.de +- Added /etc/rpm/macros.tcl +- Fixed behaviour of "%% d" format string. * Wed Apr 02 2008 max@suse.de - New release: 8.5.2: * Speed: 8.5 now runs 10%% faster than 8.4 with bytecode ++++++ tcl-format.patch ++++++ Index: generic/tclStringObj.c =================================================================== RCS file: /cvsroot/tcl/tcl/generic/tclStringObj.c,v retrieving revision 1.70 diff -u -r1.70 tclStringObj.c --- generic/tclStringObj.c 28 Feb 2008 17:36:49 -0000 1.70 +++ generic/tclStringObj.c 7 Apr 2008 15:12:36 -0000 @@ -2003,8 +2003,8 @@ allocSegment = 1; Tcl_IncrRefCount(segment); - if ((isNegative || gotPlus) && (useBig || (ch == 'd'))) { - Tcl_AppendToObj(segment, (isNegative ? "-" : "+"), 1); + if ((isNegative || gotPlus || gotSpace) && (useBig || (ch == 'd'))) { + Tcl_AppendToObj(segment, (isNegative ? "-" : gotPlus ? "+" : " "), 1); } if (gotHash) { Index: tests/format.test =================================================================== RCS file: /cvsroot/tcl/tcl/tests/format.test,v retrieving revision 1.25 diff -u -r1.25 format.test --- tests/format.test 10 Jan 2008 16:09:23 -0000 1.25 +++ tests/format.test 7 Apr 2008 15:12:36 -0000 @@ -496,6 +496,12 @@ test format-15.4 {testing %0..s 0 padding for chars/strings} { format %05c 61 } {0000=} +test format-15.5 {testing %d space padding for integers} { + format "(% 1d) (% 1d)" 10 -10 +} {( 10) (-10)} +test format-15.6 {testing %d plus padding for integers} { + format "(%+1d) (%+1d)" 10 -10 +} {(+10) (-10)} set a "0123456789" set b "" ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org