UTILITIES/fake_change_log.pl

   1 #!/usr/bin/perl
   2
   3 $file1 = shift;
   4 $file2 = shift;
   5
   6 open file1,"<$file1" or die;
   7 while (<file1>) {
   8   if (m/^\s*\((defun|defsubst|defmacro|defcustom|defgroup|defface|defvar|defconst)\s+([-a-zA-Z0-9]+)/) {
   9     if ($1 eq "defun") {
  10       $fun1{$2}++;
  11     } elsif ($1 eq "defsubst") {
  12       $subst1{$2}++;
  13     } elsif ($1 eq "defmacro") {
  14       $macro1{$2}++;
  15     } elsif ($1 eq "defgroup") {
  16       $group1{$2}++;
  17     } elsif ($1 eq "defcustom") {
  18       $custom1{$2}++;
  19     } elsif ($1 eq "defface") {
  20       $face1{$2}++;
  21     } elsif ($1 eq "defvar") {
  22       $var1{$2}++;
  23     } elsif ($1 eq "defconst") {
  24       $const1{$2}++;
  25     }
  26   }
  27 }
  28 close file1;
  29
  30 open file2,"<$file2" or die;
  31 while (<file2>) {
  32   if (m/^\s*\((defun|defsubst|defmacro|defcustom|defgroup|defface|defvar|defconst)\s+([-a-zA-Z0-9]+)/) {
  33     if ($1 eq "defun") {
  34       $fun2{$2}++;
  35     } elsif ($1 eq "defsubst") {
  36       $subst2{$2}++;
  37     } elsif ($1 eq "defmacro") {
  38       $macro2{$2}++;
  39     } elsif ($1 eq "defgroup") {
  40       $group2{$2}++;
  41     } elsif ($1 eq "defcustom") {
  42       $custom2{$2}++;
  43     } elsif ($1 eq "defface") {
  44       $face2{$2}++;
  45     } elsif ($1 eq "defvar") {
  46       $var2{$2}++;
  47     } elsif ($1 eq "defconst") {
  48       $const2{$2}++;
  49     }
  50   }
  51 }
  52 close file2;
  53
  54 foreach $type ("fun","subst","macro","group","custom","face","var","const") {
  55   $cmd1 = '%n1 = %' . $type . "1;";
  56   $cmd2 = '%n2 = %' . $type . "2;";
  57   eval $cmd1;
  58   eval $cmd2;
  59
  60   print "$type added:\n";
  61   foreach (keys %n2) {
  62     unless (defined $n1{$_}) {
  63       print "  $_\n";
  64     }
  65   }
  66   print "$type removed:\n";
  67   foreach (keys %n1) {
  68     unless (defined $n2{$_}) {
  69       print "  $_\n";
  70     }
  71   }
  72 }