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

*-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/jet@gyve.org--xtla-MIRROR/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  <jet@gyve.org>

	* 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))

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

[Stefan Monnier]

> 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/jet@gyve.org--xtla-MIRROR/patch-log

Hmm... does that mean that {arch}/++default-version contains something like
jet@gyve.org--xtla-MIRROR/xtla--jet--0.2 ?
Isn't that an error in and of itself?


        Stefan

Re: [Gnu-arch-users] Re: *-MIRROR and *-SOURCE in vc-arch.el

[Aaron Bentley]

Stefan Monnier wrote:
>>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/jet@gyve.org--xtla-MIRROR/patch-log
> 
> 
> Hmm... does that mean that {arch}/++default-version contains something like
> jet@gyve.org--xtla-MIRROR/xtla--jet--0.2 ?
> Isn't that an error in and of itself?

It is an error.  I have a patch.  But there's no active tree to merge it.

Aaron