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: