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