bin/ed/io.c

0 /*	$NetBSD: io.c,v 1.9 2011/05/23 23:13:10 joerg Exp $	*/
3 /* io.c: This file contains the i/o routines for the ed line editor */
4 /*-
5  * Copyright (c) 1993 Andrew Moore, Talke Studio.
6  * All rights reserved.
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
15  *    documentation and/or other materials provided with the distribution.
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
27  * SUCH DAMAGE.
30 #include <sys/cdefs.h>
32 #if 0
33 static char *rcsid = "@(#)io.c,v 1.1 1994/02/01 00:34:41 alm Exp";
35 __RCSID("$NetBSD: io.c,v 1.9 2011/05/23 23:13:10 joerg Exp $");
39 #include "ed.h"
42 /* read_file: read a named file/pipe into the buffer; return line count */
44 read_file(char *fn, long n)
50 	fp = (*fn == '!') ? popen(fn + 1, "r") : fopen(strip_escapes(fn), "r");
51 	if (fp == NULL) {
52 		fprintf(stderr, "%s: %s\n", fn, strerror(errno));
55 	} else if ((size = read_stream(fp, n)) < 0)
57 	 else if (((*fn == '!') ?  pclose(fp) : fclose(fp)) < 0) {
58 		fprintf(stderr, "%s: %s\n", fn, strerror(errno));
63 		fprintf(stderr, "%lu\n", size);
64 	return current_addr - n;
68 char *sbuf;			/* file i/o buffer */
69 int sbufsz;			/* file i/o buffer size */
72 /* read_stream: read a stream into the editor buffer; return status */
74 read_stream(FILE *fp, long n)
76 	line_t *lp = get_addressed_line_node(n);
77 	undo_t *up = NULL;
78 	unsigned long size = 0;
79 	int o_newline_added = newline_added;
80 	int o_isbinary = isbinary;
81 	int appended = (n == addr_last);
84 	isbinary = newline_added = 0;
87 	for (current_addr = n; (len = get_stream_line(fp)) > 0; size += len) {
89 		if (put_sbuf_line(sbuf) == NULL) {
93 		lp = lp->q_forw;
95 			up->t = lp;
96 		else if ((up = push_undo_stack(UADD, current_addr,
97 		    current_addr)) == NULL) {
103 	if (len < 0)
105 	if (appended && size && o_isbinary && o_newline_added)
106 		fputs("newline inserted\n", stderr);
107 	else if (newline_added && (!appended || (!isbinary && !o_isbinary)))
108 		fputs("newline appended\n", stderr);
109 	if (isbinary && newline_added && !appended)
110 	    	size += 1;
112 		newline_added = 1;
113 	newline_added = appended ? newline_added : o_newline_added;
114 	isbinary = isbinary | o_isbinary;
116 		size += 8 - size % 8;			/* adjust DES size */
121 /* get_stream_line: read a line of text from a stream; return line length */
125 	int c;
126 	int i = 0;
128 	while (((c = des ? get_des_char(fp) : getc(fp)) != EOF || (!feof(fp) &&
129 	    !ferror(fp))) && c != '\n') {
130 		REALLOC(sbuf, sbufsz, i + 1, ERR);
131 		if (!(sbuf[i++] = c))
132 			isbinary = 1;
134 	REALLOC(sbuf, sbufsz, i + 2, ERR);
135 	if (c == '\n')
136 		sbuf[i++] = c;
138 		fprintf(stderr, "%s\n", strerror(errno));
141 	} else if (i) {
142 		sbuf[i++] = '\n';
143 		newline_added = 1;
145 	sbuf[i] = '\0';
146 	return (isbinary && newline_added && i) ? --i : i;
150 /* write_file: write a range of lines to a named file/pipe; return line count */
152 write_file(const char *fn, const char *mode, long n, long m)
157 	fp = (*fn == '!') ? popen(fn+1, "w") : fopen(strip_escapes(fn), mode);
158 	if (fp == NULL) {
159 		fprintf(stderr, "%s: %s\n", fn, strerror(errno));
162 	} else if ((size = write_stream(fp, n, m)) < 0)
164 	 else if (((*fn == '!') ?  pclose(fp) : fclose(fp)) < 0) {
165 		fprintf(stderr, "%s: %s\n", fn, strerror(errno));
170 		fprintf(stderr, "%lu\n", size);
171 	return n ? m - n + 1 : 0;
175 /* write_stream: write a range of lines to a stream; return status */
177 write_stream(FILE *fp, long n, long m)
179 	line_t *lp = get_addressed_line_node(n);
180 	unsigned long size = 0;
181 	char *s;
186 	for (; n && n <= m; n++, lp = lp->q_forw) {
187 		if ((s = get_sbuf_line(lp)) == NULL)
189 		len = lp->len;
190 		if (n != addr_last || !isbinary || !newline_added)
191 			s[len++] = '\n';
192 		if (put_stream_line(fp, s, len) < 0)
194 		size += len;
198 		size += 8 - size % 8;			/* adjust DES size */
204 /* put_stream_line: write a line of text to a stream; return status */
206 put_stream_line(FILE *fp, char *s, int len)
208 	while (len--)
209 		if ((des ? put_des_char(*s++, fp) : fputc(*s++, fp)) < 0) {
210 			fprintf(stderr, "%s\n", strerror(errno));
214 	return 0;
217 /* get_extended_line: get a an extended line from stdin */
221 	static char *cvbuf = NULL;		/* buffer */
222 	static int cvbufsz = 0;			/* buffer size */
224 	int l, n;
225 	char *t = ibufp;
227 	while (*t++ != '\n')
229 	if ((l = t - ibufp) < 2 || !has_trailing_escape(ibufp, ibufp + l - 1)) {
230 		*sizep = l;
233 	*sizep = -1;
234 	REALLOC(cvbuf, cvbufsz, l, NULL);
235 	memcpy(cvbuf, ibufp, l);
236 	*(cvbuf + --l - 1) = '\n'; 	/* strip trailing esc */
237 	if (nonl) l--; 			/* strip newline */
239 		if ((n = get_tty_line()) < 0)
241 		else if (n == 0 || ibuf[n - 1] != '\n') {
242 			seterrmsg("unexpected end-of-file");
245 		REALLOC(cvbuf, cvbufsz, l + n, NULL);
246 		memcpy(cvbuf + l, ibuf, n);
247 		l += n;
248 		if (n < 2 || !has_trailing_escape(cvbuf, cvbuf + l - 1))
250 		*(cvbuf + --l - 1) = '\n'; 	/* strip trailing esc */
251 		if (nonl) l--; 			/* strip newline */
253 	REALLOC(cvbuf, cvbufsz, l + 1, NULL);
254 	cvbuf[l] = '\0';
255 	*sizep = l;
260 /* get_tty_line: read a line of text from stdin; return line length */
264 	int oi = 0;
265 	int i = 0;
266 	int c;
269 		switch (c = getchar()) {
270 		default:
271 			oi = 0;
272 			REALLOC(ibuf, ibufsz, i + 2, ERR);
273 			if (!(ibuf[i++] = c)) isbinary = 1;
274 			if (c != '\n')
276 			lineno++;
277 			ibuf[i] = '\0';
278 			ibufp = ibuf;
279 			return i;
280 		case EOF:
282 				fprintf(stderr, "stdin: %s\n", strerror(errno));
285 				ibufp = NULL;
289 				if (i != oi) {
290 					oi = i;
292 				} else if (i)
293 					ibuf[i] = '\0';
294 				ibufp = ibuf;
295 				return i;
302 #define ESCAPES "\a\b\f\n\r\t\v\\"
305 /* put_tty_line: print text to stdout */
307 put_tty_line(char *s, int l, long n, int gflag)
309 	int col = 0;
312 	int lc = 0;
315 	if (gflag & GNP) {
316 		printf("%ld\t", n);
317 		col = 8;
319 	for (; l--; s++) {
320 		if ((gflag & GLS) && ++col > cols) {
321 			fputs("\\\n", stdout);
322 			col = 1;
324 			if (!scripted && !isglobal && ++lc > rows) {
325 				lc = 0;
326 				fputs("Press <RETURN> to continue... ", stdout);
328 				if (get_tty_line() < 0)
333 		if (gflag & GLS) {
334 			if (31 < *s && *s < 127 && *s != '\\')
335 				putchar(*s);
338 				col++;
339 				if (*s && (cp = strchr(ESCAPES, *s)) != NULL)
340 					putchar(ESCCHARS[cp - ESCAPES]);
342 					putchar((((unsigned char) *s & 0300) >> 6) + '0');
343 					putchar((((unsigned char) *s & 070) >> 3) + '0');
344 					putchar(((unsigned char) *s & 07) + '0');
345 					col += 2;
350 			putchar(*s);
353 	if (gflag & GLS)
354 		putchar('$');
356 	putchar('\n');
357 	return 0;