nvi/ex/ex_read.c

42 ex_read(SCR *sp, EXCMD *cmdp)
59 	gp = sp->gp;
78 			if (O_ISSET(sp, O_SECURE)) {
79 				ex_wemsg(sp, cmdp->cmd->name, EXM_SECURE_F);
91 	if (sp->ep == NULL) {
92 		if ((frp = file_add(sp, NULL)) == NULL)
94 		if (file_init(sp, frp, NULL, 0))
105 		if (argv_exp1(sp, cmdp, arg, arglen, 1))
108 			ex_emsg(sp, cmdp->cmd->usage, EXM_USAGE);
114 		exp = EXP(sp);
118 		    v_wstrdup(sp, cmdp->argv[argc]->bp,
120 			msgq(sp, M_SYSERR, NULL);
129 		if (F_ISSET(sp, SC_VI)) {
131 				(void)vs_update(sp, "!", cmdp->argv[argc]->bp);
134 				(void)ex_printf(sp,
137 				(void)ex_puts(sp, "!\n");
138 			(void)ex_fflush(sp);
146 		if (!F_ISSET(sp, SC_SCR_EXWROTE))
147 			F_SET(sp, SC_EX_WAIT_NO);
158 		if (F_ISSET(sp, SC_VI)) {
159 			if (gp->scr_screen(sp, SC_EX)) {
160 				ex_wemsg(sp, cmdp->cmd->name, EXM_NOCANON_F);
169 			F_SET(sp, SC_SCR_EX | SC_SCR_EXWROTE);
172 		if (ex_filter(sp, cmdp, &cmdp->addr1,
183 		sp->lno = rm.lno;
184 		if (F_ISSET(sp, SC_VI)) {
185 			sp->cno = 0;
186 			(void)nonblank(sp, sp->lno, &sp->cno);
190 		name = sp->frp->name;
193 		if (argv_exp2(sp, cmdp, arg, arglen))
210 			INT2CHAR(sp, cmdp->argv[1]->bp, cmdp->argv[1]->len + 1,
218 			if (F_ISSET(sp->frp, FR_TMPFILE) &&
219 			    !F_ISSET(sp->frp, FR_EXNAMED)) {
221 					free(sp->frp->name);
222 					sp->frp->name = p;
228 				F_CLR(sp->frp, FR_TMPEXIT | FR_TMPFILE);
229 				F_SET(sp->frp, FR_NAMECHANGE | FR_EXNAMED);
232 				(void)sp->gp->scr_rename(sp, sp->frp->name, 1);
233 				name = sp->frp->name;
235 				set_alt_name(sp, name);
236 				name = sp->alt_name;
240 			ex_wemsg(sp, cmdp->argv[0]->bp, EXM_FILECOUNT);
256 		msgq_str(sp, M_SYSERR, name, "%s");
261 		msgq(sp, M_ERR,
267 	if (file_lock(sp, NULL, fileno(fp), 0) == LOCK_UNAVAIL)
268 		msgq(sp, M_ERR, "146|%s: read lock was unavailable", name);
270 	rval = ex_readfp(sp, name, fp, &cmdp->addr1, &nlines, 0);
281 	if (F_ISSET(sp, SC_VI)) {
282 		sp->lno = cmdp->addr1.lno;
284 			++sp->lno;
286 		sp->lno = cmdp->addr1.lno + nlines;
297 ex_readfp(SCR *sp, char *name, FILE *fp, MARK *fm, recno_t *nlinesp, int silent)
309 	gp = sp->gp;
310 	exp = EXP(sp);
319 	for (lno = fm->lno; !ex_getline(sp, fp, &len); ++lno, ++lcnt) {
321 			if (INTERRUPTED(sp))
324 				gp->scr_busy(sp, p,
329 		FILE2INT5(sp, exp->ibcw, exp->ibp, len, wp, wlen);
330 		if (db_append(sp, 1, lno, wp, wlen))
343 		p = msg_print(sp, name, &nf);
344 		msgq(sp, M_INFO,
348 			FREE_SPACE(sp, p, 0);
353 err:		msgq_str(sp, M_SYSERR, name, "%s");
359 		gp->scr_busy(sp, NULL, BUSY_OFF);