common/screen.c

   1 /*-
   2  * Copyright (c) 1993, 1994
   3  *      The Regents of the University of California.  All rights reserved.
   4  * Copyright (c) 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 #include <sys/types.h>
  13 #include <sys/queue.h>
  14 #include <sys/time.h>
  15
  16 #include <bitstring.h>
  17 #include <errno.h>
  18 #include <limits.h>
  19 #include <stdio.h>
  20 #include <stdlib.h>
  21 #include <string.h>
  22 #include <unistd.h>
  23
  24 #include "common.h"
  25 #include "../vi/vi.h"
  26
  27 /*
  28  * screen_init --
  29  *      Do the default initialization of an SCR structure.
  30  *
  31  * PUBLIC: int screen_init(GS *, SCR *, SCR **);
  32  */
  33 int
  34 screen_init(GS *gp, SCR *orig, SCR **spp)
  35 {
  36         SCR *sp;
  37         size_t len;
  38
  39         *spp = NULL;
  40         CALLOC_RET(orig, sp, 1, sizeof(SCR));
  41         *spp = sp;
  42
  43 /* INITIALIZED AT SCREEN CREATE. */
  44         sp->id = ++gp->id;
  45         sp->refcnt = 1;
  46
  47         sp->gp = gp;                    /* All ref the GS structure. */
  48
  49         sp->ccnt = 2;                   /* Anything > 1 */
  50
  51         /*
  52          * XXX
  53          * sp->defscroll is initialized by the opts_init() code because
  54          * we don't have the option information yet.
  55          */
  56
  57         TAILQ_INIT(sp->tiq);
  58
  59 /* PARTIALLY OR COMPLETELY COPIED FROM PREVIOUS SCREEN. */
  60         if (orig == NULL) {
  61                 sp->searchdir = NOTSET;
  62         } else {
  63                 /* Alternate file name. */
  64                 if (orig->alt_name != NULL &&
  65                     (sp->alt_name = strdup(orig->alt_name)) == NULL)
  66                         goto mem;
  67
  68                 /* Last executed at buffer. */
  69                 if (F_ISSET(orig, SC_AT_SET)) {
  70                         F_SET(sp, SC_AT_SET);
  71                         sp->at_lbuf = orig->at_lbuf;
  72                 }
  73
  74                 /* Retain searching/substitution information. */
  75                 sp->searchdir = orig->searchdir == NOTSET ? NOTSET : FORWARD;
  76                 if (orig->re != NULL && (sp->re =
  77                     v_wstrdup(sp, orig->re, orig->re_len)) == NULL)
  78                         goto mem;
  79                 sp->re_len = orig->re_len;
  80                 if (orig->subre != NULL && (sp->subre =
  81                     v_wstrdup(sp, orig->subre, orig->subre_len)) == NULL)
  82                         goto mem;
  83                 sp->subre_len = orig->subre_len;
  84                 if (orig->repl != NULL && (sp->repl =
  85                     v_wstrdup(sp, orig->repl, orig->repl_len)) == NULL)
  86                         goto mem;
  87                 sp->repl_len = orig->repl_len;
  88                 if (orig->newl_len) {
  89                         len = orig->newl_len * sizeof(size_t);
  90                         MALLOC(sp, sp->newl, len);
  91                         if (sp->newl == NULL) {
  92 mem:                            msgq(orig, M_SYSERR, NULL);
  93                                 goto err;
  94                         }
  95                         sp->newl_len = orig->newl_len;
  96                         sp->newl_cnt = orig->newl_cnt;
  97                         memcpy(sp->newl, orig->newl, len);
  98                 }
  99
 100                 if (opts_copy(orig, sp))
 101                         goto err;
 102
 103                 F_SET(sp, F_ISSET(orig, SC_EX | SC_VI));
 104         }
 105
 106         if (ex_screen_copy(orig, sp))           /* Ex. */
 107                 goto err;
 108         if (v_screen_copy(orig, sp))            /* Vi. */
 109                 goto err;
 110         sp->cl_private = 0;                     /* XXX */
 111         conv_init(orig, sp);                    /* XXX */
 112
 113         *spp = sp;
 114         return (0);
 115
 116 err:    screen_end(sp);
 117         return (1);
 118 }
 119
 120 /*
 121  * screen_end --
 122  *      Release a screen, no matter what had (and had not) been
 123  *      initialized.
 124  *
 125  * PUBLIC: int screen_end(SCR *);
 126  */
 127 int
 128 screen_end(SCR *sp)
 129 {
 130         int rval;
 131
 132         /* If multiply referenced, just decrement the count and return. */
 133          if (--sp->refcnt != 0)
 134                  return (0);
 135
 136         /*
 137          * Remove the screen from the displayed queue.
 138          *
 139          * If a created screen failed during initialization, it may not
 140          * be linked into the chain.
 141          */
 142         if (TAILQ_ENTRY_ISVALID(sp, q))
 143                 TAILQ_REMOVE(sp->gp->dq, sp, q);
 144
 145         /* The screen is no longer real. */
 146         F_CLR(sp, SC_SCR_EX | SC_SCR_VI);
 147
 148         rval = 0;
 149         if (v_screen_end(sp))                   /* End vi. */
 150                 rval = 1;
 151         if (ex_screen_end(sp))                  /* End ex. */
 152                 rval = 1;
 153
 154         /* Free file names. */
 155         { char **ap;
 156                 if (!F_ISSET(sp, SC_ARGNOFREE) && sp->argv != NULL) {
 157                         for (ap = sp->argv; *ap != NULL; ++ap)
 158                                 free(*ap);
 159                         free(sp->argv);
 160                 }
 161         }
 162
 163         /* Free any text input. */
 164         if (!TAILQ_EMPTY(sp->tiq))
 165                 text_lfree(sp->tiq);
 166
 167         /* Free alternate file name. */
 168         free(sp->alt_name);
 169
 170         /* Free up search information. */
 171         free(sp->re);
 172         if (F_ISSET(sp, SC_RE_SEARCH))
 173                 regfree(&sp->re_c);
 174         free(sp->subre);
 175         if (F_ISSET(sp, SC_RE_SUBST))
 176                 regfree(&sp->subre_c);
 177         free(sp->repl);
 178         free(sp->newl);
 179
 180         /* Free the iconv environment */
 181         conv_end(sp);
 182
 183         /* Free all the options */
 184         opts_free(sp);
 185
 186         /* Free the screen itself. */
 187         free(sp);
 188
 189         return (rval);
 190 }
 191
 192 /*
 193  * screen_next --
 194  *      Return the next screen in the queue.
 195  *
 196  * PUBLIC: SCR *screen_next(SCR *);
 197  */
 198 SCR *
 199 screen_next(SCR *sp)
 200 {
 201         GS *gp;
 202         SCR *next;
 203
 204         /* Try the display queue, without returning the current screen. */
 205         gp = sp->gp;
 206         TAILQ_FOREACH(next, gp->dq, q)
 207                 if (next != sp)
 208                         break;
 209         if (next != NULL)
 210                 return (next);
 211
 212         /* Try the hidden queue; if found, move screen to the display queue. */
 213         if (!TAILQ_EMPTY(gp->hq)) {
 214                 next = TAILQ_FIRST(gp->hq);
 215                 TAILQ_REMOVE(gp->hq, next, q);
 216                 TAILQ_INSERT_HEAD(gp->dq, next, q);
 217                 return (next);
 218         }
 219         return (NULL);
 220 }