Author: bernhard
Date: Tue Dec 30 05:01:20 2008
New Revision: 34642
Modified:
trunk/languages/pipp/src/common/guts.pir
Log:
[Pipp] Remove unused sub
Modified: trunk/languages/pipp/src/common/guts.pir
==============================================================================
--- trunk/languages/pipp/src/common/guts.pir (original)
+++ trunk/languages/pipp/src/common/guts.pir Tue Dec 30 05:01:20 2008
@@ -53,54 +53,6 @@
.return ()
.end
-=item !EXPORT(symbols, from :named('from') [, to :named('to')] )
-
-Export symbols in namespace C<from> to the namespace given by C<to>.
-If C<to> isn't given, then exports into the HLL global namespace.
-This function differs somewhat from Parrot's C<Exporter> PMC in that
-it understands how to properly merge C<MultiSub> PMCs.
-
-=cut
-
-.sub '!EXPORT'
- .param string symbols
- .param pmc from :named('from')
- .param pmc to :named('to') :optional
- .param int has_to :opt_flag
-
- if has_to goto have_to
- to = get_hll_namespace
- have_to:
-
- .local pmc list
- list = split ' ', symbols
- list_loop:
- unless list goto list_end
- .local string symbol
- .local pmc value
- symbol = shift list
- value = from[symbol]
- $I0 = isa value, 'MultiSub'
- unless $I0 goto store_value
- $P0 = to[symbol]
- if null $P0 goto store_value
- $I0 = isa $P0, 'MultiSub'
- unless $I0 goto err_type_conflict
- $I0 = elements $P0
- splice $P0, value, $I0, 0
- goto list_loop
- store_value:
- to[symbol] = value
- goto list_loop
- list_end:
- .return ()
-
- err_type_conflict:
- $S0 = concat "Unable to add Multisub '", symbol
- $S0 .= "' to existing value"
- die $S0
-.end
-
.include 'except_types.pasm'
.include 'except_severity.pasm'
