You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
506 B
33 lines
506 B
#!/usr/local/bin/perl |
|
# |
|
# tack error codes onto the end of a file |
|
# |
|
|
|
open(ERR,$ARGV[0]) || die "unable to open error file '$ARGV[0]':$!\n"; |
|
@err=<ERR>; |
|
close(ERR); |
|
|
|
open(IN,$ARGV[1]) || die "unable to open header file '$ARGV[1]':$!\n"; |
|
|
|
@out=""; |
|
while (<IN>) |
|
{ |
|
push(@out,$_); |
|
last if /BEGIN ERROR CODES/; |
|
} |
|
close(IN); |
|
|
|
open(OUT,">$ARGV[1]") || die "unable to open header file '$ARGV[1]':$1\n"; |
|
print OUT @out; |
|
print OUT @err; |
|
print OUT <<"EOF"; |
|
|
|
#ifdef __cplusplus |
|
} |
|
#endif |
|
#endif |
|
|
|
EOF |
|
close(OUT); |
|
|
|
|
|
|