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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Dec 19 14:12:58 2009
New Revision: 43159
URL: https://trac.parrot.org/parrot/changeset/43159

Log:
[distutils] add option root

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Sat Dec 19 13:40:14 2009	(r43158)
+++ trunk/runtime/parrot/library/distutils.pir	Sat Dec 19 14:12:58 2009	(r43159)
@@ -2020,10 +2020,14 @@
 
 =item dynpmc
 
+=item root
+
 =cut
 
 .sub '_install' :anon
     .param pmc kv :slurpy :named
+    .local string root
+    root = get_value('root', '' :named('default'), kv :flat :named)
 
     $P0 = get_install_files(kv :flat :named)
     $P1 = iter $P0
@@ -2031,7 +2035,8 @@
     unless $P1 goto L2
     $S0 = shift $P1
     $S1 = $P0[$S0]
-    install($S1, $S0, 1 :named('verbose'))
+    $S2 = root . $S0
+    install($S1, $S2, 1 :named('verbose'))
     goto L1
   L2:
 
@@ -2041,7 +2046,8 @@
     unless $P1 goto L4
     $S0 = shift $P1
     $S1 = $P0[$S0]
-    install($S1, $S0, 1 :named('exe'), 1 :named('verbose'))
+    $S2 = root . $S0
+    install($S1, $S2, 1 :named('exe'), 1 :named('verbose'))
     goto L3
   L4:
 .end
@@ -2226,12 +2232,15 @@
 
 .sub '_uninstall' :anon
     .param pmc kv :slurpy :named
+    .local string root
+    root = get_value('root', '' :named('default'), kv :flat :named)
 
     $P0 = get_install_files(kv :flat :named)
     $P1 = iter $P0
   L1:
     unless $P1 goto L2
     $S0 = shift $P1
+    $S0 = root . $S0
     unlink($S0, 1 :named('verbose'))
     goto L1
   L2:
@@ -2241,6 +2250,7 @@
   L3:
     unless $P1 goto L4
     $S0 = shift $P1
+    $S0 = root . $S0
     unlink($S0, 1 :named('verbose'))
     goto L3
   L4:
@@ -3019,7 +3029,7 @@
 parrot setup.pir
 
 %%install
-sudo parrot setup.pir install
+parrot setup.pir --root $RPM_BUILD_ROOT install
 
 %%check
 parrot setup.pir test