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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Wed Mar 24 18:00:36 2010
New Revision: 45158
URL: https://trac.parrot.org/parrot/changeset/45158

Log:
[distutils] add item hll_hook

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Wed Mar 24 17:08:13 2010	(r45157)
+++ trunk/runtime/parrot/library/distutils.pir	Wed Mar 24 18:00:36 2010	(r45158)
@@ -222,6 +222,8 @@
     register_step_after('build', _build_pbc_pir)
     .const 'Sub' _build_pbc_pbc = '_build_pbc_pbc'
     register_step_after('build', _build_pbc_pbc)
+    .const 'Sub' _build_hll_hook = '_build_hll_hook'
+    register_step_after('build', _build_hll_hook)
     .const 'Sub' _build_exe_pbc = '_build_exe_pbc'
     register_step_after('build', _build_exe_pbc)
     .const 'Sub' _build_installable_pbc = '_build_installable_pbc'
@@ -945,6 +947,21 @@
     .tailcall run_jobs(jobs)
 .end
 
+=item hll_hook
+
+a subroutine
+
+=cut
+
+.sub '_build_hll_hook' :anon
+    .param pmc kv :slurpy :named
+    $I0 = exists kv['hll_hook']
+    unless $I0 goto L1
+    $P0 = kv['hll_hook']
+    $P0(kv :flat :named)
+  L1:
+.end
+
 =item exe_pbc
 
 hash