blob: b1799468419291126cce462e1d8d4fdd7c09ec13 (
plain)
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
|
#!/usr/bin/env perl
use warnings FATAL => 'all';
use strict;
my ($in_dir, $out_dir) = @ARGV;
my @files = <$in_dir/*.lua>;
sub quote_file {
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',";
}
}
}
foreach my $file (@files) {
if ($file =~ /([^\/.]+)(.lua)$/) {
my $fname = "$1$2";
my $varname = "rspamadm_script_$1";
my $definename = uc $varname;
open(my $in, '<', $file) or die "input missing";
open(my $out, '>', "$out_dir/$fname.h") or die "output missing";
print $out <<EOD;
#ifndef ${definename}_GUARD_H
#define ${definename}_GUARD_H
static const char ${varname}\[\] = {
EOD
quote_file($in, $out);
print $out <<EOD;
'\\0'};
#endif
EOD
}
}
|
