Skip to content
Browse files

Reboot and fix viv

  • Loading branch information...
1 parent 8246478 commit 6e4a586d12ef50df8f8a9acec4fac3325643bded @sorear sorear committed Feb 10, 2011
Showing with 13,446 additions and 11,902 deletions.
  1. +6 −6 boot/Cursor.pmc
  2. +13,435 −11,895 boot/STD.pmc
  3. +1 −0 dist.ini
  4. +4 −1 viv
View
12 boot/Cursor.pmc
@@ -7,7 +7,7 @@ use Encode;
moose_extends('CursorBase');
our $ALLROLES = { 'Cursor', 1 };
our $REGEXES = {
- ALL => [ qw// ],
+ALL => [ qw// ],
};
@@ -63,7 +63,7 @@ die 'Required argument s omitted' unless @_;
my $s = @_ ? shift() : undef;
$self->deb("sorry $s") if $::DEBUG;
print STDERR $Cursor::RED, '===', $Cursor::CLEAR, 'SORRY!', $Cursor::RED, '===', $Cursor::CLEAR, "\n"
- unless $::IN_SUPPOSE or $::FATALS++;
+unless $::IN_SUPPOSE or $::FATALS++;
if ($s) {
my $m = $s;
$m .= $self->locmess . "\n" unless $m =~ /\n$/;
@@ -92,7 +92,7 @@ my $post = substr($::ORIG, $pos, 40);
1 while $post =~ s!(\n.*)!!;
$post = '<EOL>' if $post eq '';
" at " . $::FILE->{'name'} . " line $line:\n------> " . $Cursor::GREEN . $pre . $Cursor::YELLOW . $::PERL6HERE . $Cursor::RED .
- "$post$Cursor::CLEAR";
+"$post$Cursor::CLEAR";
};
## method line
sub line {
@@ -114,9 +114,9 @@ my @text = split(/^/,$::ORIG);
for (@text) {
$line++;
$::MEMOS[$pos++]->{'L'} = $line
- for 1 .. length($_);
+for 1 .. length($_);
}
- ;
+;
$::MEMOS[$pos++]->{'L'} = $line;
return $::MEMOS[$p]->{'L'} // 0;
};
@@ -139,4 +139,4 @@ my $s = "'$stop'";
$s = '"\'"' if $s eq "'''";
$self->panic("Unable to parse $name" . $startpos->locmess . "\nCouldn't find final $s; gave up");
};
- 1; };
+1; };
View
25,330 boot/STD.pmc
13,435 additions, 11,895 deletions not shown because the diff is too large. Please use a local Git client to view these changes.
View
1 dist.ini
@@ -1,5 +1,6 @@
name = STD
license = Artistic_2_0
+version = 20101111
author = Larry Wall <larry@wall.org>
author = Stefan O'Rear <stefanor@cox.net>
View
5 viv
@@ -802,6 +802,9 @@ TEMPLATE
{ package VAST::Concatenation; our @ISA = ('VAST::Base', 'VAST::InfixCall');
}
+{ package VAST::Assignment_operator; our @ISA = ('VAST::Base', 'VAST::InfixCall');
+}
+
{ package VAST::Conditional; our @ISA = 'VAST::Base';
sub emit_p5 { my $self = shift;
@@ -1251,7 +1254,7 @@ TEMPLATE
RE_bindnamed->new(var => $1, atom =>
$self->{binding}{quantified_atom}->re_ast);
} else {
- RE_var->new(var => $self->{termish}->p5);
+ RE_var->new(var => scalar $self->{variable}->p5);
}
}
}

0 comments on commit 6e4a586

Please sign in to comment.
Something went wrong with that request. Please try again.