mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-15 13:16:28 +00:00
bf352eceda
* Makefile: Include default.mk and targets.mk from mk/ where they've been moved to. * README_maintainer: Rename utils to make throughout. * doc/Makefile: Rename utils to make throughout. * doc/org.texi: Remove reference to utils/, x11idle.c is now in contrib/scripts. * mk/make_emacs_changelog: Add mk/ to list of directories not to be reported in Emacs' ChangeLog. Also retain utils/ and re-add UTILITIES; add a comment explaining why these need to stay. * mk/default.mk: Rename utils to make throughout. Include version.mk from mk/ where it's been moved to. * mk/targets.mk: Rename utils to make throughout. * mk/server.mk: Rename utils to make throughout. Only put those files from mk/ into the archives that are needed outside the server: default.mk targets.mk version.mk and org-fixup.el. * lisp/org-compat.el: Rename utils to make throughout. * .gitignore: Rename utils to make throughout.
73 lines
1.6 KiB
Perl
Executable file
73 lines
1.6 KiB
Perl
Executable file
#!/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";
|
|
}
|
|
}
|
|
}
|