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

[svn:parrot] r32593 - in trunk/languages/perl6/src: builtins classes parser

From:
coke
Date:
November 12, 2008 21:24
Subject:
[svn:parrot] r32593 - in trunk/languages/perl6/src: builtins classes parser
Message ID:
20081113052412.B26CDCB9AF@x12.develooper.com
Author: coke
Date: Wed Nov 12 21:24:11 2008
New Revision: 32593

Modified:
   trunk/languages/perl6/src/builtins/control.pir
   trunk/languages/perl6/src/builtins/guts.pir
   trunk/languages/perl6/src/builtins/io.pir
   trunk/languages/perl6/src/builtins/match.pir
   trunk/languages/perl6/src/builtins/op.pir
   trunk/languages/perl6/src/classes/IO.pir
   trunk/languages/perl6/src/classes/Object.pir
   trunk/languages/perl6/src/classes/Pair.pir
   trunk/languages/perl6/src/classes/Str.pir
   trunk/languages/perl6/src/parser/quote_expression.pir

Log:
[rakudo] bare method names are deprecated


Modified: trunk/languages/perl6/src/builtins/control.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/control.pir	(original)
+++ trunk/languages/perl6/src/builtins/control.pir	Wed Nov 12 21:24:11 2008
@@ -97,7 +97,7 @@
     .local pmc eh
     list = 'list'()
     eh = new 'ExceptionHandler'
-    eh.handle_types(.CONTROL_TAKE)
+    eh.'handle_types'(.CONTROL_TAKE)
     set_addr eh, handler
     push_eh eh
     block()
@@ -110,7 +110,7 @@
     message = exception['message']
     continuation = exception['resume']
     $P0 = exception['payload']
-    list.push($P0)
+    list.'push'($P0)
     continuation()
 .end
 

Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir	(original)
+++ trunk/languages/perl6/src/builtins/guts.pir	Wed Nov 12 21:24:11 2008
@@ -155,7 +155,7 @@
     .lex "$/", $P0
   no_match_to_copy:
 
-    $I0 = type.ACCEPTS(value)
+    $I0 = type.'ACCEPTS'(value)
     if $I0 goto ok
     'die'('Parameter type check failed')
 ok:
@@ -309,7 +309,7 @@
     push resolve_list, $P0
     goto resolve_loop
   resolve_loop_end:
-    class.resolve_method(resolve_list)
+    class.'resolve_method'(resolve_list)
 
     .return(class)
 .end
@@ -383,7 +383,7 @@
     # Register it.
     .local pmc p6meta
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    p6meta.register(class, 'parent'=>'Any')
+    p6meta.'register'(class, 'parent'=>'Any')
 
     .return(class)
 .end

Modified: trunk/languages/perl6/src/builtins/io.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/io.pir	(original)
+++ trunk/languages/perl6/src/builtins/io.pir	Wed Nov 12 21:24:11 2008
@@ -134,7 +134,7 @@
     unless it goto it_loop_end
     $S0 = shift it
     push_eh unlink_skip
-    os.rm($S0)
+    os.'rm'($S0)
     inc success_count
   unlink_skip:
     pop_eh

Modified: trunk/languages/perl6/src/builtins/match.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/match.pir	(original)
+++ trunk/languages/perl6/src/builtins/match.pir	Wed Nov 12 21:24:11 2008
@@ -15,14 +15,14 @@
 .sub 'infix:~~'
     .param pmc topic
     .param pmc x
-    .tailcall x.ACCEPTS(topic)
+    .tailcall x.'ACCEPTS'(topic)
 .end
 
 
 .sub 'infix:!~~'
     .param pmc topic
     .param pmc x
-    .tailcall x.REJECTS(topic)
+    .tailcall x.'REJECTS'(topic)
 .end
 
 =back

Modified: trunk/languages/perl6/src/builtins/op.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/op.pir	(original)
+++ trunk/languages/perl6/src/builtins/op.pir	Wed Nov 12 21:24:11 2008
@@ -409,7 +409,7 @@
     .local pmc p6meta, proto
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
     proto = var.'WHAT'()
