3 * Sven Verdoolaege. All rights reserved.
5 * See the LICENSE file for redistribution information.
10 #include <sys/types.h>
11 #include <sys/queue.h>
13 #include <bitstring.h>
21 #include "../common/common.h"
23 static void perr
__P((char *, char *));
27 * Create and partially initialize the GS structure.
28 * PUBLIC: GS * gs_init __P((char*));
37 /* Figure out what our name is. */
38 if ((p
= strrchr(name
, '/')) != NULL
)
41 /* Allocate the global structure. */
42 CALLOC_NOMSG(NULL
, gp
, GS
*, 1, sizeof(GS
));
48 /* Common global structure initialization. */
49 /* others will need to be copied from main.c */
50 CIRCLEQ_INIT(&gp
->dq
);
52 CIRCLEQ_INIT(&gp
->hq
);
53 gp
->noprint
= DEFAULT_NOPRINT
;
55 /* Structures shared by screens so stored in the GS structure. */
56 CIRCLEQ_INIT(&gp
->frefq
);
57 CIRCLEQ_INIT(&gp
->exfq
);
58 CIRCLEQ_INIT(&gp
->dcb_store
.textq
);
70 * PUBLIC: WIN * gs_new_win __P((GS *gp));
78 CALLOC_NOMSG(NULL
, wp
, WIN
*, 1, sizeof(*wp
));
82 /* Common global structure initialization. */
84 LIST_INSERT_HEAD(&wp
->ecq
, &wp
->excmd
, q
);
86 CIRCLEQ_INSERT_TAIL(&gp
->dq
, wp
, q
);
87 CIRCLEQ_INIT(&wp
->scrq
);
98 * PUBLIC: int win_end __P((WIN *wp));
105 CIRCLEQ_REMOVE(&wp
->gp
->dq
, wp
, q
);
107 while ((sp
= wp
->scrq
.cqh_first
) != (void *)&wp
->scrq
)
108 (void)screen_end(sp
);
110 #if defined(DEBUG) || defined(PURIFY) || defined(LIBRARY)
111 /* Free any temporary space. */
112 if (wp
->tmp_bp
!= NULL
)
121 * End the program, discarding screens and most of the global area.
123 * PUBLIC: void gs_end __P((GS *));
133 /* If there are any remaining screens, kill them off. */
134 if (gp
->ccl_sp
!= NULL
) {
135 (void)file_end(gp
->ccl_sp
, NULL
, 1);
136 (void)screen_end(gp
->ccl_sp
);
138 while ((wp
= gp
->dq
.cqh_first
) != (void *)&gp
->dq
)
140 while ((sp
= gp
->hq
.cqh_first
) != (void *)&gp
->hq
)
141 (void)screen_end(sp
);
143 #ifdef HAVE_PERL_INTERP
147 #if defined(DEBUG) || defined(PURIFY) || defined(LIBRARY)
150 while ((frp
= gp
->frefq
.cqh_first
) != (FREF
*)&gp
->frefq
) {
151 CIRCLEQ_REMOVE(&gp
->frefq
, frp
, q
);
152 if (frp
->name
!= NULL
)
154 if (frp
->tname
!= NULL
)
160 /* Free key input queue. */
161 if (gp
->i_event
!= NULL
)
164 /* Free cut buffers. */
167 /* Free map sequences. */
170 /* Free default buffer storage. */
171 (void)text_lfree(&gp
->dcb_store
.textq
);
173 /* Close message catalogs. */
177 gp
->env
->remove(gp
->env
, NULL
, 0);
179 gp->env->close(gp->env, 0);
183 /* Ring the bell if scheduled. */
184 if (F_ISSET(gp
, G_BELLSCHED
))
185 (void)fprintf(stderr
, "\07"); /* \a */
188 * Flush any remaining messages. If a message is here, it's almost
189 * certainly the message about the event that killed us (although
190 * it's possible that the user is sourcing a file that exits from the
193 while ((mp
= gp
->msgq
.lh_first
) != NULL
) {
194 (void)fprintf(stderr
, "%s%.*s",
195 mp
->mtype
== M_ERR
? "ex/vi: " : "", (int)mp
->len
, mp
->buf
);
197 #if defined(DEBUG) || defined(PURIFY) || defined(LIBRARY)
204 /* Close tracing file descriptor. */
212 * Print system error.
218 (void)fprintf(stderr
, "%s:", name
);
220 (void)fprintf(stderr
, "%s:", msg
);
221 (void)fprintf(stderr
, "%s\n", strerror(errno
));