forked from mirrors/org-mode
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.
46 lines
1.5 KiB
Perl
Executable file
46 lines
1.5 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
$version = $ARGV[0];
|
|
if ($version eq "--all" or $version eq "-a") {
|
|
$all = 1;
|
|
$version = $ARGV[1]
|
|
}
|
|
|
|
if ($version eq "--only" or $version eq "-o") {
|
|
$only = 1;
|
|
$version = $ARGV[1]
|
|
}
|
|
|
|
die "No version given" unless $version=~/\S/;
|
|
$date = `date "+%B %Y"`; chomp $date;
|
|
$year = `date "+%Y"` ; chomp $year;
|
|
|
|
print STDERR "Changing version to \"$version\" and date to \"$date\" in all relevant files\n" ;
|
|
|
|
if (not $only) {
|
|
|
|
print STDERR join("\n",glob("lisp/*.el")),"\n";
|
|
$cmd = qq{s/^(;; Version:)\\s+(\\S+)[ \t]*\$/\$1 $version/;s/^(\\(defconst org-version )"(\\S+)"/\$1"$version"/};
|
|
$c1 = "perl -pi -e '$cmd' lisp/*.el";
|
|
system($c1);
|
|
|
|
print STDERR "doc/org.texi\n";
|
|
$cmd = qq{s/^(\\\@set VERSION)\\s+(\\S+)[ \t]*\$/\$1 $version/;s/^(\\\@set DATE)\\s+(.*)\$/\$1 $date/;};
|
|
$c1 = "perl -pi -e '$cmd' doc/org.texi";
|
|
system($c1);
|
|
|
|
print STDERR "doc/orgguide.texi\n";
|
|
$cmd = qq{s/^(\\\@set VERSION)\\s+(\\S+)[ \t]*\$/\$1 $version/;s/^(\\\@set DATE)\\s+(.*)\$/\$1 $date/;};
|
|
$c1 = "perl -pi -e '$cmd' doc/orgguide.texi";
|
|
system($c1);
|
|
|
|
print STDERR "doc/orgcard.tex\n";
|
|
$cmd = qq{s/^\\\\def\\\\orgversionnumber\\{\\S+\\}/\\\\def\\\\orgversionnumber{$version}/;s/\\\\def\\\\versionyear\\{\\S+\\}/\\\\def\\\\versionyear{$year}/;s/\\\\def\\\\year\\{\\S+\\}/\\\\def\\\\year{$year}/;};
|
|
$c1 = "perl -pi -e '$cmd' doc/orgcard.tex";
|
|
system($c1);
|
|
|
|
print STDERR "README_DIST\n";
|
|
$cmd = qq{s/^(The version of this release is:)\\s+(\\S+)[ \t]*\$/\$1 $version/;};
|
|
$c1 = "perl -pi -e '$cmd' README_DIST";
|
|
system($c1);
|
|
}
|