org-mode/mk/fake_change_log.pl

73 lines
1.6 KiB
Perl
Raw Normal View History

#!/usr/bin/perl
$file1 = shift;
$file2 = shift;
open file1,"<$file1" or die;
while (<file1>) {
if (m/^\s*\((defun|defsubst|defmacro|defcustom|defgroup|defface|defvar|defconst)\s+([-a-zA-Z0-9]+)/) {
if ($1 eq "defun") {
$fun1{$2}++;
} elsif ($1 eq "defsubst") {
$subst1{$2}++;
} elsif ($1 eq "defmacro") {
$macro1{$2}++;
} elsif ($1 eq "defgroup") {
$group1{$2}++;
} elsif ($1 eq "defcustom") {
$custom1{$2}++;
} elsif ($1 eq "defface") {
$face1{$2}++;
} elsif ($1 eq "defvar") {
$var1{$2}++;
} elsif ($1 eq "defconst") {
$const1{$2}++;
}
}
}
close file1;
open file2,"<$file2" or die;
while (<file2>) {
if (m/^\s*\((defun|defsubst|defmacro|defcustom|defgroup|defface|defvar|defconst)\s+([-a-zA-Z0-9]+)/) {
if ($1 eq "defun") {
$fun2{$2}++;
} elsif ($1 eq "defsubst") {
$subst2{$2}++;
} elsif ($1 eq "defmacro") {
$macro2{$2}++;
} elsif ($1 eq "defgroup") {
$group2{$2}++;
} elsif ($1 eq "defcustom") {
$custom2{$2}++;
} elsif ($1 eq "defface") {
$face2{$2}++;
} elsif ($1 eq "defvar") {
$var2{$2}++;
} elsif ($1 eq "defconst") {
$const2{$2}++;
}
}
}
close file2;
foreach $type ("fun","subst","macro","group","custom","face","var","const") {
$cmd1 = '%n1 = %' . $type . "1;";
$cmd2 = '%n2 = %' . $type . "2;";
eval $cmd1;
eval $cmd2;
print "$type added:\n";
foreach (keys %n2) {
unless (defined $n1{$_}) {
print " $_\n";
}
}
print "$type removed:\n";
foreach (keys %n1) {
unless (defined $n2{$_}) {
print " $_\n";
}
}
}