diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/ChangeLog | 5 | ||||
| -rw-r--r-- | admin/notes/BRANCH | 7 | ||||
| -rw-r--r-- | admin/notes/copyright | 28 | ||||
| -rwxr-xr-x | admin/revdiff | 137 |
4 files changed, 22 insertions, 155 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog index 8fd3b828a71..a43dbe931f0 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-01-20 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * revdiff: Remove file that only works with CVS, and isn't really | ||
| 4 | needed with Bazaar (given the in-built revision options of bzr diff). | ||
| 5 | |||
| 1 | 2010-01-12 Glenn Morris <rgm@gnu.org> | 6 | 2010-01-12 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * emacs-pretesters, make-announcement: Use bug-gnu-emacs rather | 8 | * emacs-pretesters, make-announcement: Use bug-gnu-emacs rather |
diff --git a/admin/notes/BRANCH b/admin/notes/BRANCH index 863d86a1ed9..258fcd95566 100644 --- a/admin/notes/BRANCH +++ b/admin/notes/BRANCH | |||
| @@ -1,11 +1,10 @@ | |||
| 1 | This file describes the CVS branch in which it is maintained. | 1 | This file describes the bzr branch in which it is maintained. |
| 2 | Everything below the line is branch-specific. | 2 | Everything below the line is branch-specific. |
| 3 | ________________________________________________________________________ | 3 | ________________________________________________________________________ |
| 4 | 4 | ||
| 5 | This is the trunk (sometimes mistakenly called "HEAD"). | 5 | This is the trunk (sometimes mistakenly called "HEAD"). |
| 6 | When people say "use CVS emacs", this is the branch they are talking | 6 | When people say "use the development version of Emacs" or the |
| 7 | about. Likewise, a "cvs checkout" without the "-r" option results in | 7 | "bzr version of Emacs", this is the branch they are talking about. |
| 8 | this branch. | ||
| 9 | 8 | ||
| 10 | Emacs development takes place on the trunk. Most of the time, Emacs | 9 | Emacs development takes place on the trunk. Most of the time, Emacs |
| 11 | hackers add to it relatively free of constraint (aside from proper | 10 | hackers add to it relatively free of constraint (aside from proper |
diff --git a/admin/notes/copyright b/admin/notes/copyright index 40c45404f75..f4ceb273c73 100644 --- a/admin/notes/copyright +++ b/admin/notes/copyright | |||
| @@ -24,9 +24,9 @@ the file. | |||
| 24 | 24 | ||
| 25 | 2. When installing code written by someone else, the ChangeLog entry | 25 | 2. When installing code written by someone else, the ChangeLog entry |
| 26 | should be in the name of the author of the code, not the person who | 26 | should be in the name of the author of the code, not the person who |
| 27 | installs it. I think it is helpful to put the author (if not yourself) | 27 | installs it. I think it is helpful to put the author (if not yourself) |
| 28 | in the CVS log as well; and to not install any of your own changes in | 28 | in the commit log as well (you can also use bzr commit's "--author" |
| 29 | the same commit. | 29 | option); and to not install any of your own changes in the same commit. |
| 30 | 30 | ||
| 31 | 3. With images, add the legal info to a README file in the directory | 31 | 3. With images, add the legal info to a README file in the directory |
| 32 | containing the image. | 32 | containing the image. |
| @@ -38,17 +38,17 @@ legal notices, consider if you should add a copyright statement. | |||
| 38 | right thing to do. | 38 | right thing to do. |
| 39 | 39 | ||
| 40 | 40 | ||
| 41 | Every non-trivial file distributed through the Emacs CVS should be | 41 | Every non-trivial file distributed through the Emacs repository should be |
| 42 | self-explanatory in terms of copyright and license. This includes | 42 | self-explanatory in terms of copyright and license. This includes |
| 43 | files that are not distributed in Emacs releases (for example, the | 43 | files that are not distributed in Emacs releases (for example, the |
| 44 | admin/ directory), because the whole Emacs CVS is publicly | 44 | admin/ directory), because the whole Emacs repository is publicly |
| 45 | available. | 45 | available. |
| 46 | 46 | ||
| 47 | The definition of triviality is a little vague, but a rule of thumb is | 47 | The definition of triviality is a little vague, but a rule of thumb is |
| 48 | that any file with less than 15 lines of actual content is trivial. If | 48 | that any file with less than 15 lines of actual content is trivial. If |
| 49 | a file is auto-generated (eg ldefs-boot.el) from another one in the | 49 | a file is auto-generated (eg ldefs-boot.el) from another one in the |
| 50 | CVS, then it does not really matter about adding a copyright statement | 50 | repository, then it does not really matter about adding a copyright |
| 51 | to the generated file. | 51 | statement to the generated file. |
| 52 | 52 | ||
| 53 | Legal advice says that we could, if we wished, put a license notice | 53 | Legal advice says that we could, if we wished, put a license notice |
| 54 | even in trivial files, because copyright law in general looks at the | 54 | even in trivial files, because copyright law in general looks at the |
| @@ -67,8 +67,8 @@ file "years" in this directory). The PDF versions of refcards etc | |||
| 67 | should display copyright notices (an exception to the rule about | 67 | should display copyright notices (an exception to the rule about |
| 68 | "generated" files), but these can just display the latest year. The | 68 | "generated" files), but these can just display the latest year. The |
| 69 | full list of years should be kept in comments in the source file. If | 69 | full list of years should be kept in comments in the source file. If |
| 70 | these are distributed in CVS, check in a regenerated version when the | 70 | these are distributed in the repository, check in a regenerated |
| 71 | tex files are updated. | 71 | version when the tex files are updated. |
| 72 | 72 | ||
| 73 | Copyright changes should be propagated to any associated repositories | 73 | Copyright changes should be propagated to any associated repositories |
| 74 | (eg Gnus, MH-E), but I think in every case this happens automatically | 74 | (eg Gnus, MH-E), but I think in every case this happens automatically |
| @@ -115,7 +115,7 @@ author should be removed and the year(s) transferred to the FSF); or | |||
| 115 | else it is possible the file should not be in Emacs at all (please | 115 | else it is possible the file should not be in Emacs at all (please |
| 116 | report!). | 116 | report!). |
| 117 | 117 | ||
| 118 | Note that it seems painfully clear that one cannot rely on CVS logs, | 118 | Note that it seems painfully clear that one cannot rely on commit logs, |
| 119 | or even ChangeLogs, for older changes. People often installed changes | 119 | or even ChangeLogs, for older changes. People often installed changes |
| 120 | from others, without recording the true authorship. | 120 | from others, without recording the true authorship. |
| 121 | 121 | ||
| @@ -555,10 +555,10 @@ system) | |||
| 555 | obviously good): | 555 | obviously good): |
| 556 | 556 | ||
| 557 | 557 | ||
| 558 | Is it OK to just `cvs remove' a file for legal reasons, or is | 558 | Is it OK to just `bzr remove' a file for legal reasons, or is |
| 559 | something more drastic needed? A removed file is still available from | 559 | something more drastic needed? A removed file is still available from |
| 560 | CVS, if suitable options are applied. (This CVS issue obviously does | 560 | the repository, if suitable options are applied. (This issue obviously |
| 561 | not affect a release). | 561 | does not affect a release). |
| 562 | rms: will ask lawyer | 562 | rms: will ask lawyer |
| 563 | 563 | ||
| 564 | 564 | ||
| @@ -600,7 +600,7 @@ The EMACS_22_BASE branch was changed to GPLv3 (or later) 2007/07/25. | |||
| 600 | Some notes: | 600 | Some notes: |
| 601 | (see http://lists.gnu.org/archive/html/emacs-devel/2007-07/msg01431.html) | 601 | (see http://lists.gnu.org/archive/html/emacs-devel/2007-07/msg01431.html) |
| 602 | 602 | ||
| 603 | 1. There are some files in Emacs CVS which are not part of Emacs (eg | 603 | 1. There are some files in the Emacs tree which are not part of Emacs (eg |
| 604 | those included from Gnulib). These are all copyright FSF and (at time | 604 | those included from Gnulib). These are all copyright FSF and (at time |
| 605 | of writing) GPL >= 2. rms says may as well leave the licenses of these | 605 | of writing) GPL >= 2. rms says may as well leave the licenses of these |
| 606 | alone (may import them from Gnulib again). These are: | 606 | alone (may import them from Gnulib again). These are: |
diff --git a/admin/revdiff b/admin/revdiff deleted file mode 100755 index 7a1e93a64fe..00000000000 --- a/admin/revdiff +++ /dev/null | |||
| @@ -1,137 +0,0 @@ | |||
| 1 | #! /usr/bin/perl | ||
| 2 | |||
| 3 | # Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, | ||
| 4 | # 2010 Free Software Foundation, Inc. | ||
| 5 | # | ||
| 6 | # This file is part of GNU Emacs. | ||
| 7 | |||
| 8 | # GNU Emacs is free software: you can redistribute it and/or modify | ||
| 9 | # it under the terms of the GNU General Public License as published by | ||
| 10 | # the Free Software Foundation, either version 3 of the License, or | ||
| 11 | # (at your option) any later version. | ||
| 12 | |||
| 13 | # GNU Emacs is distributed in the hope that it will be useful, | ||
| 14 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 15 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 16 | # GNU General Public License for more details. | ||
| 17 | |||
| 18 | # You should have received a copy of the GNU General Public License | ||
| 19 | # along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | ||
| 20 | |||
| 21 | |||
| 22 | use File::Basename; | ||
| 23 | |||
| 24 | if (@ARGV < 3) | ||
| 25 | { | ||
| 26 | print <<USAGE; | ||
| 27 | revdiff FILE OLD NEW | ||
| 28 | |||
| 29 | Get a diff of FILE between revisions OLD and NEW. Store the | ||
| 30 | diff in a file named FILE-OLD-NEW.diff. | ||
| 31 | |||
| 32 | If OLD is `-' use FILE's current revision for OLD. If OLD is | ||
| 33 | `-<number>', use the Nth revision before the current one for OLD. | ||
| 34 | |||
| 35 | If NEW is +<number> or -<number>, build diffs between revisions OLD | ||
| 36 | and OLD +/- <number>. | ||
| 37 | |||
| 38 | Examples: | ||
| 39 | |||
| 40 | revdiff FILE - -1 get the latest change of FILE | ||
| 41 | revdiff FILE -1 +1 also gets the latest change of FILE | ||
| 42 | revdiff FILE 1.500 +2 get diffs 1.500-1.501 and 1.501-1.502. | ||
| 43 | |||
| 44 | USAGE | ||
| 45 | exit 1; | ||
| 46 | } | ||
| 47 | |||
| 48 | $file = shift @ARGV; | ||
| 49 | $old = shift @ARGV; | ||
| 50 | |||
| 51 | sub diffit | ||
| 52 | { | ||
| 53 | my ($old, $new) = @_; | ||
| 54 | print "cvs diff -r$old -r$new $file >$file-$old-$new.diff\n"; | ||
| 55 | system "cvs diff -r$old -r$new $file >$file-$old-$new.diff"; | ||
| 56 | } | ||
| 57 | |||
| 58 | sub current_revision ($) | ||
| 59 | { | ||
| 60 | my ($file) = @_; | ||
| 61 | my $dir = dirname ($file); | ||
| 62 | my $base = basename ($file); | ||
| 63 | my $entries = "$dir/CVS/Entries"; | ||
| 64 | die "Can't find $entries" unless -f $entries; | ||
| 65 | open (IN, "<$entries") or die "Cannot open $entries"; | ||
| 66 | my $rev; | ||
| 67 | while ($line = <IN>) | ||
| 68 | { | ||
| 69 | if ($line =~ m,/$base/([^/]+),) | ||
| 70 | { | ||
| 71 | $rev = $1; | ||
| 72 | break; | ||
| 73 | } | ||
| 74 | } | ||
| 75 | die "Cannot determine current revision of $file" unless $rev; | ||
| 76 | close (IN); | ||
| 77 | return $rev; | ||
| 78 | } | ||
| 79 | |||
| 80 | if ($old eq "-") | ||
| 81 | { | ||
| 82 | $old = current_revision ($file); | ||
| 83 | } | ||
| 84 | elsif ($old =~ /^-(\d+)$/) | ||
| 85 | { | ||
| 86 | my $offset = $1; | ||
| 87 | $old = current_revision ($file); | ||
| 88 | die "Internal error" unless $old =~ /(.*)\.(\d+)$/; | ||
| 89 | my $minor = $2 - $offset; | ||
| 90 | $old = sprintf ("%d.%d", $1, $minor); | ||
| 91 | } | ||
| 92 | |||
| 93 | while (@ARGV) | ||
| 94 | { | ||
| 95 | my $new = shift @ARGV; | ||
| 96 | if ($new =~ /^[+]\d+$/) | ||
| 97 | { | ||
| 98 | my $n = $new; | ||
| 99 | for ($i = 0; $i < $n; ++$i) | ||
| 100 | { | ||
| 101 | unless ($old =~ /(.*)\.(\d+)$/) | ||
| 102 | { | ||
| 103 | die "Internal error"; | ||
| 104 | } | ||
| 105 | my $j = $2 + 1; | ||
| 106 | $new = "$1.$j"; | ||
| 107 | diffit ($old, $new); | ||
| 108 | $old = $new; | ||
| 109 | } | ||
| 110 | } | ||
| 111 | elsif ($new =~ /^[-]\d+$/) | ||
| 112 | { | ||
| 113 | my $n = - $new; | ||
| 114 | for ($i = 0; $i < $n; ++$i) | ||
| 115 | { | ||
| 116 | unless ($old =~ /(.*)\.(\d+)$/) | ||
| 117 | { | ||
| 118 | die "Internal error"; | ||
| 119 | } | ||
| 120 | my $j = $2 - 1; | ||
| 121 | $new = "$1.$j"; | ||
| 122 | diffit ($new, $old); | ||
| 123 | $old = $new; | ||
| 124 | } | ||
| 125 | } | ||
| 126 | else | ||
| 127 | { | ||
| 128 | diffit ($old, $new); | ||
| 129 | $old = $new; | ||
| 130 | } | ||
| 131 | } | ||
| 132 | |||
| 133 | # Local Variables: | ||
| 134 | # mode: cperl | ||
| 135 | # End: | ||
| 136 | |||
| 137 | # arch-tag: 2798b20d-c7f2-4c78-8378-7bb529c36a09 | ||