| OLD | NEW |
|---|
| (Empty) |
| 1 #!/usr/bin/perl | |
| 2 # XXX | |
| 3 | |
| 4 sub table() { | |
| 5 my ($name) = @_; | |
| 6 print <<'EOF'; | |
| 7 <table border=0> | |
| 8 <tr><th>System</th><th>PCRE</th><th>RE2</th></tr> | |
| 9 EOF | |
| 10 foreach my $sys (@sys) { | |
| 11 my $ns_pcre = $data{$sys}->{sprintf($name, "PCRE")}->{'ns/op'}; | |
| 12 my $ns_re2 = $data{$sys}->{sprintf($name, "RE2")}->{'ns/op'}; | |
| 13 printf "<tr><td>%s</td><td>%.1f µs</td><td>%.1f µs</td></tr>\n",
$sysname{$sys}, $ns_pcre/1000., $ns_re2/1000.; | |
| 14 } | |
| 15 print <<'EOF'; | |
| 16 <tr height=5><td colspan=3></td></tr> | |
| 17 </table> | |
| 18 EOF | |
| 19 } | |
| 20 | |
| 21 @sizes = ( | |
| 22 "8", "16", "32", "64", "128", "256", "512", | |
| 23 "1K", "2K", "4K", "8K", "16K", "32K", "64K", "128K", "256K", "512K", | |
| 24 "1M", "2M", "4M", "8M", "16M" | |
| 25 ); | |
| 26 | |
| 27 %color = ( | |
| 28 "PCRE" => "0.7 0 0", | |
| 29 "RE2" => "0 0 1", | |
| 30 ); | |
| 31 | |
| 32 $ngraph = 0; | |
| 33 | |
| 34 sub graph() { | |
| 35 my ($name) = @_; | |
| 36 | |
| 37 my $sys = "wreck"; | |
| 38 my $base = sprintf("regexp3g%d", ++$ngraph); | |
| 39 | |
| 40 open(JGR, ">$base.jgr") || die "open >$base.jgr: $!"; | |
| 41 printf JGR "bbox -20 -12 392 95\n"; | |
| 42 printf JGR "newgraph clip x_translate 0.25 y_translate 0.25\n"; | |
| 43 $ymax = 0; | |
| 44 %lastx = (); | |
| 45 %lasty = (); | |
| 46 foreach my $who ("PCRE", "RE2") { | |
| 47 printf JGR "newcurve pts\n"; | |
| 48 for(my $i=0; $i<@sizes; $i++) { | |
| 49 my $key = sprintf("%s%s/%s", $name, $who, $sizes[$i]); | |
| 50 my $val = $data{$sys}->{$key}->{'MB/s'}; | |
| 51 next if !defined($val); | |
| 52 if($val > $ymax) { | |
| 53 $ymax = $val; | |
| 54 } | |
| 55 $lastx{$who} = $i; | |
| 56 $lasty{$who} = $val; | |
| 57 printf JGR "$i %f (* %s *)\n", $val, $key; | |
| 58 } | |
| 59 my $color = $color{$who}; | |
| 60 printf JGR "marktype none color $color linethickness 2 linetype
solid label : $who\n"; | |
| 61 } | |
| 62 my $n = @sizes; | |
| 63 printf JGR "xaxis min -1 max $n size 5 label : text size (bytes)\n"; | |
| 64 printf JGR " no_auto_hash_marks hash_labels fontsize 9\n"; | |
| 65 for($i=0; $i<@sizes; $i+=3) { | |
| 66 printf JGR " hash_at $i hash_label at $i : $sizes[$i]\n"; | |
| 67 } | |
| 68 my $y = 1; | |
| 69 while(10*$y <= $ymax) { | |
| 70 $y = 10*$y; | |
| 71 } | |
| 72 for($i=2; $i<=10; $i++) { | |
| 73 if($i*$y > $ymax) { | |
| 74 $y = $i*$y; | |
| 75 last; | |
| 76 } | |
| 77 } | |
| 78 foreach my $who ("PCRE", "RE2") { | |
| 79 $x1 = $lastx{$who}; | |
| 80 $y1 = $lasty{$who}; | |
| 81 $x1 *= 1.01; | |
| 82 my $v = "vjc"; | |
| 83 if($y1 < 0.05 * $y) { | |
| 84 $v = "vjb"; | |
| 85 $y1 = 0.05 * $y; | |
| 86 } | |
| 87 printf JGR "newstring x $x1 y $y1 hjl $v : $who\n"; | |
| 88 } | |
| 89 printf JGR "yaxis min 0 max $y size 1 label : speed (MB/s)\n"; | |
| 90 printf JGR " hash_labels fontsize 9\n"; | |
| 91 # printf JGR "legend defaults font Times-Roman fontsize 10 x 0 y $y hjl
vjt\n"; | |
| 92 | |
| 93 system("jgraph $base.jgr >$base.eps"); # die "system: $!"; | |
| 94 system("gs -dTextAlphaBits=4 -dGraphicsAlphaBits=4 -dEPSCrop -sDEVICE=pn
g16m -r100 -sOutputFile=$base.png -dBATCH -dQUIT -dQUIET -dNOPAUSE $base.eps"); | |
| 95 | |
| 96 printf "<img src=$base.png>\n" | |
| 97 | |
| 98 } | |
| 99 | |
| 100 sub skip() { | |
| 101 while(<>) { | |
| 102 if(/^<!-- -->/) { | |
| 103 print; | |
| 104 last; | |
| 105 } | |
| 106 } | |
| 107 } | |
| 108 | |
| 109 @sys = ("r70", "c2", "wreck", "mini"); | |
| 110 %sysname = ( | |
| 111 "r70" => "AMD Opteron 8214 HE, 2.2 GHz", | |
| 112 "c2" => "Intel Core2 Duo E7200, 2.53 GHz", | |
| 113 "wreck" => "Intel Xeon 5150, 2.66 GHz (Mac Pro)", | |
| 114 "mini" => "Intel Core2 T5600, 1.83 GHz (Mac Mini)", | |
| 115 ); | |
| 116 | |
| 117 %func = ( | |
| 118 "table" => \&table, | |
| 119 "graph" => \&graph, | |
| 120 | |
| 121 ); | |
| 122 | |
| 123 foreach my $sys (@sys) { | |
| 124 open(F, "benchlog.$sys") || die "open benchlog.$sys: $!"; | |
| 125 my %sysdat; | |
| 126 while(<F>) { | |
| 127 if(/^([A-Za-z0-9_\/]+)\s+(\d+)\s+(\d+) ns\/op/) { | |
| 128 my %row; | |
| 129 $row{"name"} = $1; | |
| 130 $row{"iter"} = $2; | |
| 131 $row{"ns/op"} = $3; | |
| 132 if(/([\d.]+) MB\/s/){ | |
| 133 $row{"MB/s"} = $1; | |
| 134 } | |
| 135 $sysdat{$row{"name"}} = \%row; | |
| 136 } | |
| 137 } | |
| 138 close F; | |
| 139 $data{$sys} = \%sysdat; | |
| 140 } | |
| 141 | |
| 142 while(<>) { | |
| 143 print; | |
| 144 if(/^<!-- benchlog (\w+) -->/) { | |
| 145 $func{$1}(); | |
| 146 skip(); | |
| 147 next; | |
| 148 } | |
| 149 if(/^<!-- benchlog (\w+) ([%\w]+) -->/) { | |
| 150 $func{$1}($2); | |
| 151 skip(); | |
| 152 next; | |
| 153 } | |
| 154 } | |
| 155 | |
| OLD | NEW |
|---|
Chromium Code Reviews
Issue 1544433002:
Replace RE2 import with a dependency (Closed)
Base URL: https://chromium.googlesource.com/chromium/src.git@master