blob: 9026ddcce4d6b2f13e53d5de9f7bdad2661b872c (
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
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
|
#!/usr/bin/env perl
use strict;
my $error;
my %state;
sub usage() {
die <<EOF;
Usage: $0 <file> <command> [<arguments>]
Commands:
add-hash <variable> <value>
fix-hash <variable> <value>
rename-var <variable> <name>
EOF
}
sub set_var($) {
my $var = shift;
$state{var} = $var;
if ($var =~ /(.*):(.*)/) {
$state{template} = $1;
$state{var} = $2;
$state{related_var} = "URL";
} else {
$state{context} = 1;
$state{related_var} = "PKG_SOURCE";
}
}
my %check_command = (
"add-hash" => sub {
set_var($ARGV[0]);
$state{value} = $ARGV[1];
length($ARGV[1]) == 64 or die "Invalid hash value\n";
},
"fix-hash" => sub {
set_var($ARGV[0]);
$state{value} = $ARGV[1];
$state{prev_value} = $ARGV[2];
length($ARGV[1]) == 64 or die "Invalid hash value\n";
},
"rename-var" => sub {
set_var($ARGV[0]);
$state{new_var} = $ARGV[1];
$state{new_var} =~ s/.*://g;
},
);
sub check_context($) {
my $line = shift;
return unless $state{template};
$state{next} and do {
$state{context} = 1;
undef $state{next};
return;
};
if (not $state{context}) {
$line =~ /^\s*define\s+$state{template}/ and $state{next} = 1;
} else {
$line =~ /^\s*endef/ and do {
$state{done} = 1;
undef $state{context};
}
}
}
my %commands = (
"add-hash" => sub {
my $line = shift;
check_context($line);
return $line unless $state{context};
# skip existing hash variable
return "" if $line =~ /^(\s*)$state{var}(\s*):?=(\s*)(.*)\n/;
# insert md5sum after related variable
return $line unless $line =~ /^(\s*)$state{related_var}(\s*):?=(\s*)(.*)\n/;
return "$line$1$state{var}$2:=$3$state{value}\n";
},
"fix-hash" => sub {
my $line = shift;
check_context($line);
return $line unless $state{context};
return $line unless $line =~ /^(\s*)$state{var}(\s*):?=(\s*)(.*)$state{prev_value}(.*)\n/;
$state{done} = 1;
$4 =~ /\$/ and do {
warn "$state{var} contains a reference to another variable, can't fix automatically\n";
return $line;
};
return "$1$state{var}$2:=$3$state{value}\n";
},
"rename-var" => sub {
my $line = shift;
check_context($line);
return $line unless $state{context};
return $line unless $line =~ /^(\s*)$state{var}(\s*:?=.*)\n/;
return "$1$state{new_var}$2\n";
},
);
my $file = shift @ARGV;
my $command = shift @ARGV;
($file and $command and $check_command{$command}) or usage;
&{$check_command{$command}}();
-f $file or die "File $file not found\n";
open IN, "<${file}" or die "Cannot open input file\n";
open OUT, ">${file}.new" or die "Cannot open output file\n";
my $cmd = $commands{$command};
while (my $line = <IN>) {
$line = &$cmd($line) unless $state{done};
print OUT $line;
last if $error;
}
close OUT;
close IN;
$error and do {
unlink "${file}.new";
exit 1;
};
rename "${file}.new", "$file";
|
