2 /*-
32 long
33 read_file(char *fn, long n)  in read_file()
36 	long size;  in read_file()
57 	return current_addr - n;  in read_file()
65 long
66 read_stream(FILE *fp, long n)  in read_stream()
70 	unsigned long size = 0;  in read_stream()
83 		lp = lp->q_forw;  in read_stream()
85 			up->t = lp;  in read_stream()
134 	return (isbinary && newline_added && i) ? --i : i;  in get_stream_line()
139 long
140 write_file(char *fn, const char *mode, long n, long m)  in write_file()  argument
143 	long size;  in write_file()
146 	fp = (*fn == '!') ? popen(fn+1, "w") : fopen(strip_escapes(fn), mode);  in write_file()
164 	return n ? m - n + 1 : 0;  in write_file()
169 long
170 write_stream(FILE *fp, long n, long m)  in write_stream()
173 	unsigned long size = 0;  in write_stream()
177 	for (; n && n <= m; n++, lp = lp->q_forw) {  in write_stream()
180 		len = lp->len;  in write_stream()
195 	while (len--)  in put_stream_line()
216 	if ((l = t - ibufp) < 2 || !has_trailing_escape(ibufp, ibufp + l - 1)) {  in get_extended_line()
220 	*sizep = -1;  in get_extended_line()
223 	*(cvbuf + --l - 1) = '\n'; 	/* strip trailing esc */  in get_extended_line()
224 	if (nonl) l--; 			/* strip newline */  in get_extended_line()
228 		else if (n == 0 || ibuf[n - 1] != '\n') {  in get_extended_line()
229 			errmsg = "unexpected end-of-file";  in get_extended_line()
235 		if (n < 2 || !has_trailing_escape(cvbuf, cvbuf + l - 1))  in get_extended_line()
237 		*(cvbuf + --l - 1) = '\n'; 	/* strip trailing esc */  in get_extended_line()
238 		if (nonl) l--; 			/* strip newline */  in get_extended_line()
294 put_tty_line(const char *s, int l, long n, int gflag)  in put_tty_line()
304 	for (; l--; s++) {  in put_tty_line()
311 				fputs("Press <RETURN> to continue... ", stdout);  in put_tty_line()
325 					putchar(ESCCHARS[cp - ESCAPES]);  in put_tty_line()