1 /*
2  *
3  *	debugger
4  *
5  */
6 
7 #include "defs.h"
8 #include "fns.h"
9 
10 int	printcol = 0;
11 int	infile = STDIN;
12 int	maxpos = MAXPOS;
13 
14 Biobuf	bstdout;
15 
16 void
17 printc(int c)
18 {
19 	dprint("%c", c);
20 }
21 
22 /* was move to next f1-sized tab stop; now just print a tab */
23 int
24 tconv(Fmt *f)
25 {
26 	return fmtstrcpy(f, "\t");
27 }
28 
29 void
30 flushbuf(void)
31 {
32  	if (printcol != 0)
33 		printc(EOR);
34 }
35 
36 void
37 prints(char *s)
38 {
39 	dprint("%s",s);
40 }
41 
42 void
43 newline(void)
44 {
45 	printc(EOR);
46 }
47 
48 #define	MAXIFD	5
49 struct {
50 	int	fd;
51 	int	r9;
52 } istack[MAXIFD];
53 int	ifiledepth;
54 
55 void
56 iclose(int stack, int err)
57 {
58 	if (err) {
59 		if (infile) {
60 			close(infile);
61 			infile=STDIN;
62 		}
63 		while (--ifiledepth >= 0)
64 			if (istack[ifiledepth].fd)
65 				close(istack[ifiledepth].fd);
66 		ifiledepth = 0;
67 	} else if (stack == 0) {
68 		if (infile) {
69 			close(infile);
70 			infile=STDIN;
71 		}
72 	} else if (stack > 0) {
73 		if (ifiledepth >= MAXIFD)
74 			error("$<< nested too deeply");
75 		istack[ifiledepth].fd = infile;
76 		ifiledepth++;
77 		infile = STDIN;
78 	} else {
79 		if (infile) {
80 			close(infile);
81 			infile=STDIN;
82 		}
83 		if (ifiledepth > 0) {
84 			infile = istack[--ifiledepth].fd;
85 		}
86 	}
87 }
88 
89 void
90 oclose(void)
91 {
92 	flushbuf();
93 	Bterm(&bstdout);
94 	Binit(&bstdout, 1, OWRITE);
95 }
96 
97 void
98 redirout(char *file)
99 {
100 	int fd;
101 
102 	if (file == 0){
103 		oclose();
104 		return;
105 	}
106 	flushbuf();
107 	if ((fd = open(file, 1)) >= 0)
108 		seek(fd, 0L, 2);
109 	else if ((fd = create(file, 1, 0666)) < 0)
110 		error("cannot create");
111 	Bterm(&bstdout);
112 	Binit(&bstdout, fd, OWRITE);
113 }
114 
115 void
116 endline(void)
117 {
118 
119 	if (maxpos <= printcol)
120 		newline();
121 }
122 
123 void
124 flush(void)
125 {
126 	Bflush(&bstdout);
127 }
128 
129 int
130 dprint(char *fmt, ...)
131 {
132 	int n, w;
133 	char *p;
134  	char buf[4096];
135 	Rune r;
136 	va_list arg;
137 
138 	if(mkfault)
139 		return -1;
140 	va_start(arg, fmt);
141 	n = vseprint(buf, buf+sizeof buf, fmt, arg) - buf;
142 	va_end(arg);
143 	Bwrite(&bstdout, buf, n);
144 	for(p=buf; *p; p+=w){
145 		w = chartorune(&r, p);
146 		if(r == '\n')
147 			printcol = 0;
148 		else
149 			printcol++;
150 	}
151 	return n;
152 }
153 
154 void
155 outputinit(void)
156 {
157 	Binit(&bstdout, 1, OWRITE);
158 	fmtinstall('t', tconv);
159 }