Author: pmichaud
Date: Fri Nov 7 13:42:22 2008
New Revision: 32439
Modified:
branches/rakon/languages/perl6/src/builtins/assign.pir
branches/rakon/languages/perl6/src/classes/Array.pir
branches/rakon/languages/perl6/src/classes/Bool.pir
branches/rakon/languages/perl6/src/classes/Capture.pir
branches/rakon/languages/perl6/src/classes/Code.pir
branches/rakon/languages/perl6/src/classes/Complex.pir
branches/rakon/languages/perl6/src/classes/Hash.pir
branches/rakon/languages/perl6/src/classes/IO.pir
branches/rakon/languages/perl6/src/classes/Int.pir
branches/rakon/languages/perl6/src/classes/Junction.pir
branches/rakon/languages/perl6/src/classes/List.pir
branches/rakon/languages/perl6/src/classes/Mapping.pir
branches/rakon/languages/perl6/src/classes/Num.pir
branches/rakon/languages/perl6/src/classes/Object.pir
branches/rakon/languages/perl6/src/classes/Pair.pir
branches/rakon/languages/perl6/src/classes/Range.pir
branches/rakon/languages/perl6/src/classes/Str.pir
branches/rakon/languages/perl6/src/classes/Whatever.pir
Log:
[rakudo]: Some final refactors ( !VALUE --> Scalar ) before merge to trunk
Modified: branches/rakon/languages/perl6/src/builtins/assign.pir
==============================================================================
--- branches/rakon/languages/perl6/src/builtins/assign.pir (original)
+++ branches/rakon/languages/perl6/src/builtins/assign.pir Fri Nov 7
13:42:22 2008
@@ -29,9 +29,9 @@
if $I0 goto hash
object_ref:
- $I0 = can source, '!VALUE'
+ $I0 = can source, 'Scalar'
unless $I0 goto have_source
- source = source.'!VALUE'()
+ source = source.'Scalar'()
have_source:
.local pmc ro, type
getprop ro, 'readonly', cont
Modified: branches/rakon/languages/perl6/src/classes/Array.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Array.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Array.pir Fri Nov 7
13:42:22 2008
@@ -34,7 +34,7 @@
=over 4
-=item !VALUE()
+=item Scalar()
Returns an ObjectRef referencing itself, unless it already is one in which
case just returns as is.
@@ -43,7 +43,7 @@
.namespace ['Perl6Array']
-.sub '!VALUE' :method
+.sub 'Scalar' :method
$I0 = isa self, 'ObjectRef'
unless $I0 goto not_ref
.return (self)
Modified: branches/rakon/languages/perl6/src/classes/Bool.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Bool.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Bool.pir Fri Nov 7 13:42:22 2008
@@ -29,13 +29,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Capture.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Capture.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Capture.pir Fri Nov 7
13:42:22 2008
@@ -20,13 +20,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Code.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Code.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Code.pir Fri Nov 7 13:42:22 2008
@@ -22,13 +22,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Complex.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Complex.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Complex.pir Fri Nov 7
13:42:22 2008
@@ -30,13 +30,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Hash.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Hash.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Hash.pir Fri Nov 7 13:42:22 2008
@@ -35,14 +35,14 @@
.namespace ['Perl6Hash']
-=item !VALUE()
+=item Scalar()
Returns an ObjectRef referencing itself, unless it already is one in which
case just returns as is.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
$I0 = isa self, 'ObjectRef'
unless $I0 goto not_ref
.return (self)
Modified: branches/rakon/languages/perl6/src/classes/IO.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/IO.pir (original)
+++ branches/rakon/languages/perl6/src/classes/IO.pir Fri Nov 7 13:42:22 2008
@@ -181,13 +181,13 @@
.end
-=item !VALUE
+=item Scalar
Return the value inside this container in item context.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.tailcall self.'item'()
.end
Modified: branches/rakon/languages/perl6/src/classes/Int.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Int.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Int.pir Fri Nov 7 13:42:22 2008
@@ -25,13 +25,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Junction.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Junction.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Junction.pir Fri Nov 7
13:42:22 2008
@@ -25,13 +25,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/List.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/List.pir (original)
+++ branches/rakon/languages/perl6/src/classes/List.pir Fri Nov 7 13:42:22 2008
@@ -21,7 +21,7 @@
.end
-=item !VALUE
+=item Scalar
When we're going to be stored as an item, become an Array and then return
ourself in a ObjectRef.
@@ -29,10 +29,10 @@
=cut
.namespace ['List']
-.sub '!VALUE' :method
+.sub 'Scalar' :method
# promote the list to an Array and return its VALUE
$P0 = self.'item'()
- .tailcall $P0.'!VALUE'()
+ .tailcall $P0.'Scalar'()
.end
Modified: branches/rakon/languages/perl6/src/classes/Mapping.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Mapping.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Mapping.pir Fri Nov 7
13:42:22 2008
@@ -22,14 +22,14 @@
.end
-=item !VALUE
+=item Scalar
When we're going to be stored as an item, become a Hash and then return
ourself in a ObjectRef.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
# Create a hash with our values.
.local pmc hash, it
hash = get_hll_global "Hash"
Modified: branches/rakon/languages/perl6/src/classes/Num.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Num.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Num.pir Fri Nov 7 13:42:22 2008
@@ -22,13 +22,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Object.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Object.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Object.pir Fri Nov 7
13:42:22 2008
@@ -49,14 +49,14 @@
.namespace ['Perl6Object']
-=item !VALUE()
+=item Scalar()
Default implementation gives reference type semantics, and returns an object
reference, unless the thing already is one.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
$I0 = isa self, 'ObjectRef'
unless $I0 goto not_ref
.return (self)
Modified: branches/rakon/languages/perl6/src/classes/Pair.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Pair.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Pair.pir Fri Nov 7 13:42:22 2008
@@ -19,13 +19,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Range.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Range.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Range.pir Fri Nov 7
13:42:22 2008
@@ -21,13 +21,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Str.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Str.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Str.pir Fri Nov 7 13:42:22 2008
@@ -31,13 +31,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
Modified: branches/rakon/languages/perl6/src/classes/Whatever.pir
==============================================================================
--- branches/rakon/languages/perl6/src/classes/Whatever.pir (original)
+++ branches/rakon/languages/perl6/src/classes/Whatever.pir Fri Nov 7
13:42:22 2008
@@ -19,13 +19,13 @@
.end
-=item !VALUE
+=item Scalar
This is a value type, so just returns itself.
=cut
-.sub '!VALUE' :method
+.sub 'Scalar' :method
.return (self)
.end
