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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Mon Nov 30 21:59:09 2009
New Revision: 42831
URL: https://trac.parrot.org/parrot/changeset/42831

Log:
[distutils] clean tarball & zip

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Mon Nov 30 21:49:29 2009	(r42830)
+++ trunk/runtime/parrot/library/distutils.pir	Mon Nov 30 21:59:09 2009	(r42831)
@@ -188,6 +188,10 @@
     register_step_after('clean', _clean_installable_pbc)
     .const 'Sub' _clean_html_pod = '_clean_html_pod'
     register_step_after('clean', _clean_html_pod)
+    .const 'Sub' _clean_gztar = '_clean_gztar'
+    register_step_after('clean', _clean_gztar)
+    .const 'Sub' _clean_zip = '_clean_zip'
+    register_step_after('clean', _clean_zip)
 
     .const 'Sub' _update = '_update'
     register_step('update', _update)
@@ -2643,6 +2647,14 @@
     system(cmd)
 .end
 
+.sub '_clean_gztar' :anon
+    .param pmc kv :slurpy :named
+
+    $S0 = get_tarname('.tar.gz', kv :flat :named)
+    unlink($S0)
+    unlink('MANIFEST')
+.end
+
 .sub 'get_tarname' :anon
     .param string ext
     .param pmc kv :slurpy :named
@@ -2691,6 +2703,14 @@
     system(cmd)
 .end
 
+.sub '_clean_zip' :anon
+    .param pmc kv :slurpy :named
+
+    $S0 = get_tarname('.zip', kv :flat :named)
+    unlink($S0)
+    unlink('MANIFEST')
+.end
+
 =head3 Step bdist
 
 On Windows calls bdist_wininst, otherwise ...