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#ifndef lint
13static const char sccsid[] = "@(#)ex_util.c	10.23 (Berkeley) 6/19/96";
14#endif /* not lint */
15
16#include <sys/types.h>
17#include <sys/queue.h>
18#include <sys/stat.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#include <unistd.h>
27
28#include "../common/common.h"
29
30/*
31 * ex_cinit --
32 *	Create an EX command structure.
33 *
34 * PUBLIC: void ex_cinit __P((EXCMD *,
35 * PUBLIC:    int, int, recno_t, recno_t, int, ARGS **));
36 */
37void
38ex_cinit(cmdp, cmd_id, naddr, lno1, lno2, force, ap)
39	EXCMD *cmdp;
40	int cmd_id, force, naddr;
41	recno_t lno1, lno2;
42	ARGS **ap;
43{
44	memset(cmdp, 0, sizeof(EXCMD));
45	cmdp->cmd = &cmds[cmd_id];
46	cmdp->addrcnt = naddr;
47	cmdp->addr1.lno = lno1;
48	cmdp->addr2.lno = lno2;
49	cmdp->addr1.cno = cmdp->addr2.cno = 1;
50	if (force)
51		cmdp->iflags |= E_C_FORCE;
52	cmdp->argc = 0;
53	if ((cmdp->argv = ap) != NULL)
54		cmdp->argv[0] = NULL;
55}
56
57/*
58 * ex_cadd --
59 *	Add an argument to an EX command structure.
60 *
61 * PUBLIC: void ex_cadd __P((EXCMD *, ARGS *, char *, size_t));
62 */
63void
64ex_cadd(cmdp, ap, arg, len)
65	EXCMD *cmdp;
66	ARGS *ap;
67	char *arg;
68	size_t len;
69{
70	cmdp->argv[cmdp->argc] = ap;
71	ap->bp = arg;
72	ap->len = len;
73	cmdp->argv[++cmdp->argc] = NULL;
74}
75
76/*
77 * ex_getline --
78 *	Return a line from the file.
79 *
80 * PUBLIC: int ex_getline __P((SCR *, FILE *, size_t *));
81 */
82int
83ex_getline(sp, fp, lenp)
84	SCR *sp;
85	FILE *fp;
86	size_t *lenp;
87{
88	EX_PRIVATE *exp;
89	size_t off;
90	int ch;
91	char *p;
92
93	exp = EXP(sp);
94	for (errno = 0, off = 0, p = exp->ibp;;) {
95		if (off >= exp->ibp_len) {
96			BINC_RET(sp, exp->ibp, exp->ibp_len, off + 1);
97			p = exp->ibp + off;
98		}
99		if ((ch = getc(fp)) == EOF && !feof(fp)) {
100			if (errno == EINTR) {
101				errno = 0;
102				clearerr(fp);
103				continue;
104			}
105			return (1);
106		}
107		if (ch == EOF || ch == '\n') {
108			if (ch == EOF && !off)
109				return (1);
110			*lenp = off;
111			return (0);
112		}
113		*p++ = ch;
114		++off;
115	}
116	/* NOTREACHED */
117}
118
119/*
120 * ex_ncheck --
121 *	Check for more files to edit.
122 *
123 * PUBLIC: int ex_ncheck __P((SCR *, int));
124 */
125int
126ex_ncheck(sp, force)
127	SCR *sp;
128	int force;
129{
130	char **ap;
131
132	/*
133	 * !!!
134	 * Historic practice: quit! or two quit's done in succession
135	 * (where ZZ counts as a quit) didn't check for other files.
136	 */
137	if (!force && sp->ccnt != sp->q_ccnt + 1 &&
138	    sp->cargv != NULL && sp->cargv[1] != NULL) {
139		sp->q_ccnt = sp->ccnt;
140
141		for (ap = sp->cargv + 1; *ap != NULL; ++ap);
142		msgq(sp, M_ERR,
143		    "167|%d more files to edit", (ap - sp->cargv) - 1);
144
145		return (1);
146	}
147	return (0);
148}
149
150/*
151 * ex_init --
152 *	Init the screen for ex.
153 *
154 * PUBLIC: int ex_init __P((SCR *));
155 */
156int
157ex_init(sp)
158	SCR *sp;
159{
160	GS *gp;
161
162	gp = sp->gp;
163
164	if (gp->scr_screen(sp, SC_EX))
165		return (1);
166	(void)gp->scr_attr(sp, SA_ALTERNATE, 0);
167
168	sp->rows = O_VAL(sp, O_LINES);
169	sp->cols = O_VAL(sp, O_COLUMNS);
170
171	F_CLR(sp, SC_VI);
172	F_SET(sp, SC_EX | SC_SCR_EX);
173	return (0);
174}
175
176/*
177 * ex_emsg --
178 *	Display a few common ex and vi error messages.
179 *
180 * PUBLIC: void ex_emsg __P((SCR *, char *, exm_t));
181 */
182void
183ex_emsg(sp, p, which)
184	SCR *sp;
185	char *p;
186	exm_t which;
187{
188	switch (which) {
189	case EXM_EMPTYBUF:
190		msgq(sp, M_ERR, "168|Buffer %s is empty", p);
191		break;
192	case EXM_FILECOUNT:
193		 msgq_str(sp, M_ERR, p,
194		     "144|%s: expanded into too many file names");
195		break;
196	case EXM_NOCANON:
197		msgq(sp, M_ERR,
198		    "283|The %s command requires the ex terminal interface", p);
199		break;
200	case EXM_NOCANON_F:
201		msgq(sp, M_ERR,
202		    "272|That form of %s requires the ex terminal interface",
203		    p);
204		break;
205	case EXM_NOFILEYET:
206		if (p == NULL)
207			msgq(sp, M_ERR,
208			    "274|Command failed, no file read in yet.");
209		else
210			msgq(sp, M_ERR,
211	"173|The %s command requires that a file have already been read in", p);
212		break;
213	case EXM_NOPREVBUF:
214		msgq(sp, M_ERR, "171|No previous buffer to execute");
215		break;
216	case EXM_NOPREVRE:
217		msgq(sp, M_ERR, "172|No previous regular expression");
218		break;
219	case EXM_NOSUSPEND:
220		msgq(sp, M_ERR, "230|This screen may not be suspended");
221		break;
222	case EXM_SECURE:
223		msgq(sp, M_ERR,
224"290|The %s command is not supported when the secure edit option is set", p);
225		break;
226	case EXM_SECURE_F:
227		msgq(sp, M_ERR,
228"284|That form of %s is not supported when the secure edit option is set", p);
229		break;
230	case EXM_USAGE:
231		msgq(sp, M_ERR, "174|Usage: %s", p);
232		break;
233	}
234}
235