3 * GROWDATASIZE must be big enough that all errors go out as Hgrowdata's,
4 * so they will be scrolled into visibility in the ~~sam~~ window (yuck!).
6 #define GROWDATASIZE 50 /* if size is > this, send data with grow */
8 void rcut(List*, Posn, Posn);
9 int rterm(List*, Posn);
10 void rgrow(List*, Posn, Posn);
14 static Posn shrinkpos;
18 * rasp routines inform the terminal of changes to the file.
20 * a rasp is a list of spans within the file, and an indication
21 * of whether the terminal knows about the span.
23 * optimize by coalescing multiple updates to the same span
24 * if it is not known by the terminal.
26 * other possible optimizations: flush terminal's rasp by cut everything,
27 * insert everything if rasp gets too large.
31 * only called for initial load of file
41 rgrow(f->rasp, 0, f->b.nc);
56 raspdone(File *f, int toterm)
58 if(f->dot.r.p1 > f->b.nc)
59 f->dot.r.p1 = f->b.nc;
60 if(f->dot.r.p2 > f->b.nc)
61 f->dot.r.p2 = f->b.nc;
62 if(f->mark.p1 > f->b.nc)
64 if(f->mark.p2 > f->b.nc)
69 outTsll(Hgrow, f->tag, growpos, grown);
71 outTsll(Hcut, f->tag, shrinkpos, shrunk);
73 outTs(Hcheck0, f->tag);
83 raspdelete(File *f, uint p1, uint p2, int toterm)
91 if(p2 <= f->dot.r.p1){
103 if(f==cmd && p1<cmdpt){
111 outTsll(Hgrow, f->tag, growpos, grown);
113 }else if(shrunk && shrinkpos!=p1 && shrinkpos!=p2){
114 outTsll(Hcut, f->tag, shrinkpos, shrunk);
117 if(!shrunk || shrinkpos==p2)
121 rcut(f->rasp, p1, p2);
125 raspinsert(File *f, uint p1, Rune *buf, uint n, int toterm)
132 if(p1 < f->dot.r.p1){
144 if(f==cmd && p1<cmdpt)
148 outTsll(Hcut, f->tag, shrinkpos, shrunk);
151 if(n>GROWDATASIZE || !rterm(f->rasp, p1)){
152 rgrow(f->rasp, p1, n);
153 if(grown && growpos+grown!=p1 && growpos!=p1){
154 outTsll(Hgrow, f->tag, growpos, grown);
162 outTsll(Hgrow, f->tag, growpos, grown);
165 rgrow(f->rasp, p1, n);
166 r = rdata(f->rasp, p1, n);
167 if(r.p1!=p1 || r.p2!=p1+n)
168 panic("rdata in toterminal");
169 outTsllS(Hgrowdata, f->tag, p1, n, tmprstr(buf, n));
172 rgrow(f->rasp, p1, n);
173 r = rdata(f->rasp, p1, n);
174 if(r.p1!=p1 || r.p2!=p1+n)
175 panic("rdata in toterminal");
179 #define M 0x80000000L
180 #define P(i) r->longptr[i]
181 #define T(i) (P(i)&M) /* in terminal */
182 #define L(i) (P(i)&~M) /* length of this piece */
185 rcut(List *r, Posn p1, Posn p2)
192 for(p=0,i=0; i<r->nused && p+L(i)<=p1; p+=L(i++))
196 if(p < p1){ /* chop this piece */
210 while(i<r->nused && p+L(i)<=p2){
223 /* can we merge i and i-1 ? */
224 if(i>0 && i<r->nused && T(i-1)==T(i)){
235 rgrow(List *r, Posn p1, Posn n)
242 for(p=0,i=0; i<r->nused && p+L(i)<=p1; p+=L(i++))
244 if(i == r->nused){ /* stick on end of file */
251 }else if(!T(i)) /* goes in this empty piece */
253 else if(p==p1 && i>0 && !T(i-1)) /* special case; simplifies life */
257 else{ /* must break piece in terminal */
258 inslist(r, i+1, (L(i)-(p1-p))|M);
265 rterm(List *r, Posn p1)
270 for(p = 0,i = 0; i<r->nused && p+L(i)<=p1; p+=L(i++))
272 if(i==r->nused && (i==0 || !T(i-1)))
278 rdata(List *r, Posn p1, Posn n)
286 for(p = 0,i = 0; i<r->nused && p+L(i)<=p1; p+=L(i++))
299 if(T(i) || i==r->nused)
306 inslist(r, i+1, L(i)-(p1-p));
311 inslist(r, i+1, L(i)-n);
315 /* now i is set; can we merge? */
316 if(i<r->nused-1 && T(i+1)){