summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/maintain/regenerate_file_lists.pl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/texinfo/texinfo/tp/maintain/regenerate_file_lists.pl
Initial commit
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/regenerate_file_lists.pl')
-rw-r--r--macros/texinfo/texinfo/tp/maintain/regenerate_file_lists.pl66
1 files changed, 66 insertions, 0 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/regenerate_file_lists.pl b/macros/texinfo/texinfo/tp/maintain/regenerate_file_lists.pl
new file mode 100644
index 0000000000..dfda976f88
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/regenerate_file_lists.pl
@@ -0,0 +1,66 @@
+#! /usr/bin/env perl
+# Copyright 2011-2019 Free Software Foundation, Inc.
+#
+# This file is free software; as a special exception the author gives
+# unlimited permission to copy and/or distribute it, with or without
+# modifications, as long as this notice is preserved.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY, to the extent permitted by law; without even the
+# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+#
+# Originally written by Patrice Dumas.
+
+use strict;
+
+# emulates -w
+BEGIN
+{
+ $^W = 1;
+}
+use File::Find;
+use File::Basename;
+use File::Spec;
+
+my ($command, $mydir, $suffix) = fileparse($0);
+my $parent = File::Spec->catdir($mydir, File::Spec->updir());
+chdir($parent) || die "chdir $parent: $!";
+-d "t" || (die "goodbye, no t directory in " . `pwd`);
+
+my %files;
+find (\&wanted, ('t'));
+sub wanted
+{
+ if ((/\.pl$/ and $File::Find::dir =~ m:^t/results/[^/]+:)
+ or (!/^CVS$/ and !/^\.svn$/
+ and $File::Find::dir =~ m:^t/results/[^/]+/[^/]+/res_[^/]+$:)) {
+ $files{$File::Find::name} = 1;
+ }
+}
+
+my %tap_files;
+find (\&wanted_tap_files, ('t'));
+sub wanted_tap_files
+{
+ if (/\.t$/ and $File::Find::dir =~ /t$/) {
+ $tap_files{$File::Find::name} = 1;
+ }
+}
+
+open (INCLUDE, '>Makefile.tres') or die "open(>Makefile.tres) failed: $!";
+print INCLUDE <<EOH;
+# Makefile.tres generated by $0.
+#
+EOH
+
+print INCLUDE 'test_tap_files_generated_list =';
+foreach my $file (sort(keys(%tap_files))) {
+ print INCLUDE " \\\n $file";
+}
+print INCLUDE "\n\n";
+
+print INCLUDE 'test_files_generated_list = $(test_tap_files_generated_list)';
+foreach my $file (sort(keys(%files))) {
+ print INCLUDE " \\\n $file";
+}
+print INCLUDE "\n\n";