2015-12-15 15:36:12 +01:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
use warnings FATAL => 'all';
|
|
|
|
use strict;
|
2016-01-21 18:02:21 +01:00
|
|
|
use Digest::MD5;
|
2015-12-15 15:36:12 +01:00
|
|
|
|
2016-01-21 18:02:21 +01:00
|
|
|
my ( $in_dir, $out_dir ) = @ARGV;
|
2015-12-15 15:36:12 +01:00
|
|
|
my @files = <$in_dir/*.lua>;
|
|
|
|
|
2015-12-15 16:26:19 +01:00
|
|
|
sub quote_file {
|
2016-01-21 18:02:21 +01:00
|
|
|
my ( $in, $out ) = @_;
|
|
|
|
|
|
|
|
while (<$in>) {
|
|
|
|
if (/^--.USE\s*"(\S+)"$/) {
|
|
|
|
open( my $inc, '<', "$in_dir/$1.lua.in" )
|
|
|
|
or die "missing include $1";
|
|
|
|
quote_file( $inc, $out );
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
s/^\s*//; # remove unnecessary spaces at the beginning
|
|
|
|
next if /^--/; # skip comments
|
|
|
|
next if /^\s*$/; # skip empty lines
|
|
|
|
s/(.)/'$1',/g; # split as 'c',
|
|
|
|
s/\'\\\'/\'\\\\'/g; # escape backslashes
|
|
|
|
s/\'\'\'/\'\\\'\'/g; # escape single quotes
|
|
|
|
print $out "$_'\\n',";
|
|
|
|
}
|
|
|
|
}
|
2015-12-15 16:26:19 +01:00
|
|
|
}
|
|
|
|
|
2016-01-21 18:02:21 +01:00
|
|
|
sub digest_for_file {
|
|
|
|
my ($file) = @_;
|
|
|
|
|
|
|
|
open( my $in, '<', $file ) or die "file missing";
|
|
|
|
my $digest = Digest::MD5->new->addfile($in)->hexdigest;
|
|
|
|
|
|
|
|
return $digest;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub changed {
|
|
|
|
my ( $file, $outfile ) = @_;
|
2015-12-15 15:36:12 +01:00
|
|
|
|
2016-01-21 18:02:21 +01:00
|
|
|
open( my $out, '<', $outfile ) or return 1;
|
|
|
|
|
|
|
|
my $in_checksum = digest_for_file($file);
|
|
|
|
my $ln = <$out>;
|
|
|
|
|
|
|
|
if ( $ln =~ /^.*id:(\S+)\s.*$/ ) {
|
|
|
|
if ( $in_checksum ne $1 ) {
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
foreach my $file (@files) {
|
|
|
|
if ( $file =~ /([^\/.]+)(.lua)$/ ) {
|
|
|
|
my $fname = "$1$2";
|
|
|
|
my $varname = "rspamadm_script_$1";
|
|
|
|
my $definename = uc $varname;
|
|
|
|
my $outfile = "$out_dir/$fname.h";
|
2015-12-15 15:36:12 +01:00
|
|
|
|
2016-01-21 18:02:21 +01:00
|
|
|
if ( changed( $file, $outfile ) ) {
|
|
|
|
open( my $in, '<', $file ) or die "input missing";
|
|
|
|
open( my $out, '>', $outfile ) or die "output missing";
|
|
|
|
my $checksum = digest_for_file($file);
|
|
|
|
print $out <<EOD;
|
|
|
|
/* id:$checksum */
|
2015-12-15 15:36:12 +01:00
|
|
|
#ifndef ${definename}_GUARD_H
|
|
|
|
#define ${definename}_GUARD_H
|
|
|
|
|
2015-12-16 14:47:36 +01:00
|
|
|
static const char ${varname}\[\] = {
|
2015-12-15 15:36:12 +01:00
|
|
|
EOD
|
2016-01-21 18:02:21 +01:00
|
|
|
quote_file( $in, $out );
|
2015-12-15 15:36:12 +01:00
|
|
|
|
2016-01-21 18:02:21 +01:00
|
|
|
print $out <<EOD;
|
2015-12-16 14:47:36 +01:00
|
|
|
'\\0'};
|
2015-12-15 15:36:12 +01:00
|
|
|
#endif
|
|
|
|
EOD
|
2016-01-21 18:02:21 +01:00
|
|
|
}
|
|
|
|
}
|
2015-12-15 15:36:12 +01:00
|
|
|
}
|