Red.git | docs/coverage/report-data/ | Red-AST.html
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>RaCoCo result: Red::AST</title>
<link rel="stylesheet"
href="https://stackpath.bootstrapcdn.com/bootstrap/4.4.1/css/bootstrap.min.css"
integrity="sha384-Vkoo8x4CGsO3+Hhxv8T/Q5PaXtkKtu6ug5TOeNV6gBiFeWPGFN9MuhOf23Q9Ifjh"
crossorigin="anonymous">
<style>
pre.code::before {
counter-reset: listing;
}
pre.code span {
counter-increment: listing;
}
pre.code span::before {
content: counter(listing) ". ";
}
.coverage-green {
background-color: #32CD32;
/*color-blind
background-color: #00CED1;
/**/
}
.coverage-red {
background-color: #fa8072;
}
.coverage-purple {
background-color: #9370DB;
}
</style>
</head>
<body>
<div class="container">
<div class="row mt-5 mb-3">
<div class="col-12">
<div class="page-header">
<h1>Red::AST 59.4%</h1>
</div>
</div>
</div>
<div class="row justify-content-md-center">
<div class="col-md-10">
<pre class="code">
<span class="coverage-green">use CX::Red::Bool;</span>
<span class="coverage-no"></span>
<span class="coverage-no">=head2 Red::AST</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Base role for all Red::AST::*</span>
<span class="coverage-green">unit role Red::AST;</span>
<span class="coverage-no">#has Red::AST $.next;</span>
<span class="coverage-no"></span>
<span class="coverage-no">#multi method add(Red::AST:D: Red::AST:D $next) { if $!next { $!next.add: $next } else { $!next = $next } }</span>
<span class="coverage-no">#multi method add(Red::AST:U: Red::AST:D $next) { $next }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#method gist { ... }</span>
<span class="coverage-red">method find-column-name { ... }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#method should-set($class --> Hash()) { ... }</span>
<span class="coverage-no">#method should-validate(%values --> Bool()) { ... }</span>
<span class="coverage-no"></span>
<span class="coverage-red">method gist { self.^name ~ ":\n" ~ $.args.map(*.gist).join("\n").indent: 4 }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Returns the nagation of the AST.</span>
<span class="coverage-red">method not { die "not on { self.^name } must be implemented" }</span>
<span class="coverage-no"></span>
<span class="coverage-red">method args { ... }</span>
<span class="coverage-red">method returns { ... }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| If inside of a block for ResultSeq mothods throws a control exception</span>
<span class="coverage-no">#| and populates all possibilities</span>
<span class="coverage-green">method Bool(--> Bool()) {</span>
<span class="coverage-green"> return True unless %*VALS.defined;</span>
<span class="coverage-green"> %*VALS{self} = False if %*VALS{self}:!exists;</span>
<span class="coverage-green"> CX::Red::Bool.new(:ast(self), :value(%*VALS{self})).throw;</span>
<span class="coverage-green"> %*VALS{self}</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">method Str { self }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Find the first AST node folowing the rule</span>
<span class="coverage-red">method transpose-first(::?CLASS:D: &func) {</span>
<span class="coverage-red"> self.transpose-grep(&func).head</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Find AST nodes folowing the rule</span>
<span class="coverage-green">method transpose-grep(::?CLASS:D: &func) {</span>
<span class="coverage-green"> gather {</span>
<span class="coverage-green"> self.transpose: -> $node {</span>
<span class="coverage-green"> take $node if func $node;</span>
<span class="coverage-red"> True</span>
<span class="coverage-no"> }</span>
<span class="coverage-no"> }</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Transposes the AST tree running the function.</span>
<span class="coverage-green">method transpose(::?CLASS:D: &func) {</span>
<span class="coverage-green"> return unless func self;</span>
<span class="coverage-green"> die self unless self.^can: "args";</span>
<span class="coverage-green"> for self.args.grep: Red::AST -> $arg {</span>
<span class="coverage-green"> next without $arg;</span>
<span class="coverage-green"> .transpose: &func with $arg;</span>
<span class="coverage-no"> }</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Returns a list with all the tables used on the AST</span>
<span class="coverage-green">method tables(::?CLASS:D:) {</span>
<span class="coverage-green"> |self.transpose-grep({ .^name eq "Red::Column" })ยป.class.grep(-> \v { v !=:= Nil }).unique;</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-red">method replace(::?CLASS:D: Red::AST \n, Red::AST $s) {</span>
<span class="coverage-red"> self eqv n</span>
<span class="coverage-no"> ?? $s</span>
<span class="coverage-no"> !! self.clone:</span>
<span class="coverage-red"> |self.^attributes.map({</span>
<span class="coverage-red"> my \val = .get_value(self);</span>
<span class="coverage-red"> .name.substr(2) => val ~~ Red::AST && val.DEFINITE ?? (val.?replace(n, $s) // val) !! val</span>
<span class="coverage-no"> }).Hash</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method WHICH(::?CLASS:D:) {</span>
<span class="coverage-green"> ValueObjAt.new: "{ self.^name }|{ $.args>>.WHICH.join: "|" }"</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-red">multi method WHICH(::?CLASS:U:) {</span>
<span class="coverage-red"> ValueObjAt.new: "{ self.^name }"</span>
<span class="coverage-no">}</span>
</pre>
</div>
</div>
</div>
</body>
</html>