TeaSpeak/tomcrypt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

improved helper.pl (check mandatory comments - not included in "--check-all" yet)

Browse Source
This commit is contained in:
Karel Miko 2017-06-14 17:16:26 +02:00
parent 23d5a02ecd
commit 2cd69fb541
1 changed files with 44 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
helper.pl
View File

@ -117,6 +117,40 @@ sub check_descriptors {
return $fails; return $fails;
} }
sub check_comments {
my $fails = 0;
my $first_comment = <<'MARKER';
/* LibTomCrypt, modular cryptographic library -- Tom St Denis
*
* LibTomCrypt is a library that provides various cryptographic
* algorithms in a highly modular and flexible manner.
*
* The library is free for all purposes without any express
* guarantee it works.
*/
MARKER
my $last_comment = <<'MARKER';
/* ref: $Format:%D$ */
/* git commit: $Format:%H$ */
/* commit time: $Format:%ai$ */
MARKER
my @all_files;
find({ wanted=> sub { push @all_files, $_ if $_ =~ /\.(c|h)$/ }, no_chdir=>1 }, 'src');
for my $f (@all_files) {
my $txt = read_file($f);
if ($txt !~ /^\Q$first_comment\E/s) {
warn "[first_comment] $f\n";
$fails++;
}
if ($txt !~ /\Q$last_comment\E\s*$/s) {
warn "[last_comment] $f\n";
$fails++;
}
}
warn( $fails > 0 ? "check-comments: FAIL $fails\n" : "check-comments: PASS\n" );
return $fails;
}
sub prepare_variable { sub prepare_variable {
my ($varname, @list) = @_; my ($varname, @list) = @_;
my $output = "$varname="; my $output = "$varname=";
@ -299,18 +333,21 @@ sub process_makefiles {
sub die_usage { sub die_usage {
die <<"MARKER"; die <<"MARKER";
usage: $0 --check-source usage: $0 -s OR $0 --check-source
$0 --check-defines $0 -c OR $0 --check-descriptors
$0 --check-makefiles $0 -d OR $0 --check-defines
$0 --check-all $0 -o OR $0 --check-comments
$0 --update-makefiles $0 -m OR $0 --check-makefiles
$0 --fixupind crypt.ind $0 -a OR $0 --check-all
$0 -u OR $0 --update-makefiles
$0 --fixupind crypt.ind
MARKER MARKER
} }
GetOptions( "s|check-source" => \my $check_source, GetOptions( "s|check-source" => \my $check_source,
"c|check-descriptors" => \my $check_descriptors, "c|check-descriptors" => \my $check_descriptors,
"d|check-defines" => \my $check_defines, "d|check-defines" => \my $check_defines,
"o|check-comments" => \my $check_comments,
"m|check-makefiles" => \my $check_makefiles, "m|check-makefiles" => \my $check_makefiles,
"a|check-all" => \my $check_all, "a|check-all" => \my $check_all,
"u|update-makefiles" => \my $update_makefiles, "u|update-makefiles" => \my $update_makefiles,
@ -329,6 +366,7 @@ my $failure;
$failure ||= check_source() if $check_all || $check_source; $failure ||= check_source() if $check_all || $check_source;
$failure ||= check_defines() if $check_all || $check_defines; $failure ||= check_defines() if $check_all || $check_defines;
$failure ||= check_descriptors() if $check_all || $check_descriptors; $failure ||= check_descriptors() if $check_all || $check_descriptors;
$failure ||= check_comments() if $check_comments; #XXX-FIXME not included in "--check-all"
$failure ||= process_makefiles(0) if $check_all || $check_makefiles; $failure ||= process_makefiles(0) if $check_all || $check_makefiles;
$failure ||= process_makefiles(1) if $update_makefiles; $failure ||= process_makefiles(1) if $update_makefiles;