[svn:parrot] r43143 - trunk/runtime/parrot/library
fperrad at svn.parrot.org
fperrad at svn.parrot.org
Fri Dec 18 19:14:38 UTC 2009
Author: fperrad
Date: Fri Dec 18 19:14:35 2009
New Revision: 43143
URL: https://trac.parrot.org/parrot/changeset/43143
Log:
[distutils] fix spec rpm, and add some rpmbuild commands
Modified:
trunk/runtime/parrot/library/distutils.pir
Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir Fri Dec 18 16:18:24 2009 (r43142)
+++ trunk/runtime/parrot/library/distutils.pir Fri Dec 18 19:14:35 2009 (r43143)
@@ -2929,6 +2929,12 @@
.param pmc kv :slurpy :named
run_step('sdist_gztar', kv :flat :named)
+ .local string cmd
+ $S0 = get_tarname('.tar.gz', kv :flat :named)
+ cmd = "mv " . $S0
+ cmd .= " ~/rpmbuild/SOURCES/"
+ system(cmd, 1 :named('verbose'))
+
$S0 = get_spec(kv :flat :named)
$I0 = file_exists($S0)
if $I0 goto L1
@@ -2938,7 +2944,9 @@
spew($S0, $S1, 1 :named('verbose'))
L1:
- die "not yet rpms"
+ .local string cmd
+ cmd = "rpmbuild -bs -v " . $S0
+ system(cmd, 1 :named('verbose'))
.end
=head3 Step bdist
@@ -2981,6 +2989,9 @@
$S2 = dirname($S0)
mkpath($S2, 1 :named('verbose'))
spew($S0, $S1, 1 :named('verbose'))
+ .local string cmd
+ cmd = "rpmbuild --nobuild " . $S0
+ system(cmd, 1 :named('verbose'))
L2:
.end
@@ -3054,9 +3065,9 @@
Group: Development/Libraries
URL: %s
Source0: %s
-BuildRoot: %%{_tmppath}/%%{name}-%%{version}-%%{release}-root-%%(%%{__id_u} -n)
-BuildRequires: parrot >= %%parrot_version
-BuildRequires: parrot-devel >= %%parrot_version
+BuildRoot: %%{_tmppath}/%%{name}-%%{version}-%%{release}
+#BuildRequires: parrot >= %%parrot_version
+#BuildRequires: parrot-devel >= %%parrot_version
%%description
%s
@@ -3213,8 +3224,11 @@
$I0 = length $S0
dec $I0
$S0 = substr $S0, 0, $I0
- spec .= $S0
- spec .= " by distutils\n"
+ $S1 = substr $S0, 0, 11
+ spec .= $S1
+ $S1 = substr $S0, 20
+ spec .= $S1
+ spec .= " you <you at you.org>\n- created by distutils\n"
.return (spec)
.end
@@ -3226,6 +3240,12 @@
.param pmc kv :slurpy :named
run_step('sdist_gztar', kv :flat :named)
+ .local string cmd
+ $S0 = get_tarname('.tar.gz', kv :flat :named)
+ cmd = "mv " . $S0
+ cmd .= " ~/rpmbuild/SOURCES/"
+ system(cmd, 1 :named('verbose'))
+
$S0 = get_spec(kv :flat :named)
$I0 = file_exists($S0)
if $I0 goto L1
@@ -3235,7 +3255,8 @@
spew($S0, $S1, 1 :named('verbose'))
L1:
- die "no yet rpm"
+ cmd = "rpmbuild -bb -v " . $S0
+ system(cmd, 1 :named('verbose'))
.end
=head3 Step bdist_wininst
More information about the parrot-commits
mailing list