Re: Problem with named directories

[Peter Stephenson <pws@xxxxxxx>]

Peter Stephenson wrote:
> I think it might be better to prune the name of the directory when it is
> assigned.

On second thoughts, probably safer not to prune initial slashes, in case
// is special.

Index: ChangeLog
===================================================================
RCS file: /cvsroot/zsh/zsh/ChangeLog,v
retrieving revision 1.2528
diff -u -r1.2528 ChangeLog
--- ChangeLog	22 Feb 2005 13:12:35 -0000	1.2528
+++ ChangeLog	22 Feb 2005 18:13:31 -0000
@@ -1,5 +1,9 @@
 2005-02-22  Peter Stephenson  <pws@xxxxxxx>
 
+	* 20843: Doc/Zsh/expn.yo, Src/utils.c: named directories always
+	have trailing slashes pruned.  Any related parameter remains
+	unmodified.
+
 	* Andrey Borzenkov: 20838 with minor tweaks: Src/system.h,
 	Src/Zle/zle.h, Src/Zle/zle_main.c, Src/Zle/zle_misc.c,
 	Src/Zle/zle_tricky.c, Src/Zle/zle_utils.c: fixes to
Index: Doc/Zsh/expn.yo
===================================================================
RCS file: /cvsroot/zsh/zsh/Doc/Zsh/expn.yo,v
retrieving revision 1.50
diff -u -r1.50 expn.yo
--- Doc/Zsh/expn.yo	10 Jan 2005 17:31:25 -0000	1.50
+++ Doc/Zsh/expn.yo	22 Feb 2005 18:13:31 -0000
@@ -1138,6 +1138,8 @@
 Named directories are typically home directories for users on the system.
 They may also be defined if the text after the `tt(~)' is the name
 of a string shell parameter whose value begins with a `tt(/)'.
+Note that trailing slashes will be removed from the path to the directory
+(though the original parameter is not modified).
 It is also possible to define directory names using the tt(-d) option to the
 tt(hash) builtin.
 
Index: Src/utils.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/utils.c,v
retrieving revision 1.72
diff -u -r1.72 utils.c
--- Src/utils.c	1 Feb 2005 10:53:18 -0000	1.72
+++ Src/utils.c	22 Feb 2005 18:13:32 -0000
@@ -525,6 +525,7 @@
 adduserdir(char *s, char *t, int flags, int always)
 {
     Nameddir nd;
+    char *eptr;
 
     /* We don't maintain a hash table in non-interactive shells. */
     if (!interact)
@@ -558,7 +559,18 @@
     /* add the name */
     nd = (Nameddir) zshcalloc(sizeof *nd);
     nd->flags = flags;
-    nd->dir = ztrdup(t);
+    eptr = t + strlen(t);
+    while (eptr > t && eptr[-1] == '/')
+	eptr--;
+    if (eptr == t) {
+	/*
+	 * Don't abbreviate multiple slashes at the start of a
+	 * named directory, since these are sometimes used for
+	 * special purposes.
+	 */
+	nd->dir = ztrdup(t);
+    } else
+	nd->dir = ztrduppfx(t, eptr - t);
     /* The variables PWD and OLDPWD are not to be displayed as ~PWD etc. */
     if (!strcmp(s, "PWD") || !strcmp(s, "OLDPWD"))
 	nd->flags |= ND_NOABBREV;

-- 
Peter Stephenson <pws@xxxxxxx>                  Software Engineer
CSR PLC, Churchill House, Cambridge Business Park, Cowley Road
Cambridge, CB4 0WZ, UK                          Tel: +44 (0)1223 692070


**********************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the system manager.

**********************************************************************