/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include "a.h" /* * 18. Insertions from the standard input */voidr_rd(int argc, Rune **argv){	char buf[100];	char *s;	Rune *p;	Fmt fmt;	static int didstdin;	static Biobuf bstdin;		/*	 * print prompt, then read until double newline,	 * then run the text just read as though it were	 * a macro body, using the remaining arguments.	 */	if(fd2path(0, buf, sizeof buf) >= 0 && strstr(buf, "/dev/cons")){		if(argc > 1)			fprint(2, "%S", argv[1]);		else			fprint(2, "%c", 7/*BEL*/);	}		if(!didstdin){		Binit(&bstdin, 0, OREAD);		didstdin = 1;	}	runefmtstrinit(&fmt);	while((s = Brdstr(&bstdin, '\n', 0)) != nil){		if(s[0] == '\n'){			free(s);			break;		}		fmtprint(&fmt, "%s", s);		free(s);	}	p = runefmtstrflush(&fmt);	if(p == nil)		warn("out of memory in %Crd", dot);	ds(L(".rd"), p);	argc--;	argv++;	argv[0] = L(".rd");	runmacro('.', argc, argv);	ds(L(".rd"), nil);} /* terminate exactly as if input had ended */voidr_ex(int argc, Rune **argv){	USED(argc);	USED(argv);		while(popinput())		;} voidt18init(void){	addreq(L("rd"), r_rd, -1);	addreq(L("ex"), r_ex, 0);}