From ffff26cc63944ab6b676a012a2b6a4418e5cba15 Mon Sep 17 00:00:00 2001 From: Nicholas Nethercote Date: Tue, 28 Oct 2014 15:04:03 -0700 Subject: [PATCH] Bug 1089446 - Remove gfx/tests/process-textruns.pl, which is ancient and unused. r=roc. --HG-- extra : rebase_source : 81a688c2404ae3849e4e4ebd1fe934928fe38b2b --- gfx/tests/process-textruns.pl | 137 ---------------------------------- 1 file changed, 137 deletions(-) delete mode 100755 gfx/tests/process-textruns.pl diff --git a/gfx/tests/process-textruns.pl b/gfx/tests/process-textruns.pl deleted file mode 100755 index 5fa85e7bfb6f..000000000000 --- a/gfx/tests/process-textruns.pl +++ /dev/null @@ -1,137 +0,0 @@ -#!/usr/bin/perl -w - -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. - -# This script is a bunch of utilities for computing statistics about the textruns -# created during a Gecko run. -# -# Usage: -# 1) Uncomment #define DUMP_TEXT_RUNS in gfxAtsuiFonts.cpp -# 2) Build -# 3) Run over some test set, redirecting stdout to a file -# 4) Pipe that file through this script - -# --exclude-spaces-only: ignore all textruns that consistent of zero or more -# spaces -my $exclude_spaces = grep(/^--exclude-spaces-only$/, @ARGV); - -# --dump-runs: process textruns into a format that can be used by -# gfxTextRunPerfTest, print that on standard output, and do nothing else -my $dump_runs = grep(/^--dump-runs$/, @ARGV); - -# --obfuscate: ROTL13 the textrun text -my $obfuscate = grep(/^--obfuscate$/, @ARGV); - -my @textruns = (); - -while () { - if (/^0x(\w+)\((.*)\) TEXTRUN "(.*)" ENDTEXTRUN$/) { - my %tr = ( fontgroup => $1, - families => $2, - text => $3 ); - push(@textruns, \%tr); - } elsif (/^0x(\w+)\((.*)\) TEXTRUN "(.*)$/) { - my %tr = ( fontgroup => $1, - families => $2 ); - my $text = $3."\n"; - while () { - if (/^(.*)" ENDTEXTRUN$/) { - $text .= $1; - last; - } - $text .= $_; - } - $tr{text} = $text; - push(@textruns, \%tr); - } -} - -my %quote = ( "\\" => 1, "\"" => 1 ); - -sub quote_str { - my ($text) = @_; - my @chars = split(//, $text); - my @strs = (); - foreach my $c (@chars) { - if (ord($c) >= 0x80) { - $c = "\\x".sprintf("%x",ord($c)).'""'; - } elsif ($quote{$c}) { - $c = "\\$c"; - } elsif ($c eq "\n") { - $c = " "; - } - push(@strs, $c); - } - return '"'.join("", @strs).'"'; -} - -if ($dump_runs) { - foreach my $tr (@textruns) { - print "{ ", "e_str($tr->{families}), ",\n"; - my $text = $tr->{text}; - if ($obfuscate) { - $text =~ tr/a-mA-Mn-zN-Z/n-zN-Za-mA-M/; - } - print " ", "e_str($text), " },\n"; - } - exit(0); -} - -my %trs_by_text = (); -my %trs_by_text_and_fontgroup = (); -my %trs_by_trimmed_text_and_fontgroup = (); -my @tr_lengths = (); - -$trs_by_text{" "} = []; -$trs_by_text{""} = []; - -sub trim { - my ($s) = @_; - $s =~ s/^ *//g; - $s =~ s/ *$//g; - return $s; -} - -my $total_textruns = 0; - -foreach my $tr (@textruns) { - if ($exclude_spaces && $tr->{text} =~ /^ *$/) { - next; - } - ++$total_textruns; - push(@{$trs_by_text{$tr->{text}}}, $tr); - push(@{$trs_by_text_and_fontgroup{$tr->{fontgroup}.$tr->{text}}}, $tr); - push(@{$trs_by_trimmed_text_and_fontgroup{$tr->{fontgroup}.&trim($tr->{text})}}, $tr); - if (1 < scalar(@{$trs_by_trimmed_text_and_fontgroup{$tr->{fontgroup}.&trim($tr->{text})}})) { - $tr_lengths[length($tr->{text})]++; - } -} - -print "Number of textruns:\t$total_textruns\n"; -print "Number of textruns which are one space:\t", scalar(@{$trs_by_text{" "}}), "\n"; -print "Number of textruns which are empty:\t", scalar(@{$trs_by_text{""}}), "\n"; - -my $count = 0; -foreach my $k (keys(%trs_by_text)) { - if ($k =~ /^ *$/) { - $count += @{$trs_by_text{$k}}; - } -} -print "Number of textruns which are zero or more spaces:\t$count\n"; - -print "Number of unique textruns by text and fontgroup:\t", scalar(keys(%trs_by_text_and_fontgroup)), "\n"; -print "Number of unique textruns by trimmed text and fontgroup:\t", scalar(keys(%trs_by_trimmed_text_and_fontgroup)), "\n"; - -my $sum = 0; -my $weighted_sum = 0; -if (1) { - print "Textrun length distribution:\n"; - for my $i (0..(scalar(@tr_lengths)-1)) { - my $amount = defined($tr_lengths[$i])?$tr_lengths[$i]:0; - $sum += $amount; - $weighted_sum += $i*$amount; - print "$i\t$sum\t$weighted_sum\n"; - } -}