Author: infinoid
Date: Fri Jan 9 08:12:24 2009
New Revision: 35312
Modified:
trunk/languages/perl6/src/builtins/guts.pir
trunk/languages/perl6/src/classes/Signature.pir
trunk/languages/perl6/src/parser/actions.pm
trunk/src/pmc/class.pmc
trunk/src/pmc/role.pmc
Log:
[cage] More trailing whitespace fixes.
Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir (original)
+++ trunk/languages/perl6/src/builtins/guts.pir Fri Jan 9 08:12:24 2009
@@ -398,7 +398,7 @@
=item !meta_create(type, name, also)
-Create a metaclass object for C<type> with the given C<name>.
+Create a metaclass object for C<type> with the given C<name>.
This simply creates a handle on which we can hang methods, attributes,
traits, etc. -- the class itself isn't created until the class
is composed (see C<!meta_compose> below).
@@ -448,7 +448,7 @@
$S0 = pop nsarray
set_hll_global nsarray, $S0, metarole
.return (metarole)
-.end
+.end
=item !meta_compose(Class metaclass)
@@ -514,7 +514,7 @@
if type == 'trait_auxiliary:is' goto is
if type == 'trait_auxiliary:does' goto does
'die'("Unknown trait auxiliary ", type)
-
+
is:
## get the (parrot)class object associated with name
$P0 = compreg 'Perl6'
Modified: trunk/languages/perl6/src/classes/Signature.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Signature.pir (original)
+++ trunk/languages/perl6/src/classes/Signature.pir Fri Jan 9 08:12:24 2009
@@ -317,7 +317,7 @@
setprop var, 'type', type
## place the updated variable back into lex
callerlex[name] = var
- goto param_loop
+ goto param_loop
param_done:
end:
.return ()
Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Fri Jan 9 08:12:24 2009
@@ -1037,7 +1037,7 @@
$sigparam.push(PAST::Val.new( :value(1),
:named('invocant')));
$var.scope('lexical');
$var.isdecl(1);
- $var.viviself(
+ $var.viviself(
PAST::Var.new( :name('self'), :scope('register') )
)
}
@@ -1124,7 +1124,7 @@
my $type_past := $( $_ );
if $type_past.isa(PAST::Var) && $type_past.scope() eq 'lexical' {
our @?BLOCK;
- # Lexical type constraint.
+ # Lexical type constraint.
if $type_past.isdecl() {
# If it's a declaration, we need to initialize it.
$type_past.viviself(
@@ -1137,7 +1137,7 @@
}
else {
# we need to thunk it
- my $thunk := PAST::Op.new(
+ my $thunk := PAST::Op.new(
:name('ACCEPTS'), :pasttype('callmethod'),
$type_past,
PAST::Var.new( :name('$_'), :scope('parameter') )
@@ -1671,7 +1671,7 @@
$var.isdecl(1);
$var<type> := PAST::Op.new( :name('and'), :pasttype('call') );
$var<itype> := container_itype($<variable><sigil>);
-
+
if $<trait> {
my $traitlist := PAST::Op.new( :name('infix:,'), :pasttype('call')
);
$var<traitlist> := $traitlist;
@@ -1795,8 +1795,8 @@
$var := $( $<special_variable> );
}
elsif $key eq '$0' {
- $var := PAST::Var.new(
- :scope('keyed_int'),
+ $var := PAST::Var.new(
+ :scope('keyed_int'),
:node($/),
:viviself('Failure'),
PAST::Var.new( :scope('lexical'), :name('$/') ),
@@ -1804,7 +1804,7 @@
}
elsif $key eq '$<>' {
$var := $( $<postcircumfix> );
- $var.unshift( PAST::Var.new( :scope('lexical'), :name('$/'),
+ $var.unshift( PAST::Var.new( :scope('lexical'), :name('$/'),
:viviself('Failure'), :node($/) )
);
}
@@ -2254,11 +2254,11 @@
method regex_declarator($/) {
my $sym := ~$<sym>;
my $past := $( $<regex_def> );
- if $sym eq 'token'
+ if $sym eq 'token'
{ $past.compiler_args( :grammar(''), :ratchet(1) ); }
- elsif $sym eq 'rule'
+ elsif $sym eq 'rule'
{ $past.compiler_args( :grammar(''), :s(1), :ratchet(1) ); }
- else
+ else
{ $past.compiler_args( :grammar('') ); }
make $past;
}
@@ -2268,10 +2268,10 @@
$past.name( ~$<deflongname>[0] );
make $past;
}
-
+
method regex_block($/) {
make $( $<quote_expression> );
-}
+}
method type_declarator($/) {
Modified: trunk/src/pmc/class.pmc
==============================================================================
--- trunk/src/pmc/class.pmc (original)
+++ trunk/src/pmc/class.pmc Fri Jan 9 08:12:24 2009
@@ -926,7 +926,7 @@
/* return found value */
if (PMC_IS_NULL(found)) { return PMCNULL; }
if (found->vtable->base_type == enum_class_Hash) {
- /* for Hash return values, create and return a shallow
+ /* for Hash return values, create and return a shallow
* clone because the VTABLE_clone does a deep clone */
PMC * const hash = pmc_new(interp, enum_class_Hash);
PMC * const iter = VTABLE_get_iter(interp, found);
Modified: trunk/src/pmc/role.pmc
==============================================================================
--- trunk/src/pmc/role.pmc (original)
+++ trunk/src/pmc/role.pmc Fri Jan 9 08:12:24 2009
@@ -433,7 +433,7 @@
/* Clone and return. */
if (PMC_IS_NULL(found)) { return PMCNULL; }
if (found->vtable->base_type == enum_class_Hash) {
- /* for Hash return values, create and return a shallow
+ /* for Hash return values, create and return a shallow
* clone because the VTABLE_clone does a deep clone */
PMC * const hash = pmc_new(interp, enum_class_Hash);
PMC * const iter = VTABLE_get_iter(interp, found);
