develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34642 - trunk/languages/pipp/src/common

From:
bernhard
Date:
December 30, 2008 05:01
Subject:
[svn:parrot] r34642 - trunk/languages/pipp/src/common
Message ID:
20081230130121.43AA6CB9FA@x12.develooper.com
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'



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About