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)
