ex/ex_args.c

   1 /*-
   2  * Copyright (c) 1991, 1993, 1994
   3  *      The Regents of the University of California.  All rights reserved.
   4  * Copyright (c) 1991, 1993, 1994, 1995, 1996
   5  *      Keith Bostic.  All rights reserved.
   6  *
   7  * See the LICENSE file for redistribution information.
   8  */
   9
  10 #include "config.h"
  11
  12 #ifndef lint
  13 static const char sccsid[] = "$Id: ex_args.c,v 10.17 2000/07/14 14:29:19 skimo Exp $ (Berkeley) $Date: 2000/07/14 14:29:19 $";
  14 #endif /* not lint */
  15
  16 #include <sys/types.h>
  17 #include <sys/queue.h>
  18 #include <sys/time.h>
  19
  20 #include <bitstring.h>
  21 #include <errno.h>
  22 #include <limits.h>
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26
  27 #include "../common/common.h"
  28 #include "../vi/vi.h"
  29
  30 static int ex_N_next __P((SCR *, EXCMD *));
  31
  32 /*
  33  * ex_next -- :next [+cmd] [files]
  34  *      Edit the next file, optionally setting the list of files.
  35  *
  36  * !!!
  37  * The :next command behaved differently from the :rewind command in
  38  * historic vi.  See nvi/docs/autowrite for details, but the basic
  39  * idea was that it ignored the force flag if the autowrite flag was
  40  * set.  This implementation handles them all identically.
  41  *
  42  * PUBLIC: int ex_next __P((SCR *, EXCMD *));
  43  */
  44 int
  45 ex_next(sp, cmdp)
  46         SCR *sp;
  47         EXCMD *cmdp;
  48 {
  49         ARGS **argv;
  50         FREF *frp;
  51         int noargs;
  52         char **ap;
  53         CHAR_T *wp;
  54         size_t wlen;
  55         char *np;
  56         size_t nlen;
  57
  58         /* Check for file to move to. */
  59         if (cmdp->argc == 0 && (sp->cargv == NULL || sp->cargv[1] == NULL)) {
  60                 msgq(sp, M_ERR, "111|No more files to edit");
  61                 return (1);
  62         }
  63
  64         if (F_ISSET(cmdp, E_NEWSCREEN)) {
  65                 /* By default, edit the next file in the old argument list. */
  66                 if (cmdp->argc == 0) {
  67                         CHAR2INT(sp, sp->cargv[1], strlen(sp->cargv[1]) + 1,
  68                                            wp, wlen);
  69                         if (argv_exp0(sp, cmdp, wp, wlen - 1))
  70                                 return (1);
  71                         return (ex_edit(sp, cmdp));
  72                 }
  73                 return (ex_N_next(sp, cmdp));
  74         }
  75
  76         /* Check modification. */
  77         if (file_m1(sp,
  78             FL_ISSET(cmdp->iflags, E_C_FORCE), FS_ALL | FS_POSSIBLE))
  79                 return (1);
  80
  81         /* Any arguments are a replacement file list. */
  82         if (cmdp->argc) {
  83                 /* Free the current list. */
  84                 if (!F_ISSET(sp, SC_ARGNOFREE) && sp->argv != NULL) {
  85                         for (ap = sp->argv; *ap != NULL; ++ap)
  86                                 free(*ap);
  87                         free(sp->argv);
  88                 }
  89                 F_CLR(sp, SC_ARGNOFREE | SC_ARGRECOVER);
  90                 sp->cargv = NULL;
  91
  92                 /* Create a new list. */
  93                 CALLOC_RET(sp,
  94                     sp->argv, char **, cmdp->argc + 1, sizeof(char *));
  95                 for (ap = sp->argv,
  96                     argv = cmdp->argv; argv[0]->len != 0; ++ap, ++argv) {
  97                         INT2CHAR(sp, argv[0]->bp, argv[0]->len, np, nlen);
  98                         if ((*ap = v_strdup(sp, np, nlen)) == NULL)
  99                                 return (1);
 100                 }
 101                 *ap = NULL;
 102
 103                 /* Switch to the first file. */
 104                 sp->cargv = sp->argv;
 105                 if ((frp = file_add(sp, *sp->cargv)) == NULL)
 106                         return (1);
 107                 noargs = 0;
 108
 109                 /* Display a file count with the welcome message. */
 110                 F_SET(sp, SC_STATUS_CNT);
 111         } else {
 112                 if ((frp = file_add(sp, sp->cargv[1])) == NULL)
 113                         return (1);
 114                 if (F_ISSET(sp, SC_ARGRECOVER))
 115                         F_SET(frp, FR_RECOVER);
 116                 noargs = 1;
 117         }
 118
 119         if (file_init(sp, frp, NULL, FS_SETALT |
 120             (FL_ISSET(cmdp->iflags, E_C_FORCE) ? FS_FORCE : 0)))
 121                 return (1);
 122         if (noargs)
 123                 ++sp->cargv;
 124
 125         F_SET(sp, SC_FSWITCH);
 126         return (0);
 127 }
 128
 129 /*
 130  * ex_N_next --
 131  *      New screen version of ex_next.
 132  */
 133 static int
 134 ex_N_next(sp, cmdp)
 135         SCR *sp;
 136         EXCMD *cmdp;
 137 {
 138         SCR *new;
 139         FREF *frp;
 140         char *np;
 141         size_t nlen;
 142
 143         /* Get a new screen. */
 144         if (screen_init(sp->gp, sp, &new))
 145                 return (1);
 146         if (vs_split(sp, new, 0)) {
 147                 (void)screen_end(new);
 148                 return (1);
 149         }
 150
 151         /* Get a backing file. */
 152         INT2CHAR(sp, cmdp->argv[0]->bp, cmdp->argv[0]->len + 1, np, nlen);
 153         if ((frp = file_add(new, np)) == NULL ||
 154             file_init(new, frp, NULL,
 155             (FL_ISSET(cmdp->iflags, E_C_FORCE) ? FS_FORCE : 0))) {
 156                 (void)vs_discard(new, NULL);
 157                 (void)screen_end(new);
 158                 return (1);
 159         }
 160
 161         /* The arguments are a replacement file list. */
 162         new->cargv = new->argv = ex_buildargv(sp, cmdp, NULL);
 163
 164         /* Display a file count with the welcome message. */
 165         F_SET(new, SC_STATUS_CNT);
 166
 167         /* Set up the switch. */
 168         sp->nextdisp = new;
 169         F_SET(sp, SC_SSWITCH);
 170
 171         return (0);
 172 }
 173
 174 /*
 175  * ex_prev -- :prev
 176  *      Edit the previous file.
 177  *
 178  * PUBLIC: int ex_prev __P((SCR *, EXCMD *));
 179  */
 180 int
 181 ex_prev(sp, cmdp)
 182         SCR *sp;
 183         EXCMD *cmdp;
 184 {
 185         FREF *frp;
 186         size_t wlen;
 187         CHAR_T *wp;
 188
 189         if (sp->cargv == sp->argv) {
 190                 msgq(sp, M_ERR, "112|No previous files to edit");
 191                 return (1);
 192         }
 193
 194         if (F_ISSET(cmdp, E_NEWSCREEN)) {
 195                 CHAR2INT(sp, sp->cargv[-1], strlen(sp->cargv[-1]) + 1,
 196                                    wp, wlen);
 197                 if (argv_exp0(sp, cmdp, wp, wlen - 1))
 198                         return (1);
 199                 return (ex_edit(sp, cmdp));
 200         }
 201
 202         if (file_m1(sp,
 203             FL_ISSET(cmdp->iflags, E_C_FORCE), FS_ALL | FS_POSSIBLE))
 204                 return (1);
 205
 206         if ((frp = file_add(sp, sp->cargv[-1])) == NULL)
 207                 return (1);
 208
 209         if (file_init(sp, frp, NULL, FS_SETALT |
 210             (FL_ISSET(cmdp->iflags, E_C_FORCE) ? FS_FORCE : 0)))
 211                 return (1);
 212         --sp->cargv;
 213
 214         F_SET(sp, SC_FSWITCH);
 215         return (0);
 216 }
 217
 218 /*
 219  * ex_rew -- :rew
 220  *      Re-edit the list of files.
 221  *
 222  * !!!
 223  * Historic practice was that all files would start editing at the beginning
 224  * of the file.  We don't get this right because we may have multiple screens
 225  * and we can't clear the FR_CURSORSET bit for a single screen.  I don't see
 226  * anyone noticing, but if they do, we'll have to put information into the SCR
 227  * structure so we can keep track of it.
 228  *
 229  * PUBLIC: int ex_rew __P((SCR *, EXCMD *));
 230  */
 231 int
 232 ex_rew(sp, cmdp)
 233         SCR *sp;
 234         EXCMD *cmdp;
 235 {
 236         FREF *frp;
 237
 238         /*
 239          * !!!
 240          * Historic practice -- you can rewind to the current file.
 241          */
 242         if (sp->argv == NULL) {
 243                 msgq(sp, M_ERR, "113|No previous files to rewind");
 244                 return (1);
 245         }
 246
 247         if (file_m1(sp,
 248             FL_ISSET(cmdp->iflags, E_C_FORCE), FS_ALL | FS_POSSIBLE))
 249                 return (1);
 250
 251         /* Switch to the first one. */
 252         sp->cargv = sp->argv;
 253         if ((frp = file_add(sp, *sp->cargv)) == NULL)
 254                 return (1);
 255         if (file_init(sp, frp, NULL, FS_SETALT |
 256             (FL_ISSET(cmdp->iflags, E_C_FORCE) ? FS_FORCE : 0)))
 257                 return (1);
 258
 259         /* Switch and display a file count with the welcome message. */
 260         F_SET(sp, SC_FSWITCH | SC_STATUS_CNT);
 261
 262         return (0);
 263 }
 264
 265 /*
 266  * ex_args -- :args
 267  *      Display the list of files.
 268  *
 269  * PUBLIC: int ex_args __P((SCR *, EXCMD *));
 270  */
 271 int
 272 ex_args(sp, cmdp)
 273         SCR *sp;
 274         EXCMD *cmdp;
 275 {
 276         GS *gp;
 277         int cnt, col, len, sep;
 278         char **ap;
 279
 280         if (sp->argv == NULL) {
 281                 (void)msgq(sp, M_ERR, "114|No file list to display");
 282                 return (0);
 283         }
 284
 285         gp = sp->gp;
 286         col = len = sep = 0;
 287         for (cnt = 1, ap = sp->argv; *ap != NULL; ++ap) {
 288                 col += len = strlen(*ap) + sep + (ap == sp->cargv ? 2 : 0);
 289                 if (col >= sp->cols - 1) {
 290                         col = len;
 291                         sep = 0;
 292                         (void)ex_puts(sp, "\n");
 293                 } else if (cnt != 1) {
 294                         sep = 1;
 295                         (void)ex_puts(sp, " ");
 296                 }
 297                 ++cnt;
 298
 299                 (void)ex_printf(sp, "%s%s%s", ap == sp->cargv ? "[" : "",
 300                     *ap, ap == sp->cargv ? "]" : "");
 301                 if (INTERRUPTED(sp))
 302                         break;
 303         }
 304         (void)ex_puts(sp, "\n");
 305         return (0);
 306 }
 307
 308 /*
 309  * ex_buildargv --
 310  *      Build a new file argument list.
 311  *
 312  * PUBLIC: char **ex_buildargv __P((SCR *, EXCMD *, char *));
 313  */
 314 char **
 315 ex_buildargv(sp, cmdp, name)
 316         SCR *sp;
 317         EXCMD *cmdp;
 318         char *name;
 319 {
 320         ARGS **argv;
 321         int argc;
 322         char **ap, **s_argv;
 323         char *np;
 324         size_t nlen;
 325
 326         argc = cmdp == NULL ? 1 : cmdp->argc;
 327         CALLOC(sp, s_argv, char **, argc + 1, sizeof(char *));
 328         if ((ap = s_argv) == NULL)
 329                 return (NULL);
 330
 331         if (cmdp == NULL) {
 332                 if ((*ap = v_strdup(sp, name, strlen(name))) == NULL)
 333                         return (NULL);
 334                 ++ap;
 335         } else
 336                 for (argv = cmdp->argv; argv[0]->len != 0; ++ap, ++argv) {
 337                         INT2CHAR(sp, cmdp->argv[0]->bp, cmdp->argv[0]->len,
 338                                  np, nlen);
 339                         if ((*ap = v_strdup(sp, np, nlen)) == NULL)
 340                                 return (NULL);
 341                 }
 342         *ap = NULL;
 343         return (s_argv);
 344 }