Skip to main content

Browse the archive

Revision 105aa9b5f1a2cd3ab4f2d4cbf9db2cd9a0c7bd39 authored by jgraham on 28 March 2018, 19:03:58 UTC, committed by GitHub on 28 March 2018, 19:03:58 UTC 
fixup! Fix indentation
1 parent 167a1d6
Raw File
list-all.pl 
#!/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 });
back to top