dist/nvi/common/gs.c

   1 /*      $NetBSD$ */
   2
   3 /*-
   4  * Copyright (c) 2000
   5  *      Sven Verdoolaege.  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
  15 #include <bitstring.h>
  16 #include <ctype.h>
  17 #include <errno.h>
  18 #include <stdio.h>
  19 #include <stdlib.h>
  20 #include <string.h>
  21 #include <unistd.h>
  22
  23 #include "../common/common.h"
  24 #include "../perl_api/extern.h"
  25
  26 static void        perr __P((char *, char *));
  27
  28 /*
  29  * gs_init --
  30  *      Create and partially initialize the GS structure.
  31  * PUBLIC: GS * gs_init __P((char*));
  32  */
  33 GS *
  34 gs_init(char *name)
  35 {
  36         GS *gp;
  37         char *p;
  38
  39         /* Figure out what our name is. */
  40         if ((p = strrchr(name, '/')) != NULL)
  41                 name = p + 1;
  42
  43         /* Allocate the global structure. */
  44         CALLOC_NOMSG(NULL, gp, GS *, 1, sizeof(GS));
  45         if (gp == NULL)
  46                 perr(name, NULL);
  47
  48         gp->progname = name;
  49
  50         /* Common global structure initialization. */
  51         /* others will need to be copied from main.c */
  52         CIRCLEQ_INIT(&gp->dq);
  53
  54         CIRCLEQ_INIT(&gp->hq);
  55         gp->noprint = DEFAULT_NOPRINT;
  56
  57         /* Structures shared by screens so stored in the GS structure. */
  58         CIRCLEQ_INIT(&gp->frefq);
  59         CIRCLEQ_INIT(&gp->exfq);
  60         LIST_INIT(&gp->seqq);
  61
  62         thread_init(gp);
  63
  64         return (gp);
  65 }
  66
  67 /*
  68  * gs_new_win
  69  *      Create new window
  70  * PUBLIC: WIN * gs_new_win __P((GS *gp));
  71  */
  72
  73 WIN *
  74 gs_new_win(GS *gp)
  75 {
  76         WIN *wp;
  77
  78         CALLOC_NOMSG(NULL, wp, WIN *, 1, sizeof(*wp));
  79         if (!wp)
  80                 return NULL;
  81
  82         /* Common global structure initialization. */
  83         LIST_INIT(&wp->ecq);
  84         LIST_INSERT_HEAD(&wp->ecq, &wp->excmd, q);
  85
  86         CIRCLEQ_INSERT_TAIL(&gp->dq, wp, q);
  87         CIRCLEQ_INIT(&wp->scrq);
  88
  89         CIRCLEQ_INIT(&wp->dcb_store.textq);
  90         LIST_INIT(&wp->cutq);
  91
  92         wp->gp = gp;
  93
  94         return wp;
  95 }
  96
  97 /*
  98  * win_end --
  99  *      Remove window.
 100  *
 101  * PUBLIC: int win_end __P((WIN *wp));
 102  */
 103 int
 104 win_end(WIN *wp)
 105 {
 106         SCR *sp;
 107
 108         CIRCLEQ_REMOVE(&wp->gp->dq, wp, q);
 109
 110         if (wp->ccl_sp != NULL) {
 111                 (void)file_end(wp->ccl_sp, NULL, 1);
 112                 (void)screen_end(wp->ccl_sp);
 113         }
 114         while ((sp = wp->scrq.cqh_first) != (void *)&wp->scrq)
 115                 (void)screen_end(sp);
 116
 117         /* Free key input queue. */
 118         if (wp->i_event != NULL)
 119                 free(wp->i_event);
 120
 121         /* Free cut buffers. */
 122         cut_close(wp);
 123
 124         /* Free default buffer storage. */
 125         (void)text_lfree(&wp->dcb_store.textq);
 126
 127 #if defined(DEBUG) || defined(PURIFY) || defined(LIBRARY)
 128         /* Free any temporary space. */
 129         if (wp->tmp_bp != NULL)
 130                 free(wp->tmp_bp);
 131 #endif
 132
 133         return 0;
 134 }
 135
 136 /*
 137  * gs_end --
 138  *      End the program, discarding screens and most of the global area.
 139  *
 140  * PUBLIC: void gs_end __P((GS *));
 141  */
 142 void
 143 gs_end(GS *gp)
 144 {
 145         MSGS *mp;
 146         SCR *sp;
 147         WIN *wp;
 148
 149         /* If there are any remaining screens, kill them off. */
 150         while ((wp = gp->dq.cqh_first) != (void *)&gp->dq)
 151                 (void)win_end(wp);
 152         while ((sp = gp->hq.cqh_first) != (void *)&gp->hq)
 153                 (void)screen_end(sp);
 154
 155 #ifdef HAVE_PERL_INTERP
 156         perl_end(gp);
 157 #endif
 158
 159 #if defined(DEBUG) || defined(PURIFY) || defined(LIBRARY)
 160         { FREF *frp;
 161                 /* Free FREF's. */
 162                 while ((frp = gp->frefq.cqh_first) != (FREF *)&gp->frefq) {
 163                         CIRCLEQ_REMOVE(&gp->frefq, frp, q);
 164                         if (frp->name != NULL)
 165                                 free(frp->name);
 166                         if (frp->tname != NULL)
 167                                 free(frp->tname);
 168                         free(frp);
 169                 }
 170         }
 171
 172         /* Free map sequences. */
 173         seq_close(gp);
 174
 175         /* Close message catalogs. */
 176         msg_close(gp);
 177 #endif
 178
 179         /* Ring the bell if scheduled. */
 180         if (F_ISSET(gp, G_BELLSCHED))
 181                 (void)fprintf(stderr, "\07");           /* \a */
 182
 183         /*
 184          * Flush any remaining messages.  If a message is here, it's almost
 185          * certainly the message about the event that killed us (although
 186          * it's possible that the user is sourcing a file that exits from the
 187          * editor).
 188          */
 189         while ((mp = gp->msgq.lh_first) != NULL) {
 190                 (void)fprintf(stderr, "%s%.*s",
 191                     mp->mtype == M_ERR ? "ex/vi: " : "", (int)mp->len, mp->buf);
 192                 LIST_REMOVE(mp, q);
 193 #if defined(DEBUG) || defined(PURIFY) || defined(LIBRARY)
 194                 free(mp->buf);
 195                 free(mp);
 196 #endif
 197         }
 198
 199 #if defined(TRACE)
 200         /* Close tracing file descriptor. */
 201         vtrace_end();
 202 #endif
 203 }
 204
 205
 206 /*
 207  * perr --
 208  *      Print system error.
 209  */
 210 static void
 211 perr(char *name, char *msg)
 212 {
 213         (void)fprintf(stderr, "%s:", name);
 214         if (msg != NULL)
 215                 (void)fprintf(stderr, "%s:", msg);
 216         (void)fprintf(stderr, "%s\n", strerror(errno));
 217         exit(1);
 218 }