Browse files

Remove stale hashes, workaround bitop definitions

  • Loading branch information...
1 parent 22617be commit af2dab454816f723ab04f771ee71b06f6bf81479 @sorear committed Mar 13, 2011
Showing with 6 additions and 33 deletions.
  1. +1 −11 src/CClass.pm6
  2. +0 −4 src/CgOp.pm6
  3. +0 −1 src/Metamodel.pm6
  4. +0 −4 src/NAMOutput.pm6
  5. +1 −3 src/NieczaActions.pm6
  6. +0 −2 src/NieczaPassBegin.pm6
  7. +1 −3 src/Op.pm6
  8. +2 −2 src/OptRxSimple.pm6
  9. +1 −3 src/RxOp.pm6
View
12 src/CClass.pm6
@@ -1,15 +1,5 @@
-# 28f112a757ef2d6f553d144dd8f8b9a1de17c71b
class CClass;
-sub ord($x) { Q:CgOp { (rawscall Builtins,Kernel.Ord {$x}) } }
-sub chr($x) { Q:CgOp { (rawscall Builtins,Kernel.Chr {$x}) } }
-sub infix:<+&>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumAnd {$x} {$y}) } }
-sub infix:<+|>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumOr {$x} {$y}) } }
-sub infix:<+^>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumXor {$x} {$y}) } }
-sub infix:<< +< >>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumLShift {$x} {$y}) } }
-sub infix:<< +> >>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumRShift {$x} {$y}) } }
-sub prefix:<< +^ >>($x) { Q:CgOp { (rawscall Builtins,Kernel.NumCompl {$x}) } }
-
has $.terms;
my $nclass = 0;
@@ -79,7 +69,7 @@ sub _binop($func, $alr, $blr) {
method plus($other) { _binop(* +| *, self, $other); }
method minus($other) { _binop({ $^a +& +^$^b }, self, $other); }
-method negate() { _binop(-> $a, $b { 0x3FFF_FFFF +& +^$a }, self, $Empty) }
+method negate() { _binop(-> $a, $ { 0x3FFF_FFFF +& +^$a }, self, $Empty) }
our $Word = CClass.catm(< Lu Lt Ll Lm Lo Nd Nl No >).plus('_');
our $Digit = CClass.catm(< Nd Nl No >);
View
4 src/CgOp.pm6
@@ -1,9 +1,5 @@
-# 049d8e5b643845aa2e4409f24ebe039668211dd2
-
class CgOp;
-sub chr($x) { Q:CgOp { (rawscall Builtins,Kernel.Chr {$x}) } }
-
method _cgop(*@bits) {
for @bits { $_ // die "Illegal undef in cgop @bits[0]" }
[ @bits ];
View
1 src/Metamodel.pm6
@@ -1,4 +1,3 @@
-# 7ab22da574d860f10011a6dc4c99d2b4de3f0809
# first half of the file - begin augments are in Begin.pm6
module Metamodel;
View
4 src/NAMOutput.pm6
@@ -1,14 +1,10 @@
-# 7ab22da574d860f10011a6dc4c99d2b4de3f0809
-
class NAMOutput;
use JSYNC;
use Metamodel;
use Sig;
use MONKEY_TYPING;
-sub infix:<+|>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumOr {$x} {$y}) } }
-sub infix:<+&>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumAnd {$x} {$y}) } }
method run($*unit) {
my @*subsnam;
$*unit.visit_local_subs_postorder(&nam_sub);
View
4 src/NieczaActions.pm6
@@ -1,5 +1,3 @@
-# a07a966de52560ebbeea470bc29373a08182a869
-
class NieczaActions;
use Op;
@@ -2700,7 +2698,7 @@ method block($/) { make self.sl_to_block('', $<blockoid>.ast); }
# :: Body
method pblock($/) {
- my $rw = $<lambda> && $<lambda> eq '<->';
+ #my $rw = $<lambda> && $<lambda> eq '<->'; TODO
make self.sl_to_block('', $<blockoid>.ast,
signature => ($<signature> ?? $<signature>.ast !!
self.get_placeholder_sig($/)));
View
2 src/NieczaPassBegin.pm6
@@ -1,5 +1,3 @@
-# e5712784b523fe467ca765dce3d24c4b1b31d9a0
-
class NieczaPassBegin;
use MONKEY_TYPING;
View
4 src/Op.pm6
@@ -1,5 +1,3 @@
-# b508f750646c0869a9efa961965e17e6e40c8d83
-
class Op;
use CgOp;
@@ -30,7 +28,7 @@ method cgop_labelled($body, $label) {
}
}
-method code_labelled($body, $label) { self.code($body) }
+method code_labelled($body, $label) { self.code($body) } #OK not used
# A few words on the nature of bvalues
# A bvalue cannot escape a sub; the return would always extract the
View
4 src/OptRxSimple.pm6
@@ -88,7 +88,7 @@ augment class RxOp::Alt { #OK exist
augment class RxOp::Cut { #OK exist
method mayback() { False }
- method rxsimp($cut) {
+ method rxsimp($cut) { #OK not used
my $kid = $.zyg[0].rxsimp(True);
$kid.mayback ?? ::RxOp::Cut.new(zyg => [$kid]) !! $kid;
}
@@ -110,7 +110,7 @@ augment class RxOp::Sigspace { #OK exist
augment class RxOp::Statement { #OK exist
method mayback() { False }
- method rxsimp($cut) { ::RxOp::Sequence.new(zyg => []) }
+ method rxsimp($ ) { ::RxOp::Sequence.new(zyg => []) }
}
augment class RxOp::ConfineLang { #OK exist
View
4 src/RxOp.pm6
@@ -1,5 +1,3 @@
-# a15d1ecd179d77621b806c0a95af2908c0f2e6b6
-
class RxOp;
use CgOp;
@@ -634,7 +632,7 @@ class ProtoRedis is RxOp {
has $.name = die "ProtoRedis.name required"; # Str
has $.cutltm = False; # Bool
- method code($body) {
+ method code($) {
# will probably break with complicated harnesses
CgOp.letn(
"fns", CgOp.run_protoregex(CgOp.callframe,

0 comments on commit af2dab4

Please sign in to comment.