2 * Copyright (c) 1992, 1993, 1994
3 * The Regents of the University of California. All rights reserved.
4 * Copyright (c) 1992, 1993, 1994, 1995, 1996
5 * Keith Bostic. All rights reserved.
7 * See the LICENSE file for redistribution information.
13 static const char sccsid
[] = "$Id: ex_cd.c,v 10.11 2000/07/14 14:29:20 skimo Exp $ (Berkeley) $Date: 2000/07/14 14:29:20 $";
16 #include <sys/param.h>
17 #include <sys/queue.h>
19 #include <bitstring.h>
28 #include "../common/common.h"
31 * ex_cd -- :cd[!] [directory]
34 * PUBLIC: int ex_cd __P((SCR *, EXCMD *));
44 char *dir
, *p
, *t
; /* XXX: END OF THE STACK, DON'T TRUST GETCWD. */
45 char buf
[MAXPATHLEN
* 2];
50 * Historic practice is that the cd isn't attempted if the file has
51 * been modified, unless its name begins with a leading '/' or the
54 if (F_ISSET(sp
->ep
, F_MODIFIED
) &&
55 !FL_ISSET(cmdp
->iflags
, E_C_FORCE
) && sp
->frp
->name
[0] != '/') {
57 "120|File modified since last complete write; write or use ! to override");
63 /* If no argument, change to the user's home directory. */
64 if ((dir
= getenv("HOME")) == NULL
) {
65 if ((pw
= getpwuid(getuid())) == NULL
||
66 pw
->pw_dir
== NULL
|| pw
->pw_dir
[0] == '\0') {
68 "121|Unable to find home directory location");
75 INT2CHAR(sp
, cmdp
->argv
[0]->bp
, cmdp
->argv
[0]->len
+ 1,
83 * Try the current directory first. If this succeeds, don't display
84 * a message, vi didn't historically, and it should be obvious to the
85 * user where they are.
91 * If moving to the user's home directory, or, the path begins with
92 * "/", "./" or "../", it's the only place we try.
94 if (cmdp
->argc
== 0 ||
95 (ap
= cmdp
->argv
[0])->bp
[0] == '/' ||
96 ap
->len
== 1 && ap
->bp
[0] == '.' ||
97 ap
->len
>= 2 && ap
->bp
[0] == '.' && ap
->bp
[1] == '.' &&
98 (ap
->bp
[2] == '/' || ap
->bp
[2] == '\0'))
101 /* Try the O_CDPATH option values. */
102 for (p
= t
= O_STR(sp
, O_CDPATH
);; ++p
)
103 if (*p
== '\0' || *p
== ':') {
105 * Empty strings specify ".". The only way to get an
106 * empty string is a leading colon, colons in a row,
107 * or a trailing colon. Or, to put it the other way,
108 * if the length is 1 or less, then we're dealing with
109 * ":XXX", "XXX::XXXX" , "XXX:", or "". Since we've
110 * already tried dot, we ignore tham all.
116 sizeof(buf
), "%s/%s", t
, dir
);
119 if (getcwd(buf
, sizeof(buf
)) != NULL
)
120 msgq_str(sp
, M_INFO
, buf
, "122|New current directory: %s");
129 err
: msgq_str(sp
, M_SYSERR
, dir
, "%s");