err-ins.pl revision 55714
155714Skris#!/usr/local/bin/perl 255714Skris# 355714Skris# tack error codes onto the end of a file 455714Skris# 555714Skris 655714Skrisopen(ERR,$ARGV[0]) || die "unable to open error file '$ARGV[0]':$!\n"; 755714Skris@err=<ERR>; 855714Skrisclose(ERR); 955714Skris 1055714Skrisopen(IN,$ARGV[1]) || die "unable to open header file '$ARGV[1]':$!\n"; 1155714Skris 1255714Skris@out=""; 1355714Skriswhile (<IN>) 1455714Skris { 1555714Skris push(@out,$_); 1655714Skris last if /BEGIN ERROR CODES/; 1755714Skris } 1855714Skrisclose(IN); 1955714Skris 2055714Skrisopen(OUT,">$ARGV[1]") || die "unable to open header file '$ARGV[1]':$1\n"; 2155714Skrisprint OUT @out; 2255714Skrisprint OUT @err; 2355714Skrisprint OUT <<"EOF"; 2455714Skris 2555714Skris#ifdef __cplusplus 2655714Skris} 2755714Skris#endif 2855714Skris#endif 2955714Skris 3055714SkrisEOF 3155714Skrisclose(OUT); 3255714Skris 3355714Skris 34