ex/ex_cd.c

   1 /*-
   2  * Copyright (c) 1992, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * %sccs.include.redist.c%
   6  */
   7
   8 #ifndef lint
   9 static char sccsid[] = "$Id: ex_cd.c,v 8.3 1993/12/02 10:47:00 bostic Exp $ (Berkeley) $Date: 1993/12/02 10:47:00 $";
  10 #endif /* not lint */
  11
  12 #include <sys/param.h>
  13
  14 #include <errno.h>
  15 #include <stdlib.h>
  16 #include <string.h>
  17 #include <unistd.h>
  18
  19 #include "vi.h"
  20 #include "excmd.h"
  21
  22 /*
  23  * ex_cd -- :cd[!] [directory]
  24  *      Change directories.
  25  */
  26 int
  27 ex_cd(sp, ep, cmdp)
  28         SCR *sp;
  29         EXF *ep;
  30         EXCMDARG *cmdp;
  31 {
  32         char *dir, buf[MAXPATHLEN];
  33
  34         switch (cmdp->argc) {
  35         case 0:
  36                 if ((dir = getenv("HOME")) == NULL) {
  37                         msgq(sp, M_ERR,
  38                             "Environment variable HOME not set.");
  39                         return (1);
  40                 }
  41                 break;
  42         case 1:
  43                 dir = cmdp->argv[0]->bp;
  44                 break;
  45         default:
  46                 abort();
  47         }
  48
  49         if (chdir(dir) < 0) {
  50                 msgq(sp, M_SYSERR, dir);
  51                 return (1);
  52         }
  53         if (getcwd(buf, sizeof(buf)) != NULL)
  54                 msgq(sp, M_INFO, "New directory: %s", buf);
  55         return (0);
  56 }