wpt/css/tools/list-all.pl at df0b73bd250883fa768b6925cf7deed49abc65be · web-platform-tests/wpt · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
#!/usr/bin/perl
# Print all files by filename and highlight duplicates
# Prints in format specified as an argument on the command line:
#   '-txt'  -> tab-separated database
#   '-pre'  -> linkified tab-separated database using HTML and <pre>
#   '-html' -> HTML with tables

use Template;

$top = $ARGV[-1] || '.';

@files = `find $top -type f ! -ipath '*.hg*' ! -ipath '*build-test*' ! -ipath '*selectors3*'`;
foreach (@files) {
  chomp;
  m!^(?:\./)?((?:[^/]+/)*)([^/]+?)(\.[a-z]+)?$!;
  next if (m!/support/!);
  next if (m!\.css$!);
  next if (m!boland!);
  unless (exists $pairs{$2}) {
    $pairs{$2} = ["$1$2$3"];
  }
  else {
    push @{$pairs{$2}}, "$1$2$3";
  }
}

my $tt = Template->new({ INCLUDE_PATH => $libroot . '/templates' }) || die $tt->error(), "\n";

# default template
$tmpl = <<'EOM'
[%- FOREACH name = pairs.keys.sort %]
[%- FOREACH path = pairs.$name %]
[% name %]	[% path %]
[%- END %][% END %]
EOM
;
# linkified version
if ($ARGV[0] eq '-pre') {
  $tmpl = <<'EOM'
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
<title>CSS Tests by Filename</title>
<pre> <!-- tables are too slow -->
[%- FOREACH name = pairs.keys.sort %]
[%- FOREACH path = pairs.$name %]
[% name %]	<a href="[% path %]">[% path %]</a>
[%- END %][% END %]
</pre>
EOM
}
# tables version
elsif ($ARGV[0] eq '-html') {
  $tmpl = <<'EOM'
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
  <title>CSS Tests by Filename</title>
  <style type="text/css">
     table { table-layout: fixed; }
     .dup { background: yellow; }
     th, td { text-align: left; }
  </style>
<body>

<h1>CSS Tests by Filename</h1>

<table>
  <thead>
    <tr><th>Filename <th>Path</tr>
  </thead>
[%- FOREACH pair = pairs.pairs %]
  <tbody>
  [%- first = 1 %]
  [%- FOREACH path = pair.value %]
    <tr[%' class="support"' IF path.match('support') %]>
    [%- IF first %]
      <th rowspan="[% pair.value.size %]">[% pair.key %]
    [%- END %]
      <td><a href="[% path %]">[% path %]</a>
    [%- first = 0 %]
  [%- END %]
  </tbody>
[%- END %]
</table>
EOM
}

$tt->process(\$tmpl, { 'pairs' => \%pairs });