misc/headers2.pl

   1 #!/usr/bin/perl -i
   2
   3 # first argument is the header file
   4 # second one the file to be changed
   5 # use -i.orig above to make backup files
   6
   7 use strict;
   8 use warnings;
   9
  10 my $copyright_file = $ARGV[0];
  11
  12 open(H, "< " . $copyright_file) || die("can't open " . $copyright_file . ": $!");
  13 my @header = <H>;
  14
  15 shift(@ARGV);
  16
  17 if (eof()) {
  18     die "EOF found\n";
  19 }
  20
  21 # skip initial empty lines
  22 while (<>)
  23 {
  24 #       print $_;
  25     if (/^\s*$/) {
  26         next;
  27     }
  28     last;
  29 }
  30
  31 if (eof()) {
  32     die "EOF found\n";
  33 }
  34
  35 # look for comment beginning
  36 if (!/^\s*\/\*/) {
  37     die "comment not found\n";
  38 }
  39
  40 # look for comment end
  41 while (<>) {
  42     if (/^\s*\*\/$/) {
  43         last;
  44     }
  45     next;
  46 }
  47
  48 if (eof()) {
  49     die "EOF found\n";
  50 }
  51
  52 # output header
  53 print @header;
  54
  55 # output remaining lines
  56 while (<>)
  57 {
  58     print;
  59 }