[svn:parrot] r43143 - trunk/runtime/parrot/library

[fperrad at svn.parrot.org]

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