]>
Commit | Line | Data |
---|---|---|
d02b48c6 RE |
1 | #!/usr/local/bin/perl |
2 | # | |
3 | # tack error codes onto the end of a file | |
4 | # | |
5 | ||
6 | open(ERR,$ARGV[0]) || die "unable to open error file '$ARGV[0]':$!\n"; | |
7 | @err=<ERR>; | |
8 | close(ERR); | |
9 | ||
10 | open(IN,$ARGV[1]) || die "unable to open header file '$ARGV[1]':$!\n"; | |
11 | ||
12 | @out=""; | |
13 | while (<IN>) | |
14 | { | |
15 | push(@out,$_); | |
16 | last if /BEGIN ERROR CODES/; | |
17 | } | |
18 | close(IN); | |
19 | ||
20 | open(OUT,">$ARGV[1]") || die "unable to open header file '$ARGV[1]':$1\n"; | |
21 | print OUT @out; | |
22 | print OUT @err; | |
23 | print OUT <<"EOF"; | |
24 | ||
25 | #ifdef __cplusplus | |
26 | } | |
27 | #endif | |
28 | #endif | |
29 | ||
30 | EOF | |
31 | close(OUT); | |
32 | ||
33 |