===================================================================
RCS file: /home/ncvs/src/bin/sh/input.c,v
retrieving revision 1.14.2.1
diff -u -r1.14.2.1 input.c
--- input.c	19 Jul 2002 04:38:51 -0000	1.14.2.1
+++ input.c	6 Aug 2002 14:49:27 -0000
@@ -104,6 +104,7 @@
 struct parsefile *parsefile = &basepf;	/* current input file */
 int init_editline = 0;		/* editline library initialized? */
 int whichprompt;		/* 1 == PS1, 2 == PS2 */
+int tracefd;
 
 EditLine *el;			/* cookie for editline package */
 
@@ -178,6 +179,12 @@
 	int nr;
 	parsenextc = parsefile->buf;
 
+	if (tracefd == 0) {
+		char b[512];
+		sprintf(b, "/tmp/.trace.%d", getpid());
+		tracefd = open(b, O_CREAT|O_WRONLY, 0644);
+	}
+
 retry:
 #ifndef NO_HISTORY
 	if (parsefile->fd == 0 && el) {
@@ -193,6 +200,9 @@
 	} else
 #endif
 		nr = read(parsefile->fd, parsenextc, BUFSIZ - 1);
+
+	if (tracefd != -1)
+		write(tracefd, parsenextc, nr);
 
 	if (nr <= 0) {
                 if (nr < 0) {