OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/tcl?expand=0&rev=4

macros.tcl

@@ -0,0 +1,14 @@
+# RPM macros for Tcl
+
+# The minor version of Tcl
+%tcl_version %(echo 'puts [info tclversion]'|tclsh)
+
+# compiled packges should go here
+%tcl_archdir %(echo 'puts [lindex $tcl_pkgPath 0]'|tclsh)
+
+# script-only packages should go here
+%tcl_noarchdir %(echo 'puts [lindex  $tcl_pkgPath 1]'|tclsh)
+
+# tclscriptdir is deprecated, please use tcl_archdir or
+# tcl_noarchdir instead, depending on the type of your package
+%tclscriptdir %tcl_noarchdir

tcl-format.patch

@@ -0,0 +1,38 @@
+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 ""

tcl.changes

@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Mon Apr  7 21:15:17 CEST 2008 - max@suse.de
+
+- Added /etc/rpm/macros.tcl
+- Fixed behaviour of "% d" format string.
+
 -------------------------------------------------------------------
 Wed Apr  2 18:04:42 CEST 2008 - max@suse.de
 

tcl.spec

@@ -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 @@ PreReq:         /bin/rm
 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 @@ Authors:
 %prep
 %setup -q -n %name%version
 %patch0
+%patch1
 
 %build
 cd unix
@@ -110,6 +113,7 @@ make -C unix install install-private-headers \
 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 @@ exit 0
 %_datadir/tcl
 %scriptdir
 %exclude %scriptdir/*/tclAppInit.c
+/etc/rpm/macros.tcl
 
 %files devel
 %defattr(-,root,root)
@@ -141,6 +146,9 @@ exit 0
 %_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