From mboxrd@z Thu Jan 1 00:00:00 1970 Mailing-List: contact zsh-workers-help@sunsite.auc.dk; run by ezmlm Precedence: bulk X-No-Archive: yes Resent-Date: Tue, 2 Feb 1999 04:47:44 -0500 (EST) Message-Id: <9902020931.AA54396@ibmth.df.unipi.it> To: zsh-workers@math.gatech.edu Subject: PATCH: 3.1.5-pws-6: named directories again In-Reply-To: ""Bart Schaefer""'s message of "Mon, 14 Dec 1998 20:31:18 NFT." <981214203118.ZM32726@candle.brasslantern.com> Date: Tue, 02 Feb 1999 10:31:43 +0100 From: Peter Stephenson Resent-Message-ID: <"WesOS1.0.8Y.0dijs"@math> Resent-From: zsh-workers@math.gatech.edu X-Loop: zsh-workers@math.gatech.edu Resent-Sender: zsh-workers-request@math.gatech.edu X-Mailing-List: 5166 While we're on the subject of directories again: "Bart Schaefer" wrote: > Maybe the right thing is to permit PWD and OLDPWD to > be named directories, but never use them when displaying abbreviated forms? That would make sense. This does it (for both of them, this time). In principal this could be put under user control with an extra option to hash -d, but it's not that useful for anything else. --- Doc/Zsh/expn.yo.nd Fri Jan 29 16:55:03 1999 +++ Doc/Zsh/expn.yo Tue Feb 2 10:22:30 1999 @@ -788,7 +788,8 @@ is replaced with a `tt(~)' followed by the name of the directory. The shortest way of referring to the directory is used, with ties broken in favour of using a named directory, -except when the directory is tt(/) itself. +except when the directory is tt(/) itself. The variables tt($PWD) and +tt($OLDPWD) are never abbreviated in this fashion. If a word begins with an unquoted `tt(=)' and the tt(EQUALS) option is set, --- Src/utils.c.nd Mon Feb 1 10:05:02 1999 +++ Src/utils.c Tue Feb 2 10:18:13 1999 @@ -446,7 +446,8 @@ { Nameddir nd = (Nameddir) hn; - if(nd->diff > finddir_best && !dircmp(nd->dir, finddir_full)) { + if(nd->diff > finddir_best && !dircmp(nd->dir, finddir_full) + && !(nd->flags & ND_NOABBREV)) { finddir_last=nd; finddir_best=nd->diff; } @@ -514,9 +515,8 @@ * with always==0. Unless the AUTO_NAME_DIRS option is set, we * * don't let such assignments actually create directory names. * * Instead, a reference to the parameter as a directory name can * - * cause the actual creation of the hash table entry. Never hash * - * PWD unless it was explicitly requested (or already hashed). */ - if (!always && (unset(AUTONAMEDIRS) || !strcmp(s, "PWD")) && + * cause the actual creation of the hash table entry. */ + if (!always && unset(AUTONAMEDIRS) && !nameddirtab->getnode2(nameddirtab, s)) return; @@ -534,6 +534,9 @@ nd = (Nameddir) zcalloc(sizeof *nd); nd->flags = flags; nd->dir = ztrdup(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; nameddirtab->addnode(nameddirtab, ztrdup(s), nd); } --- Src/zsh.h.nd Fri Jan 29 17:33:20 1999 +++ Src/zsh.h Tue Feb 2 10:15:01 1999 @@ -963,6 +963,7 @@ /* flags for named directories */ /* DISABLED is defined (1<<0) */ #define ND_USERNAME (1<<1) /* nam is actually a username */ +#define ND_NOABBREV (1<<2) /* never print as abbrev (PWD or OLDPWD) */ /* flags for controlling printing of hash table nodes */ -- Peter Stephenson Tel: +39 050 844536 WWW: http://www.ifh.de/~pws/ Dipartimento di Fisica, Via Buonarroti 2, 56127 Pisa, Italy