Members/anatofuz/MoarVM: tools/parse_coverage

annotate tools/parse_coverage_report.p6 @ 42:dc42e7eb1adf

delte '-fno-optimize-sibling-calls' optin to use use clang in compilation

author	Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date	Thu, 29 Nov 2018 19:43:32 +0900
parents	2cf249471370
children

rev	line source
0 2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1 use v6;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	2
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	3 sub MAIN(
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	4 Str $coverage where *.IO.e, # full-cover
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	5 Str $source where *.IO.e, # gen/moar/CORE.setting
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	6 Str :$annotations, # setting
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	7 ) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	8 my (%annotations, %covered-lines)
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	9 := \|await (start get-annotations-from $annotations),
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	10 start get-coverage-from $coverage;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	11
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	12 my (%all, %stats is BagHash, $current-file, @lines, int $i);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	13 for $source.IO.lines -> $line {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	14 $i++;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	15 when $line.starts-with: '#line 1 SETTING::src' {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	16 $current-file
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	17 andthen %all{$_} = process-stats %(\|%stats), @lines
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	18 andthen create-coverage-file $_, @lines;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	19 %stats = file => $current-file = $line.words.tail;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	20 @lines = ();
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	21 $i = 0;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	22 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	23
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	24 @lines.push: $_ => $line with do with $current-file {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	25 when so %covered-lines{$_}{~$i} { %stats<covered>++; 'c' }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	26 when so %annotations{$_}{~$i} { %stats<uncovered>++; 'u' }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	27 %stats<uncovered>++; 'i';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	28 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	29 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	30
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	31 # also build a little overview page
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	32 with "coverage/index.html".IO.open(:w) -> $outfile {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	33 LEAVE $outfile.close;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	34 $outfile.say: Q:c:to/TMPL/;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	35 <!DOCTYPE html>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	36 <html lang="en">
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	37 <meta charset="utf-8">
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	38 <title>coverage overview for {$source} </title>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	39 {$*css}
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	40 TMPL
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	41
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	42 $outfile.say: Q:to/TMPL/;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	43 <table id="coverage" class="sort">
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	44 <thead>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	45 <tr>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	46 <th>Filename</th>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	47 <th>Covered</th>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	48 <th>Percentage</th>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	49 <th>Uncovered</th>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	50 <th>Ignored</th>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	51 <th>Total</th>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	52 </tr>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	53 </thead>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	54 <tbody>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	55 TMPL
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	56
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	57 for %all.sort {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	58 my $name = .key;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	59 my $v = .value;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	60 $outfile.say: qq:to/TMPL/;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	61 <tr>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	62 <td> <a href="$v<path>"> $name </a> </td>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	63 <td> $v<covered> </td>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	64 <td> $v<percentage>% </td>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	65 <td> $v<uncovered> </td>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	66 <td> $v<ignored> </td>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	67 <td> $v<total> </td>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	68 </tr>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	69 TMPL
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	70 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	71
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	72 $outfile.say: Q:to/TMPL/;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	73 </tbody>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	74 </table>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	75 <script src="tablesort.js"></script>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	76 <script src="tablesort.number.js"></script>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	77 <script>new Tablesort(document.getElementById("coverage"));</script>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	78 TMPL
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	79 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	80
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	81 spurt 'coverage/tablesort.js', $*tablesort;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	82 spurt 'coverage/tablesort.number.js', $*tablesort-number;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	83 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	84
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	85 sub process-stats ($_, @lines) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	86 .<path> = .<file>.subst(:g, /\W/, '_') ~ ".coverage.html";
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	87 .<covered> = +@lines.grep: *.key eq 'c';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	88 .<uncovered> = +@lines.grep: *.key eq 'u';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	89 .<ignored> = +@lines.grep: *.key eq 'i';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	90 .<total> = .<ignored> + .<covered> + .<uncovered>;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	91 with .<covered> + .<uncovered> -> $all {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	92 .<percentage> = ($all == 0 ?? 0 !! 100 * .<covered> / $all).round: .01
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	93 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	94
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	95 $_
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	96 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	97
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	98 sub create-coverage-file (%stats, @lines) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	99 with "coverage/%stats<path>".IO {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	100 .spurt: join "\n",
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	101 Q:h:to/TMPL/,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	102 <!DOCTYPE html>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	103 <html lang="en">
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	104 <meta charset="utf-8">
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	105 <title>coverage report for %stats<file> </title>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	106 <style>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	107 li { white-space: pre }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	108 li.c { background: #cfc }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	109 li.u { background: #fcc }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	110 li.i { background: #ccc }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	111 li:before { background: #ccc; }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	112 </style>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	113 <body>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	114 <ol style="font-family: monospace">
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	115 TMPL
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	116 @lines.map({
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	117 '<li class="' ~ .key ~ '">' ~ .value.trans: ['<'] => ['<']
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	118 }),
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	119 '</ol>';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	120
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	121 note "Wrote $_";
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	122 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	123 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	124
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	125 multi get-annotations-from (Any:D $ann where .?IO.e) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	126 note "Analyzing annotations file $ann";
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	127 my %annotations .= push: $ann.IO.lines.grep(
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	128 *.starts-with: ' annotation: SETTING::'
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	129 ).map(*.substr: chars ' annotation: ').map: {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	130 # filename => line number
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	131 substr($_, 0, rindex($_, ':') )
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	132 => substr($_, rindex($_, ':')+1)
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	133 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	134 note "Done analyzing annotations file: {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	135 %annotations{*;}».elems.sum
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	136 } lines found";
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	137 %annotations».Set
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	138 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	139 multi get-annotations-from ($ann) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	140 note Q:c:to/END/;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	141 No annotations file { $ann ?? "found at $ann" !! "supplied" }.
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	142 This tool relies on a file generated with moar --dump foobar.moarvm
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	143 that contains annotations for every line that can potentially be hit
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	144 END
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	145 %
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	146 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	147
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	148 sub get-coverage-from($file) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	149 note "Reading coverage report from $file";
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	150 my %coverage .= push: $file.IO.lines.grep(*.starts-with: 'HIT').map: {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	151 .[1] => .[2] with .words # filename => line number
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	152 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	153
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	154 note "Coverage report read: {%coverage{*;}».elems.sum} lines covered.";
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	155 %coverage».Set
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	156 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	157
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	158 my $*css = q:to/CSS/;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	159 <style type="text/css">
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	160 th.sort-header::-moz-selection { background:transparent; }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	161 th.sort-header::selection { background:transparent; }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	162 th.sort-header { cursor:pointer; }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	163 table th.sort-header:after {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	164 content:'';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	165 float:right;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	166 margin-top:7px;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	167 border-width:0 4px 4px;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	168 border-style:solid;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	169 border-color:#404040 transparent;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	170 visibility:hidden;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	171 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	172 table th.sort-header:hover:after {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	173 visibility:visible;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	174 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	175 table th.sort-up:after,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	176 table th.sort-down:after,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	177 table th.sort-down:hover:after {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	178 visibility:visible;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	179 opacity:0.4;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	180 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	181 table th.sort-up:after {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	182 border-bottom:none;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	183 border-width:4px 4px 0;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	184 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	185 </style>
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	186 CSS
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	187
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	188 my $*tablesort = q:to/TABLESORT/;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	189 /*!
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	190 * tablesort v4.0.1 (2016-03-30)
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	191 * http://tristen.ca/tablesort/demo/
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	192 * Copyright (c) 2016 ; Licensed MIT
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	193 */!
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	194 (function() {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	195 function Tablesort(el, options) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	196 if (!(this instanceof Tablesort)) return new Tablesort(el, options);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	197
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	198 if (!el \|\| el.tagName !== 'TABLE') {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	199 throw new Error('Element must be a table');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	200 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	201 this.init(el, options \|\| {});
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	202 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	203
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	204 var sortOptions = [];
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	205
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	206 var createEvent = function(name) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	207 var evt;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	208
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	209 if (!window.CustomEvent \|\| typeof window.CustomEvent !== 'function') {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	210 evt = document.createEvent('CustomEvent');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	211 evt.initCustomEvent(name, false, false, undefined);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	212 } else {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	213 evt = new CustomEvent(name);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	214 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	215
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	216 return evt;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	217 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	218
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	219 var getInnerText = function(el) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	220 return el.getAttribute('data-sort') \|\| el.textContent \|\| el.innerText \|\| '';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	221 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	222
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	223 // Default sort method if no better sort method is found
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	224 var caseInsensitiveSort = function(a, b) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	225 a = a.toLowerCase();
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	226 b = b.toLowerCase();
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	227
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	228 if (a === b) return 0;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	229 if (a < b) return 1;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	230
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	231 return -1;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	232 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	233
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	234 // Stable sort function
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	235 // If two elements are equal under the original sort function,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	236 // then there relative order is reversed
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	237 var stabilize = function(sort, antiStabilize) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	238 return function(a, b) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	239 var unstableResult = sort(a.td, b.td);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	240
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	241 if (unstableResult === 0) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	242 if (antiStabilize) return b.index - a.index;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	243 return a.index - b.index;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	244 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	245
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	246 return unstableResult;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	247 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	248 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	249
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	250 Tablesort.extend = function(name, pattern, sort) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	251 if (typeof pattern !== 'function' \|\| typeof sort !== 'function') {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	252 throw new Error('Pattern and sort must be a function');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	253 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	254
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	255 sortOptions.push({
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	256 name: name,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	257 pattern: pattern,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	258 sort: sort
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	259 });
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	260 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	261
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	262 Tablesort.prototype = {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	263
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	264 init: function(el, options) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	265 var that = this,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	266 firstRow,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	267 defaultSort,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	268 i,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	269 cell;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	270
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	271 that.table = el;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	272 that.thead = false;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	273 that.options = options;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	274
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	275 if (el.rows && el.rows.length > 0) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	276 if (el.tHead && el.tHead.rows.length > 0) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	277 firstRow = el.tHead.rows[el.tHead.rows.length - 1];
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	278 that.thead = true;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	279 } else {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	280 firstRow = el.rows[0];
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	281 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	282 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	283
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	284 if (!firstRow) return;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	285
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	286 var onClick = function() {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	287 if (that.current && that.current !== this) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	288 that.current.classList.remove('sort-up');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	289 that.current.classList.remove('sort-down');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	290 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	291
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	292 that.current = this;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	293 that.sortTable(this);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	294 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	295
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	296 // Assume first row is the header and attach a click handler to each.
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	297 for (i = 0; i < firstRow.cells.length; i++) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	298 cell = firstRow.cells[i];
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	299 if (!cell.classList.contains('no-sort')) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	300 cell.classList.add('sort-header');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	301 cell.tabindex = 0;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	302 cell.addEventListener('click', onClick, false);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	303
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	304 if (cell.classList.contains('sort-default')) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	305 defaultSort = cell;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	306 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	307 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	308 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	309
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	310 if (defaultSort) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	311 that.current = defaultSort;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	312 that.sortTable(defaultSort);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	313 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	314 },
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	315
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	316 sortTable: function(header, update) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	317 var that = this,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	318 column = header.cellIndex,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	319 sortFunction = caseInsensitiveSort,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	320 item = '',
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	321 items = [],
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	322 i = that.thead ? 0 : 1,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	323 sortDir,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	324 sortMethod = header.getAttribute('data-sort-method'),
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	325 sortOrder = header.getAttribute('data-sort-order');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	326
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	327 that.table.dispatchEvent(createEvent('beforeSort'));
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	328
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	329 // If updating an existing sort `sortDir` should remain unchanged.
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	330 if (update) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	331 sortDir = header.classList.contains('sort-up') ? 'sort-up' : 'sort-down';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	332 } else {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	333 if (header.classList.contains('sort-up')) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	334 sortDir = 'sort-down';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	335 } else if (header.classList.contains('sort-down')) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	336 sortDir = 'sort-up';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	337 } else if (sortOrder === 'asc') {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	338 sortDir = 'sort-down';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	339 } else if (sortOrder === 'desc') {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	340 sortDir = 'sort-up';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	341 } else {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	342 sortDir = that.options.descending ? 'sort-up' : 'sort-down';
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	343 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	344
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	345 header.classList.remove(sortDir === 'sort-down' ? 'sort-up' : 'sort-down');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	346 header.classList.add(sortDir);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	347 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	348
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	349 if (that.table.rows.length < 2) return;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	350
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	351 // If we force a sort method, it is not necessary to check rows
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	352 if (!sortMethod) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	353 while (items.length < 3 && i < that.table.tBodies[0].rows.length) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	354 item = getInnerText(that.table.tBodies[0].rows[i].cells[column]);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	355 item = item.trim();
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	356
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	357 if (item.length > 0) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	358 items.push(item);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	359 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	360
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	361 i++;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	362 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	363
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	364 if (!items) return;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	365 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	366
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	367 for (i = 0; i < sortOptions.length; i++) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	368 item = sortOptions[i];
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	369
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	370 if (sortMethod) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	371 if (item.name === sortMethod) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	372 sortFunction = item.sort;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	373 break;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	374 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	375 } else if (items.every(item.pattern)) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	376 sortFunction = item.sort;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	377 break;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	378 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	379 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	380
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	381 that.col = column;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	382
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	383 for (i = 0; i < that.table.tBodies.length; i++) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	384 var newRows = [],
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	385 noSorts = {},
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	386 j,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	387 totalRows = 0,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	388 noSortsSoFar = 0;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	389
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	390 if (that.table.tBodies[i].rows.length < 2) continue;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	391
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	392 for (j = 0; j < that.table.tBodies[i].rows.length; j++) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	393 item = that.table.tBodies[i].rows[j];
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	394 if (item.classList.contains('no-sort')) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	395 // keep no-sorts in separate list to be able to insert
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	396 // them back at their original position later
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	397 noSorts[totalRows] = item;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	398 } else {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	399 // Save the index for stable sorting
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	400 newRows.push({
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	401 tr: item,
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	402 td: getInnerText(item.cells[that.col]),
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	403 index: totalRows
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	404 });
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	405 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	406 totalRows++;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	407 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	408 // Before we append should we reverse the new array or not?
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	409 // If we reverse, the sort needs to be `anti-stable` so that
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	410 // the double negatives cancel out
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	411 if (sortDir === 'sort-down') {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	412 newRows.sort(stabilize(sortFunction, true));
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	413 newRows.reverse();
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	414 } else {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	415 newRows.sort(stabilize(sortFunction, false));
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	416 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	417
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	418 // append rows that already exist rather than creating new ones
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	419 for (j = 0; j < totalRows; j++) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	420 if (noSorts[j]) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	421 // We have a no-sort row for this position, insert it here.
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	422 item = noSorts[j];
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	423 noSortsSoFar++;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	424 } else {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	425 item = newRows[j - noSortsSoFar].tr;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	426 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	427
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	428 // appendChild(x) moves x if already present somewhere else in the DOM
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	429 that.table.tBodies[i].appendChild(item);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	430 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	431 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	432
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	433 that.table.dispatchEvent(createEvent('afterSort'));
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	434 },
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	435
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	436 refresh: function() {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	437 if (this.current !== undefined) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	438 this.sortTable(this.current, true);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	439 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	440 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	441 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	442
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	443 if (typeof module !== 'undefined' && module.exports) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	444 module.exports = Tablesort;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	445 } else {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	446 window.Tablesort = Tablesort;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	447 }
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	448 })();
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	449 TABLESORT
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	450
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	451 my $*tablesort-number = q:to/TABLESORT-NUMBER/;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	452 (function(){
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	453 var cleanNumber = function(i) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	454 return i.replace(/[^\-?0-9.]/g, '');
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	455 },
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	456
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	457 compareNumber = function(a, b) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	458 a = parseFloat(a);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	459 b = parseFloat(b);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	460
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	461 a = isNaN(a) ? 0 : a;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	462 b = isNaN(b) ? 0 : b;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	463
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	464 return a - b;
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	465 };
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	466
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	467 Tablesort.extend('number', function(item) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	468 return item.match(/^-?[£\x24Û¢´€]?\d+\s*([,\.]\d{0,2})/) \|\| // Prefixed currency
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	469 item.match(/^-?\d+\s*([,\.]\d{0,2})?[£\x24Û¢´€]/) \|\| // Suffixed currency
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	470 item.match(/^-?(\d)*-?([,\.]){0,1}-?(\d)+([E,e][\-+][\d]+)?%?$/); // Number
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	471 }, function(a, b) {
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	472 a = cleanNumber(a);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	473 b = cleanNumber(b);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	474
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	475 return compareNumber(b, a);
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	476 });
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	477 }());
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	478 TABLESORT-NUMBER
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	479
2cf249471370 convert mercurial for git Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	480 # vim: ft=perl6 expandtab sw=4

Mercurial > hg > Members > anatofuz > MoarVM

annotate tools/parse_coverage_report.p6 @ 42:dc42e7eb1adf