1 84b1cb73 2003-09-30 devnull #include <u.h>
2 84b1cb73 2003-09-30 devnull #include <libc.h>
3 84b1cb73 2003-09-30 devnull #include <draw.h>
4 84b1cb73 2003-09-30 devnull #include <thread.h>
5 84b1cb73 2003-09-30 devnull #include <mouse.h>
6 84b1cb73 2003-09-30 devnull #include <cursor.h>
7 84b1cb73 2003-09-30 devnull #include <keyboard.h>
8 84b1cb73 2003-09-30 devnull #include <frame.h>
9 84b1cb73 2003-09-30 devnull #include <plumb.h>
10 84b1cb73 2003-09-30 devnull #include "flayer.h"
11 84b1cb73 2003-09-30 devnull #include "samterm.h"
13 84b1cb73 2003-09-30 devnull #define HSIZE 3 /* Type + short count */
14 84b1cb73 2003-09-30 devnull Header h;
15 84b1cb73 2003-09-30 devnull uchar indata[DATASIZE+1]; /* room for NUL */
16 84b1cb73 2003-09-30 devnull uchar outdata[DATASIZE];
17 84b1cb73 2003-09-30 devnull short outcount;
18 84b1cb73 2003-09-30 devnull int hversion;
19 941c9f36 2003-10-11 devnull int hostfd[2];
21 84b1cb73 2003-09-30 devnull void inmesg(Hmesg, int);
22 84b1cb73 2003-09-30 devnull int inshort(int);
23 84b1cb73 2003-09-30 devnull long inlong(int);
24 84b1cb73 2003-09-30 devnull long invlong(int);
25 84b1cb73 2003-09-30 devnull void hsetdot(int, long, long);
26 84b1cb73 2003-09-30 devnull void hmoveto(int, long);
27 84b1cb73 2003-09-30 devnull void hsetsnarf(int);
28 84b1cb73 2003-09-30 devnull /* void hplumb(int); */
29 84b1cb73 2003-09-30 devnull void clrlock(void);
30 84b1cb73 2003-09-30 devnull int snarfswap(char*, int, char**);
33 84b1cb73 2003-09-30 devnull rcv(void)
36 84b1cb73 2003-09-30 devnull static int state = 0;
37 84b1cb73 2003-09-30 devnull static int count = 0;
38 84b1cb73 2003-09-30 devnull static int i = 0;
39 84b1cb73 2003-09-30 devnull static int errs = 0;
41 84b1cb73 2003-09-30 devnull while((c=rcvchar()) != -1)
42 84b1cb73 2003-09-30 devnull switch(state){
44 84b1cb73 2003-09-30 devnull h.type = c;
49 84b1cb73 2003-09-30 devnull h.count0 = c;
54 84b1cb73 2003-09-30 devnull h.count1 = c;
55 84b1cb73 2003-09-30 devnull count = h.count0|(h.count1<<8);
57 84b1cb73 2003-09-30 devnull if(count > DATASIZE){
58 84b1cb73 2003-09-30 devnull if(++errs < 5){
59 84b1cb73 2003-09-30 devnull dumperrmsg(count, h.type, h.count0, c);
60 84b1cb73 2003-09-30 devnull state = 0;
61 84b1cb73 2003-09-30 devnull continue;
63 84b1cb73 2003-09-30 devnull fprint(2, "type %d count %d\n", h.type, count);
64 84b1cb73 2003-09-30 devnull panic("count>DATASIZE");
66 84b1cb73 2003-09-30 devnull if(count == 0)
67 84b1cb73 2003-09-30 devnull goto zerocount;
72 84b1cb73 2003-09-30 devnull indata[i++] = c;
73 84b1cb73 2003-09-30 devnull if(i == count){
74 84b1cb73 2003-09-30 devnull zerocount:
75 84b1cb73 2003-09-30 devnull indata[i] = 0;
76 84b1cb73 2003-09-30 devnull inmesg(h.type, count);
77 84b1cb73 2003-09-30 devnull state = count = 0;
78 84b1cb73 2003-09-30 devnull continue;
85 84b1cb73 2003-09-30 devnull whichtext(int tg)
89 84b1cb73 2003-09-30 devnull for(i=0; i<nname; i++)
90 84b1cb73 2003-09-30 devnull if(tag[i] == tg)
91 84b1cb73 2003-09-30 devnull return text[i];
92 84b1cb73 2003-09-30 devnull panic("whichtext");
93 84b1cb73 2003-09-30 devnull return 0;
97 84b1cb73 2003-09-30 devnull inmesg(Hmesg type, int count)
100 84b1cb73 2003-09-30 devnull int i, m;
102 84b1cb73 2003-09-30 devnull Flayer *lp;
104 84b1cb73 2003-09-30 devnull m = inshort(0);
105 84b1cb73 2003-09-30 devnull l = inlong(2);
106 84b1cb73 2003-09-30 devnull switch(type){
107 84b1cb73 2003-09-30 devnull case -1:
108 84b1cb73 2003-09-30 devnull panic("rcv error");
109 84b1cb73 2003-09-30 devnull default:
110 84b1cb73 2003-09-30 devnull fprint(2, "type %d\n", type);
111 84b1cb73 2003-09-30 devnull panic("rcv unknown");
113 84b1cb73 2003-09-30 devnull case Hversion:
114 84b1cb73 2003-09-30 devnull hversion = m;
117 84b1cb73 2003-09-30 devnull case Hbindname:
118 84b1cb73 2003-09-30 devnull l = invlong(2); /* for 64-bit pointers */
119 84b1cb73 2003-09-30 devnull if((i=whichmenu(m)) < 0)
121 84b1cb73 2003-09-30 devnull /* in case of a race, a bindname may already have occurred */
122 84b1cb73 2003-09-30 devnull if((t=whichtext(m)) == 0)
123 84b1cb73 2003-09-30 devnull t=(Text *)l;
124 84b1cb73 2003-09-30 devnull else /* let the old one win; clean up the new one */
125 84b1cb73 2003-09-30 devnull while(((Text *)l)->nwin>0)
126 84b1cb73 2003-09-30 devnull closeup(&((Text *)l)->l[((Text *)l)->front]);
127 84b1cb73 2003-09-30 devnull text[i] = t;
128 84b1cb73 2003-09-30 devnull text[i]->tag = m;
131 84b1cb73 2003-09-30 devnull case Hcurrent:
132 84b1cb73 2003-09-30 devnull if(whichmenu(m)<0)
134 84b1cb73 2003-09-30 devnull t = whichtext(m);
135 84b1cb73 2003-09-30 devnull i = which && ((Text *)which->user1)==&cmd && m!=cmd.tag;
136 84b1cb73 2003-09-30 devnull if(t==0 && (t = sweeptext(0, m))==0)
138 84b1cb73 2003-09-30 devnull if(t->l[t->front].textfn==0)
139 84b1cb73 2003-09-30 devnull panic("Hcurrent");
140 84b1cb73 2003-09-30 devnull lp = &t->l[t->front];
142 84b1cb73 2003-09-30 devnull flupfront(lp);
143 84b1cb73 2003-09-30 devnull flborder(lp, 0);
144 84b1cb73 2003-09-30 devnull work = lp;
146 84b1cb73 2003-09-30 devnull current(lp);
149 84b1cb73 2003-09-30 devnull case Hmovname:
150 84b1cb73 2003-09-30 devnull if((m=whichmenu(m)) < 0)
152 84b1cb73 2003-09-30 devnull t = text[m];
153 84b1cb73 2003-09-30 devnull l = tag[m];
154 84b1cb73 2003-09-30 devnull i = name[m][0];
155 84b1cb73 2003-09-30 devnull text[m] = 0; /* suppress panic in menudel */
156 84b1cb73 2003-09-30 devnull menudel(m);
157 84b1cb73 2003-09-30 devnull if(t == &cmd)
160 84b1cb73 2003-09-30 devnull if (nname>0 && text[0]==&cmd)
162 84b1cb73 2003-09-30 devnull else m = 0;
163 84b1cb73 2003-09-30 devnull for(; m<nname; m++)
164 84b1cb73 2003-09-30 devnull if(strcmp((char*)indata+2, (char*)name[m]+1)<0)
167 84b1cb73 2003-09-30 devnull menuins(m, indata+2, t, i, (int)l);
170 84b1cb73 2003-09-30 devnull case Hgrow:
171 84b1cb73 2003-09-30 devnull if(whichmenu(m) >= 0)
172 84b1cb73 2003-09-30 devnull hgrow(m, l, inlong(6), 1);
175 84b1cb73 2003-09-30 devnull case Hnewname:
176 84b1cb73 2003-09-30 devnull menuins(0, (uchar *)"", (Text *)0, ' ', m);
179 84b1cb73 2003-09-30 devnull case Hcheck0:
180 84b1cb73 2003-09-30 devnull i = whichmenu(m);
181 84b1cb73 2003-09-30 devnull if(i>=0) {
182 84b1cb73 2003-09-30 devnull t = text[i];
184 84b1cb73 2003-09-30 devnull t->lock++;
185 84b1cb73 2003-09-30 devnull outTs(Tcheck, m);
189 84b1cb73 2003-09-30 devnull case Hcheck:
190 84b1cb73 2003-09-30 devnull i = whichmenu(m);
191 84b1cb73 2003-09-30 devnull if(i>=0) {
192 84b1cb73 2003-09-30 devnull t = text[i];
193 84b1cb73 2003-09-30 devnull if(t && t->lock)
194 84b1cb73 2003-09-30 devnull t->lock--;
195 84b1cb73 2003-09-30 devnull hcheck(m);
199 84b1cb73 2003-09-30 devnull case Hunlock:
200 84b1cb73 2003-09-30 devnull clrlock();
203 84b1cb73 2003-09-30 devnull case Hdata:
204 84b1cb73 2003-09-30 devnull if(whichmenu(m) >= 0)
205 84b1cb73 2003-09-30 devnull l += hdata(m, l, indata+6, count-6);
206 84b1cb73 2003-09-30 devnull Checkscroll:
207 84b1cb73 2003-09-30 devnull if(m == cmd.tag){
208 84b1cb73 2003-09-30 devnull for(i=0; i<NL; i++){
209 84b1cb73 2003-09-30 devnull lp = &cmd.l[i];
210 84b1cb73 2003-09-30 devnull if(lp->textfn)
211 84b1cb73 2003-09-30 devnull center(lp, l>=0? l : lp->p1);
216 84b1cb73 2003-09-30 devnull case Horigin:
217 84b1cb73 2003-09-30 devnull if(whichmenu(m) >= 0)
218 84b1cb73 2003-09-30 devnull horigin(m, l);
221 84b1cb73 2003-09-30 devnull case Hunlockfile:
222 84b1cb73 2003-09-30 devnull if(whichmenu(m)>=0 && (t = whichtext(m))->lock){
223 84b1cb73 2003-09-30 devnull --t->lock;
225 84b1cb73 2003-09-30 devnull goto Checkscroll;
229 84b1cb73 2003-09-30 devnull case Hsetdot:
230 84b1cb73 2003-09-30 devnull if(whichmenu(m) >= 0)
231 84b1cb73 2003-09-30 devnull hsetdot(m, l, inlong(6));
234 84b1cb73 2003-09-30 devnull case Hgrowdata:
235 84b1cb73 2003-09-30 devnull if(whichmenu(m)<0)
237 84b1cb73 2003-09-30 devnull hgrow(m, l, inlong(6), 0);
238 84b1cb73 2003-09-30 devnull whichtext(m)->lock++; /* fake the request */
239 84b1cb73 2003-09-30 devnull l += hdata(m, l, indata+10, count-10);
240 84b1cb73 2003-09-30 devnull goto Checkscroll;
242 84b1cb73 2003-09-30 devnull case Hmoveto:
243 84b1cb73 2003-09-30 devnull if(whichmenu(m)>=0)
244 84b1cb73 2003-09-30 devnull hmoveto(m, l);
247 84b1cb73 2003-09-30 devnull case Hclean:
248 84b1cb73 2003-09-30 devnull if((m = whichmenu(m)) >= 0)
249 84b1cb73 2003-09-30 devnull name[m][0] = ' ';
252 84b1cb73 2003-09-30 devnull case Hdirty:
253 84b1cb73 2003-09-30 devnull if((m = whichmenu(m))>=0)
254 84b1cb73 2003-09-30 devnull name[m][0] = '\'';
257 84b1cb73 2003-09-30 devnull case Hdelname:
258 84b1cb73 2003-09-30 devnull if((m=whichmenu(m)) >= 0)
259 84b1cb73 2003-09-30 devnull menudel(m);
262 84b1cb73 2003-09-30 devnull case Hcut:
263 84b1cb73 2003-09-30 devnull if(whichmenu(m) >= 0)
264 84b1cb73 2003-09-30 devnull hcut(m, l, inlong(6));
267 84b1cb73 2003-09-30 devnull case Hclose:
268 84b1cb73 2003-09-30 devnull if(whichmenu(m)<0 || (t = whichtext(m))==0)
270 84b1cb73 2003-09-30 devnull l = t->nwin;
271 84b1cb73 2003-09-30 devnull for(i = 0,lp = t->l; l>0 && i<NL; i++,lp++)
272 84b1cb73 2003-09-30 devnull if(lp->textfn){
273 84b1cb73 2003-09-30 devnull closeup(lp);
278 84b1cb73 2003-09-30 devnull case Hsetpat:
279 84b1cb73 2003-09-30 devnull setpat((char *)indata);
282 84b1cb73 2003-09-30 devnull case Hsetsnarf:
283 84b1cb73 2003-09-30 devnull hsetsnarf(m);
286 84b1cb73 2003-09-30 devnull case Hsnarflen:
287 84b1cb73 2003-09-30 devnull snarflen = inlong(0);
290 84b1cb73 2003-09-30 devnull case Hack:
291 84b1cb73 2003-09-30 devnull outT0(Tack);
294 84b1cb73 2003-09-30 devnull case Hexit:
295 84b1cb73 2003-09-30 devnull outT0(Texit);
296 84b1cb73 2003-09-30 devnull threadexitsall(nil);
300 84b1cb73 2003-09-30 devnull case Hplumb:
301 84b1cb73 2003-09-30 devnull hplumb(m);
308 84b1cb73 2003-09-30 devnull setlock(void)
310 84b1cb73 2003-09-30 devnull hostlock++;
311 84b1cb73 2003-09-30 devnull setcursor(mousectl, cursor = &lockarrow);
315 84b1cb73 2003-09-30 devnull clrlock(void)
317 84b1cb73 2003-09-30 devnull hasunlocked = 1;
318 84b1cb73 2003-09-30 devnull if(hostlock > 0)
319 84b1cb73 2003-09-30 devnull hostlock--;
320 84b1cb73 2003-09-30 devnull if(hostlock == 0)
321 84b1cb73 2003-09-30 devnull setcursor(mousectl, cursor=(Cursor *)0);
325 84b1cb73 2003-09-30 devnull startfile(Text *t)
327 84b1cb73 2003-09-30 devnull outTsv(Tstartfile, t->tag, t); /* for 64-bit pointers */
328 84b1cb73 2003-09-30 devnull setlock();
332 84b1cb73 2003-09-30 devnull startnewfile(int type, Text *t)
334 84b1cb73 2003-09-30 devnull t->tag = Untagged;
335 84b1cb73 2003-09-30 devnull outTv(type, t); /* for 64-bit pointers */
339 84b1cb73 2003-09-30 devnull inshort(int n)
341 84b1cb73 2003-09-30 devnull return indata[n]|(indata[n+1]<<8);
345 84b1cb73 2003-09-30 devnull inlong(int n)
347 84b1cb73 2003-09-30 devnull return indata[n]|(indata[n+1]<<8)|
348 84b1cb73 2003-09-30 devnull ((long)indata[n+2]<<16)|((long)indata[n+3]<<24);
352 84b1cb73 2003-09-30 devnull invlong(int n)
356 84b1cb73 2003-09-30 devnull l = (indata[n+7]<<24) | (indata[n+6]<<16) | (indata[n+5]<<8) | indata[n+4];
357 84b1cb73 2003-09-30 devnull l = (l<<16) | (indata[n+3]<<8) | indata[n+2];
358 84b1cb73 2003-09-30 devnull l = (l<<16) | (indata[n+1]<<8) | indata[n];
359 84b1cb73 2003-09-30 devnull return l;
363 84b1cb73 2003-09-30 devnull outT0(Tmesg type)
365 84b1cb73 2003-09-30 devnull outstart(type);
366 84b1cb73 2003-09-30 devnull outsend();
370 84b1cb73 2003-09-30 devnull outTl(Tmesg type, long l)
372 84b1cb73 2003-09-30 devnull outstart(type);
373 84b1cb73 2003-09-30 devnull outlong(l);
374 84b1cb73 2003-09-30 devnull outsend();
378 84b1cb73 2003-09-30 devnull outTs(Tmesg type, int s)
380 84b1cb73 2003-09-30 devnull outstart(type);
381 84b1cb73 2003-09-30 devnull outshort(s);
382 84b1cb73 2003-09-30 devnull outsend();
386 84b1cb73 2003-09-30 devnull outTss(Tmesg type, int s1, int s2)
388 84b1cb73 2003-09-30 devnull outstart(type);
389 84b1cb73 2003-09-30 devnull outshort(s1);
390 84b1cb73 2003-09-30 devnull outshort(s2);
391 84b1cb73 2003-09-30 devnull outsend();
395 84b1cb73 2003-09-30 devnull outTsll(Tmesg type, int s1, long l1, long l2)
397 84b1cb73 2003-09-30 devnull outstart(type);
398 84b1cb73 2003-09-30 devnull outshort(s1);
399 84b1cb73 2003-09-30 devnull outlong(l1);
400 84b1cb73 2003-09-30 devnull outlong(l2);
401 84b1cb73 2003-09-30 devnull outsend();
405 84b1cb73 2003-09-30 devnull outTsl(Tmesg type, int s1, long l1)
407 84b1cb73 2003-09-30 devnull outstart(type);
408 84b1cb73 2003-09-30 devnull outshort(s1);
409 84b1cb73 2003-09-30 devnull outlong(l1);
410 84b1cb73 2003-09-30 devnull outsend();
414 84b1cb73 2003-09-30 devnull outTsv(Tmesg type, int s1, void *l1)
416 84b1cb73 2003-09-30 devnull outstart(type);
417 84b1cb73 2003-09-30 devnull outshort(s1);
418 84b1cb73 2003-09-30 devnull outvlong(l1);
419 84b1cb73 2003-09-30 devnull outsend();
423 84b1cb73 2003-09-30 devnull outTv(Tmesg type, void *l1)
425 84b1cb73 2003-09-30 devnull outstart(type);
426 84b1cb73 2003-09-30 devnull outvlong(l1);
427 84b1cb73 2003-09-30 devnull outsend();
431 84b1cb73 2003-09-30 devnull outTslS(Tmesg type, int s1, long l1, Rune *s)
433 84b1cb73 2003-09-30 devnull char buf[DATASIZE*3+1];
434 84b1cb73 2003-09-30 devnull char *c;
436 84b1cb73 2003-09-30 devnull outstart(type);
437 84b1cb73 2003-09-30 devnull outshort(s1);
438 84b1cb73 2003-09-30 devnull outlong(l1);
439 84b1cb73 2003-09-30 devnull c = buf;
440 84b1cb73 2003-09-30 devnull while(*s)
441 84b1cb73 2003-09-30 devnull c += runetochar(c, s++);
442 84b1cb73 2003-09-30 devnull *c++ = 0;
443 84b1cb73 2003-09-30 devnull outcopy(c-buf, (uchar *)buf);
444 84b1cb73 2003-09-30 devnull outsend();
448 84b1cb73 2003-09-30 devnull outTsls(Tmesg type, int s1, long l1, int s2)
450 84b1cb73 2003-09-30 devnull outstart(type);
451 84b1cb73 2003-09-30 devnull outshort(s1);
452 84b1cb73 2003-09-30 devnull outlong(l1);
453 84b1cb73 2003-09-30 devnull outshort(s2);
454 84b1cb73 2003-09-30 devnull outsend();
458 84b1cb73 2003-09-30 devnull outstart(Tmesg type)
460 84b1cb73 2003-09-30 devnull outdata[0] = type;
461 84b1cb73 2003-09-30 devnull outcount = 0;
465 84b1cb73 2003-09-30 devnull outcopy(int count, uchar *data)
467 84b1cb73 2003-09-30 devnull while(count--)
468 84b1cb73 2003-09-30 devnull outdata[HSIZE+outcount++] = *data++;
472 84b1cb73 2003-09-30 devnull outshort(int s)
474 84b1cb73 2003-09-30 devnull uchar buf[2];
476 84b1cb73 2003-09-30 devnull buf[0]=s;
477 84b1cb73 2003-09-30 devnull buf[1]=s>>8;
478 84b1cb73 2003-09-30 devnull outcopy(2, buf);
482 84b1cb73 2003-09-30 devnull outlong(long l)
484 84b1cb73 2003-09-30 devnull uchar buf[4];
486 84b1cb73 2003-09-30 devnull buf[0]=l;
487 84b1cb73 2003-09-30 devnull buf[1]=l>>8;
488 84b1cb73 2003-09-30 devnull buf[2]=l>>16;
489 84b1cb73 2003-09-30 devnull buf[3]=l>>24;
490 84b1cb73 2003-09-30 devnull outcopy(4, buf);
494 84b1cb73 2003-09-30 devnull outvlong(void *v)
497 84b1cb73 2003-09-30 devnull ulong l;
498 84b1cb73 2003-09-30 devnull uchar buf[8];
500 84b1cb73 2003-09-30 devnull l = (ulong) v;
501 84b1cb73 2003-09-30 devnull for(i = 0; i < sizeof(buf); i++, l >>= 8)
502 84b1cb73 2003-09-30 devnull buf[i] = l;
504 84b1cb73 2003-09-30 devnull outcopy(8, buf);
508 84b1cb73 2003-09-30 devnull outsend(void)
510 84b1cb73 2003-09-30 devnull if(outcount>DATASIZE-HSIZE)
511 84b1cb73 2003-09-30 devnull panic("outcount>sizeof outdata");
512 84b1cb73 2003-09-30 devnull outdata[1]=outcount;
513 84b1cb73 2003-09-30 devnull outdata[2]=outcount>>8;
514 941c9f36 2003-10-11 devnull if(write(hostfd[1], (char *)outdata, outcount+HSIZE)!=outcount+HSIZE)
515 84b1cb73 2003-09-30 devnull panic("write error");
520 84b1cb73 2003-09-30 devnull hsetdot(int m, long p0, long p1)
522 84b1cb73 2003-09-30 devnull Text *t = whichtext(m);
523 84b1cb73 2003-09-30 devnull Flayer *l = &t->l[t->front];
525 84b1cb73 2003-09-30 devnull flushtyping(1);
526 84b1cb73 2003-09-30 devnull flsetselect(l, p0, p1);
530 84b1cb73 2003-09-30 devnull horigin(int m, long p0)
532 84b1cb73 2003-09-30 devnull Text *t = whichtext(m);
533 84b1cb73 2003-09-30 devnull Flayer *l = &t->l[t->front];
535 84b1cb73 2003-09-30 devnull ulong n;
536 84b1cb73 2003-09-30 devnull Rune *r;
538 84b1cb73 2003-09-30 devnull if(!flprepare(l)){
539 84b1cb73 2003-09-30 devnull l->origin = p0;
542 84b1cb73 2003-09-30 devnull a = p0-l->origin;
543 84b1cb73 2003-09-30 devnull if(a>=0 && a<l->f.nchars)
544 84b1cb73 2003-09-30 devnull frdelete(&l->f, 0, a);
545 84b1cb73 2003-09-30 devnull else if(a<0 && -a<l->f.nchars){
546 84b1cb73 2003-09-30 devnull r = rload(&t->rasp, p0, l->origin, &n);
547 84b1cb73 2003-09-30 devnull frinsert(&l->f, r, r+n, 0);
549 84b1cb73 2003-09-30 devnull frdelete(&l->f, 0, l->f.nchars);
550 84b1cb73 2003-09-30 devnull l->origin = p0;
551 84b1cb73 2003-09-30 devnull scrdraw(l, t->rasp.nrunes);
552 84b1cb73 2003-09-30 devnull if(l->visible==Some)
553 84b1cb73 2003-09-30 devnull flrefresh(l, l->entire, 0);
554 84b1cb73 2003-09-30 devnull hcheck(m);
558 84b1cb73 2003-09-30 devnull hmoveto(int m, long p0)
560 84b1cb73 2003-09-30 devnull Text *t = whichtext(m);
561 84b1cb73 2003-09-30 devnull Flayer *l = &t->l[t->front];
563 84b1cb73 2003-09-30 devnull if(p0<l->origin || p0-l->origin>l->f.nchars*9/10)
564 84b1cb73 2003-09-30 devnull outTsll(Torigin, m, p0, 2L);
568 84b1cb73 2003-09-30 devnull hcheck(int m)
570 84b1cb73 2003-09-30 devnull Flayer *l;
571 84b1cb73 2003-09-30 devnull Text *t;
572 84b1cb73 2003-09-30 devnull int reqd = 0, i;
573 84b1cb73 2003-09-30 devnull long n, nl, a;
574 84b1cb73 2003-09-30 devnull Rune *r;
576 84b1cb73 2003-09-30 devnull if(m == Untagged)
578 84b1cb73 2003-09-30 devnull t = whichtext(m);
579 84b1cb73 2003-09-30 devnull if(t == 0) /* possible in a half-built window */
581 84b1cb73 2003-09-30 devnull for(l = &t->l[0], i = 0; i<NL; i++, l++){
582 84b1cb73 2003-09-30 devnull if(l->textfn==0 || !flprepare(l)) /* BUG: don't
583 84b1cb73 2003-09-30 devnull need this if BUG below
584 84b1cb73 2003-09-30 devnull is fixed */
585 84b1cb73 2003-09-30 devnull continue;
586 84b1cb73 2003-09-30 devnull a = t->l[i].origin;
587 84b1cb73 2003-09-30 devnull n = rcontig(&t->rasp, a, a+l->f.nchars, 1);
588 84b1cb73 2003-09-30 devnull if(n<l->f.nchars) /* text missing in middle of screen */
590 84b1cb73 2003-09-30 devnull else{ /* text missing at end of screen? */
592 84b1cb73 2003-09-30 devnull if(l->f.lastlinefull)
593 84b1cb73 2003-09-30 devnull goto Checksel; /* all's well */
594 84b1cb73 2003-09-30 devnull a = t->l[i].origin+l->f.nchars;
595 84b1cb73 2003-09-30 devnull n = t->rasp.nrunes-a;
596 84b1cb73 2003-09-30 devnull if(n==0)
597 84b1cb73 2003-09-30 devnull goto Checksel;
598 84b1cb73 2003-09-30 devnull if(n>TBLOCKSIZE)
599 84b1cb73 2003-09-30 devnull n = TBLOCKSIZE;
600 84b1cb73 2003-09-30 devnull n = rcontig(&t->rasp, a, a+n, 1);
601 84b1cb73 2003-09-30 devnull if(n>0){
602 84b1cb73 2003-09-30 devnull rload(&t->rasp, a, a+n, 0);
603 84b1cb73 2003-09-30 devnull nl = l->f.nchars;
604 84b1cb73 2003-09-30 devnull r = scratch;
605 84b1cb73 2003-09-30 devnull flinsert(l, r, r+n, l->origin+nl);
606 84b1cb73 2003-09-30 devnull if(nl == l->f.nchars) /* made no progress */
607 84b1cb73 2003-09-30 devnull goto Checksel;
608 84b1cb73 2003-09-30 devnull goto Again;
611 84b1cb73 2003-09-30 devnull if(!reqd){
612 84b1cb73 2003-09-30 devnull n = rcontig(&t->rasp, a, a+TBLOCKSIZE, 0);
613 84b1cb73 2003-09-30 devnull if(n <= 0)
614 84b1cb73 2003-09-30 devnull panic("hcheck request==0");
615 84b1cb73 2003-09-30 devnull outTsls(Trequest, m, a, (int)n);
616 84b1cb73 2003-09-30 devnull outTs(Tcheck, m);
617 84b1cb73 2003-09-30 devnull t->lock++; /* for the Trequest */
618 84b1cb73 2003-09-30 devnull t->lock++; /* for the Tcheck */
621 84b1cb73 2003-09-30 devnull Checksel:
622 84b1cb73 2003-09-30 devnull flsetselect(l, l->p0, l->p1);
627 84b1cb73 2003-09-30 devnull flnewlyvisible(Flayer *l)
629 84b1cb73 2003-09-30 devnull hcheck(((Text *)l->user1)->tag);
633 84b1cb73 2003-09-30 devnull hsetsnarf(int nc)
635 84b1cb73 2003-09-30 devnull char *s2;
636 84b1cb73 2003-09-30 devnull char *s1;
640 84b1cb73 2003-09-30 devnull setcursor(mousectl, &deadmouse);
641 84b1cb73 2003-09-30 devnull s2 = alloc(nc+1);
642 84b1cb73 2003-09-30 devnull for(i=0; i<nc; i++)
643 84b1cb73 2003-09-30 devnull s2[i] = getch();
644 84b1cb73 2003-09-30 devnull s2[nc] = 0;
645 84b1cb73 2003-09-30 devnull n = snarfswap(s2, nc, &s1);
646 84b1cb73 2003-09-30 devnull if(n >= 0){
649 84b1cb73 2003-09-30 devnull s1 = realloc(s1, n+1);
650 84b1cb73 2003-09-30 devnull if (!s1)
651 84b1cb73 2003-09-30 devnull panic("realloc");
652 84b1cb73 2003-09-30 devnull s1[n] = 0;
653 84b1cb73 2003-09-30 devnull snarflen = n;
654 84b1cb73 2003-09-30 devnull outTs(Tsetsnarf, n);
655 941c9f36 2003-10-11 devnull if(n>0 && write(hostfd[1], s1, n)!=n)
656 84b1cb73 2003-09-30 devnull panic("snarf write error");
657 84b1cb73 2003-09-30 devnull free(s1);
659 84b1cb73 2003-09-30 devnull outTs(Tsetsnarf, 0);
660 84b1cb73 2003-09-30 devnull free(s2);
661 84b1cb73 2003-09-30 devnull setcursor(mousectl, cursor);
666 84b1cb73 2003-09-30 devnull hplumb(int nc)
669 84b1cb73 2003-09-30 devnull char *s;
670 84b1cb73 2003-09-30 devnull Plumbmsg *m;
672 84b1cb73 2003-09-30 devnull s = alloc(nc);
673 84b1cb73 2003-09-30 devnull for(i=0; i<nc; i++)
674 84b1cb73 2003-09-30 devnull s[i] = getch();
675 84b1cb73 2003-09-30 devnull if(plumbfd > 0){
676 84b1cb73 2003-09-30 devnull m = plumbunpack(s, nc);
677 84b1cb73 2003-09-30 devnull if(m != 0)
678 84b1cb73 2003-09-30 devnull plumbsend(plumbfd, m);
679 84b1cb73 2003-09-30 devnull plumbfree(m);
681 84b1cb73 2003-09-30 devnull free(s);
686 84b1cb73 2003-09-30 devnull hgrow(int m, long a, long new, int req)
689 84b1cb73 2003-09-30 devnull Flayer *l;
690 84b1cb73 2003-09-30 devnull Text *t = whichtext(m);
691 84b1cb73 2003-09-30 devnull long o, b;
693 84b1cb73 2003-09-30 devnull if(new <= 0)
694 84b1cb73 2003-09-30 devnull panic("hgrow");
695 84b1cb73 2003-09-30 devnull rresize(&t->rasp, a, 0L, new);
696 84b1cb73 2003-09-30 devnull for(l = &t->l[0], i = 0; i<NL; i++, l++){
697 84b1cb73 2003-09-30 devnull if(l->textfn == 0)
698 84b1cb73 2003-09-30 devnull continue;
699 84b1cb73 2003-09-30 devnull o = l->origin;
700 84b1cb73 2003-09-30 devnull b = a-o-rmissing(&t->rasp, o, a);
701 84b1cb73 2003-09-30 devnull if(a < o)
702 84b1cb73 2003-09-30 devnull l->origin+=new;
703 84b1cb73 2003-09-30 devnull if(a < l->p0)
704 84b1cb73 2003-09-30 devnull l->p0+=new;
705 84b1cb73 2003-09-30 devnull if(a < l->p1)
706 84b1cb73 2003-09-30 devnull l->p1+=new;
707 84b1cb73 2003-09-30 devnull /* must prevent b temporarily becoming unsigned */
708 84b1cb73 2003-09-30 devnull if(!req || a<o || (b>0 && b>l->f.nchars) ||
709 84b1cb73 2003-09-30 devnull (l->f.nchars==0 && a-o>0))
710 84b1cb73 2003-09-30 devnull continue;
711 84b1cb73 2003-09-30 devnull if(new>TBLOCKSIZE)
712 84b1cb73 2003-09-30 devnull new = TBLOCKSIZE;
713 84b1cb73 2003-09-30 devnull outTsls(Trequest, m, a, (int)new);
714 84b1cb73 2003-09-30 devnull t->lock++;
715 84b1cb73 2003-09-30 devnull req = 0;
720 84b1cb73 2003-09-30 devnull hdata1(Text *t, long a, Rune *r, int len)
723 84b1cb73 2003-09-30 devnull Flayer *l;
724 84b1cb73 2003-09-30 devnull long o, b;
726 84b1cb73 2003-09-30 devnull for(l = &t->l[0], i=0; i<NL; i++, l++){
727 84b1cb73 2003-09-30 devnull if(l->textfn==0)
728 84b1cb73 2003-09-30 devnull continue;
729 84b1cb73 2003-09-30 devnull o = l->origin;
730 84b1cb73 2003-09-30 devnull b = a-o-rmissing(&t->rasp, o, a);
731 84b1cb73 2003-09-30 devnull /* must prevent b temporarily becoming unsigned */
732 84b1cb73 2003-09-30 devnull if(a<o || (b>0 && b>l->f.nchars))
733 84b1cb73 2003-09-30 devnull continue;
734 84b1cb73 2003-09-30 devnull flinsert(l, r, r+len, o+b);
736 84b1cb73 2003-09-30 devnull rdata(&t->rasp, a, a+len, r);
737 84b1cb73 2003-09-30 devnull rclean(&t->rasp);
738 84b1cb73 2003-09-30 devnull return len;
742 84b1cb73 2003-09-30 devnull hdata(int m, long a, uchar *s, int len)
744 84b1cb73 2003-09-30 devnull int i, w;
745 84b1cb73 2003-09-30 devnull Text *t = whichtext(m);
746 84b1cb73 2003-09-30 devnull Rune buf[DATASIZE], *r;
748 84b1cb73 2003-09-30 devnull if(t->lock)
749 84b1cb73 2003-09-30 devnull --t->lock;
750 84b1cb73 2003-09-30 devnull if(len == 0)
751 84b1cb73 2003-09-30 devnull return 0;
752 84b1cb73 2003-09-30 devnull r = buf;
753 84b1cb73 2003-09-30 devnull for(i=0; i<len; i+=w,s+=w)
754 84b1cb73 2003-09-30 devnull w = chartorune(r++, (char*)s);
755 84b1cb73 2003-09-30 devnull return hdata1(t, a, buf, r-buf);
759 84b1cb73 2003-09-30 devnull hdatarune(int m, long a, Rune *r, int len)
761 84b1cb73 2003-09-30 devnull Text *t = whichtext(m);
763 84b1cb73 2003-09-30 devnull if(t->lock)
764 84b1cb73 2003-09-30 devnull --t->lock;
765 84b1cb73 2003-09-30 devnull if(len == 0)
766 84b1cb73 2003-09-30 devnull return 0;
767 84b1cb73 2003-09-30 devnull return hdata1(t, a, r, len);
771 84b1cb73 2003-09-30 devnull hcut(int m, long a, long old)
773 84b1cb73 2003-09-30 devnull Flayer *l;
774 84b1cb73 2003-09-30 devnull Text *t = whichtext(m);
776 84b1cb73 2003-09-30 devnull long o, b;
778 84b1cb73 2003-09-30 devnull if(t->lock)
779 84b1cb73 2003-09-30 devnull --t->lock;
780 84b1cb73 2003-09-30 devnull for(l = &t->l[0], i = 0; i<NL; i++, l++){
781 84b1cb73 2003-09-30 devnull if(l->textfn == 0)
782 84b1cb73 2003-09-30 devnull continue;
783 84b1cb73 2003-09-30 devnull o = l->origin;
784 84b1cb73 2003-09-30 devnull b = a-o-rmissing(&t->rasp, o, a);
785 84b1cb73 2003-09-30 devnull /* must prevent b temporarily becoming unsigned */
786 84b1cb73 2003-09-30 devnull if((b<0 || b<l->f.nchars) && a+old>=o){
787 84b1cb73 2003-09-30 devnull fldelete(l, b<0? o : o+b,
788 84b1cb73 2003-09-30 devnull a+old-rmissing(&t->rasp, o, a+old));
790 84b1cb73 2003-09-30 devnull if(a+old<o)
791 84b1cb73 2003-09-30 devnull l->origin-=old;
792 84b1cb73 2003-09-30 devnull else if(a<=o)
793 84b1cb73 2003-09-30 devnull l->origin = a;
794 84b1cb73 2003-09-30 devnull if(a+old<l->p0)
795 84b1cb73 2003-09-30 devnull l->p0-=old;
796 84b1cb73 2003-09-30 devnull else if(a<=l->p0)
797 84b1cb73 2003-09-30 devnull l->p0 = a;
798 84b1cb73 2003-09-30 devnull if(a+old<l->p1)
799 84b1cb73 2003-09-30 devnull l->p1-=old;
800 84b1cb73 2003-09-30 devnull else if(a<=l->p1)
801 84b1cb73 2003-09-30 devnull l->p1 = a;
803 84b1cb73 2003-09-30 devnull rresize(&t->rasp, a, old, 0L);
804 84b1cb73 2003-09-30 devnull rclean(&t->rasp);