-    p6meta.register(derived, 'protoobject'=>proto)
+    p6meta.'register'(derived, 'protoobject'=>proto)
 
     # Instantiate the class to make it form itself.
     $P0 = new derived

Modified: trunk/languages/perl6/src/classes/IO.pir
==============================================================================
--- trunk/languages/perl6/src/classes/IO.pir	(original)
+++ trunk/languages/perl6/src/classes/IO.pir	Wed Nov 12 21:24:11 2008
@@ -87,7 +87,7 @@
 .sub 'readline' :method
     .local pmc PIO
     PIO = getattribute self, "$!PIO"
-    $P0 = PIO.readline('')
+    $P0 = PIO.'readline'('')
     .return ($P0)
 .end
 
@@ -101,7 +101,7 @@
 .sub 'slurp' :method
     .local pmc PIO
     PIO = getattribute self, "$!PIO"
-    $S0 = PIO.slurp('')
+    $S0 = PIO.'slurp'('')
     .return($S0)
 .end
 
@@ -195,7 +195,7 @@
     .local pmc pio
     $P0 = getattribute self, "$!IO"
     pio = getattribute $P0, "$!PIO"
-    $P0 = pio.readline("")
+    $P0 = pio.'readline'("")
     .return($P0)
 .end
 

Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir	(original)
+++ trunk/languages/perl6/src/classes/Object.pir	Wed Nov 12 21:24:11 2008
@@ -195,7 +195,7 @@
     # Instantiate.
     .local pmc p6meta
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    $P0 = p6meta.get_parrotclass(self)
+    $P0 = p6meta.'get_parrotclass'(self)
     $P1 = new $P0
 
     # If this proto object has a WHENCE auto-vivification, we should use
@@ -258,7 +258,7 @@
 
     # We found some parent init data, potentially.
   found_parent_init:
-    init_attribs = cur_ip.WHENCE()
+    init_attribs = cur_ip.'WHENCE'()
     $I0 = 'defined'(init_attribs)
     if $I0 goto parent_init_search_done
     init_attribs = new 'Hash'
@@ -530,7 +530,7 @@
     result_list = 'list'()
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
     class = self.'HOW'()
-    class = p6meta.get_parrotclass(class)
+    class = p6meta.'get_parrotclass'(class)
     mro = inspect class, 'all_parents'
     it = iter mro
     cap_class = get_hll_global 'Capture'
@@ -560,7 +560,7 @@
     $S0 = "Could not invoke method '"
     concat $S0, method_name
     concat $S0, "' on invocant of type '"
-    $S1 = self.WHAT()
+    $S1 = self.'WHAT'()
     concat $S0, $S1
     concat $S0, "'"
     'die'($S0)

Modified: trunk/languages/perl6/src/classes/Pair.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Pair.pir	(original)
+++ trunk/languages/perl6/src/classes/Pair.pir	Wed Nov 12 21:24:11 2008
@@ -40,10 +40,10 @@
 .sub 'ACCEPTS' :method
     .param pmc topic
 
-    $S0 = self.key()
+    $S0 = self.'key'()
     $S0 = concat ':', $S0
 
-    $P0 = self.value()
+    $P0 = self.'value'()
 
     .tailcall topic.$S0($P0)
 .end

Modified: trunk/languages/perl6/src/classes/Str.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Str.pir	(original)
+++ trunk/languages/perl6/src/classes/Str.pir	Wed Nov 12 21:24:11 2008
@@ -53,7 +53,7 @@
 
     retv = self.'split'('')
     retv = retv.'reverse'()
-    retv = retv.join('')
+    retv = retv.'join'('')
 
     .return(retv)
 .end

Modified: trunk/languages/perl6/src/parser/quote_expression.pir
==============================================================================
--- trunk/languages/perl6/src/parser/quote_expression.pir	(original)
+++ trunk/languages/perl6/src/parser/quote_expression.pir	Wed Nov 12 21:24:11 2008
@@ -440,7 +440,7 @@
     mob.'to'(pos)
     .return (mob)
   fail_backchar_digit:
-    self.panic('\123 form deprecated, use \o123 instead')
+    self.'panic'('\123 form deprecated, use \o123 instead')
   fail:
     mob.'to'(-1)
     .return (mob)



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