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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
#!/usr/bin/perl
#
# Copyright 2014 Andrew Ayer
#
# This file is part of strip-nondeterminism.
#
# strip-nondeterminism is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# strip-nondeterminism is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with strip-nondeterminism. If not, see <http://www.gnu.org/licenses/>.
#
use strict;
use warnings;
use File::StripNondeterminism;
use Getopt::Long;
Getopt::Long::Configure(qw(no_ignore_case permute bundling));
my $cmd = $0;
$cmd =~ s/.*\///;
my $usage
= "Usage: $cmd [-v|--verbose] [-t|--type FILETYPE] [-T|--timestamp SECONDS] [--clamp-timestamp] FILENAME\n";
my ($filetype, $timestamp, $clamp_timestamp, $want_help, $verbose, $want_version);
my $getopt = Getopt::Long::Parser->new;
$getopt->configure(qw(no_ignore_case permute bundling));
$getopt->getoptions(
'type|t=s', \$filetype,
'timestamp|T=i', \$timestamp,
'clamp-timestamp!', \$clamp_timestamp,
'help|h', \$want_help,
'verbose|v', \$verbose,
'version|V', \$want_version
) or die $usage;
if ($want_help) {
print $usage;
exit 0;
}
if ($want_version) {
print "$cmd version $File::StripNondeterminism::VERSION\n";
exit 0;
}
File::StripNondeterminism::init();
$File::StripNondeterminism::canonical_time = $timestamp;
$File::StripNondeterminism::clamp_time = $clamp_timestamp;
die $usage if @ARGV == 0;
my $normalizer;
if (defined $filetype) {
$normalizer
= File::StripNondeterminism::get_normalizer_by_name($filetype);
die "$filetype: Unknown file type\n" unless $normalizer;
}
for my $filename (@ARGV) {
die "$filename: Does not exist\n" unless -e $filename;
if (!defined $filetype) {
$normalizer
= File::StripNondeterminism::get_normalizer_for_file($filename);
next unless $normalizer;
}
print "Normalizing $filename\n" if $verbose;
eval { $normalizer->($filename); 1 }
or die "strip-nondeterminism: $filename: $@";
}
__END__
=head1 NAME
strip-nondeterminism - strip nondeterministic information from files
=head1 SYNOPSIS
strip-nondeterminism [-t filetype] filename ...
=head1 DESCRIPTION
B<strip-nondeterminism> is a tool to strip bits of nondeterministic
information, such as timestamps, from files. It can be used as
a post-processing step to make a build reproducible, when the build
process itself cannot be made deterministic.
=head1 OPTIONS
=over 4
=item B<-t> I<filetype>, B<--type> I<filetype>
Use the normalizer for the given file type (ar, gzip, jar, zip). If this
option is not specified, the file type is detected automatically based on
the file name extension.
=item B<-T> I<seconds>, B<--timestamp> I<seconds>
Instead of stripping timestamps from files, set them to the given number
of seconds since January 1, 1970.
=item B<--clamp-timestamp>
Only replace timestamps if they are later than the time specified to
B<--timestamp>. You can use this option to ensure that only timestamps
introduced as part of the build process are replaced. NOT YET IMPLEMENTED
FOR ALL FILE FORMATS.
=item B<-h>, B<--help>
Display this help message.
=item B<-V>, B<--version>
Print only the version string and then quit.
=back
=head1 AUTHORS
Andrew Ayer
Chris Lamb
=head1 COPYRIGHT
strip-nondeterminism is free software. You can redistribute it and/or
modify it under the terms of the GNU General Public License, version 3.
=cut
|
