*-MIRROR and *-SOURCE in vc-arch.el

[Masatake YAMATO]

When I open a file which is in a directory retrieved by gnuarch(tla get)
from local mirror archives or remote mirror archives of my local archives,
I get an error:

     vc-arch-workfile-version: Opening directory: No such a file or a 
directory, 
/tmp/xtla-mirror/{arch}/xtla/xtla--jet/xtla--jet--0.2/address@hidden/patch-log

("No such file or directory" is my translation. The original message is 
Japanese.)

vc-arch-workfile-version doesn't handle mirror archives.

In some case, tla uses -MIRROR or -SOURCE as suffix archive name:

    $ tla make-archive -H
    create a new archive directory
    usage: tla make-archive [options] [name] location
    ...
    With --mirror, label the new archive as a mirror of MASTER.
    Ordinary commits can not be made to a mirror archive, however
    the command "tla archive-mirror" can write to a mirror.

    Two special forms of this command are available:

       tla make-archive --mirror MASTER LOCATION

    is equivalent to:

       tla make-archive --mirror MASTER MASTER-MIRROR LOCATION
                                              ^^^^^^^
    and thus "tla archive-mirror MASTER" will push changes
    from MASTER to the newly created mirror.

       tla make-archive --mirror-from MASTER-SOURCE LOCATION
                                            ^^^^^^^
    is equivalent to:

       tla make-archive --mirror MASTER-SOURCE MASTER LOCATION

    and thus "tla archive-mirror MASTER" will pull changes
    from MASTER-SOURCE to the newly created mirror.

2004-10-17  Masatake YAMATO  <address@hidden>

        * vc-arch.el (vc-arch-workfile-version): Cut down mirror suffixes
        from the archive name.

Index: lisp/vc-arch.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-arch.el,v
retrieving revision 1.12
diff -u -r1.12 vc-arch.el
--- lisp/vc-arch.el     13 Sep 2004 20:39:59 -0000      1.12
+++ lisp/vc-arch.el     16 Oct 2004 16:29:40 -0000
@@ -282,6 +282,11 @@
        (setq logdir (expand-file-name branch logdir))
        (setq logdir (expand-file-name version logdir))
        (setq logdir (expand-file-name archive logdir))
+       (setq logdir (if (and (not (file-directory-p logdir))
+                             (or (string-match "\\(.+\\)-MIRROR$" logdir)
+                                 (string-match "\\(.+\\)-SOURCE$" logdir)))
+                        (match-string 1 logdir)
+                      logdir))
        (setq logdir (expand-file-name "patch-log" logdir))
        ;; Revision names go: base-0, patch-N, version-0, versionfix-N.
        (dolist (file (directory-files logdir))