blob: 43bf75824dc3a2f0e8f9c8996654d6100e22bf91 (
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
|
open(H,"<errors.h");
while (<H>) {
if (/#define (LASSO_\w+).*\/\*\s*(.*?)\s*\*\//) {
$messages{$1} = $2;
} elsif (/#define (LASSO_\w+)/) {
$messages{$1} = $1;
}
}
close(H);
open(C_IN,"<errors.c.in");
#open(C,">errors.c");
while (<C_IN>) {
if (/@ERROR_CASE\@/) {
foreach $k (sort (keys %messages)) {
$msg = $messages{$k};
print "\t\tcase $k:\n";
print "\t\t\treturn \"$msg\";\n\n";
}
} else {
print ;
}
}
close(C_IN);
#close(C);
|
