#!/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);