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->nc);
56 raspdone(File *f, int toterm)
58 if(f->dot.r.p1 > f->nc)
60 if(f->dot.r.p2 > f->nc)
62 if(f->mark.p1 > f->nc)
64 if(f->mark.p2 > f->nc)
69 outTsll(Hgrow, f->tag, growpos, grown);
71 outTsll(Hcut, f->tag, shrinkpos, shrunk);
73 outTs(Hcheck0, f->tag);
86 outTsll(Hgrow, f->tag, growpos, grown);
90 outTsll(Hcut, f->tag, shrinkpos, shrunk);
97 raspdelete(File *f, uint p1, uint p2, int toterm)
105 if(p2 <= f->dot.r.p1){
109 if(p2 <= f->mark.p1){
117 if(f==cmd && p1<cmdpt){
125 outTsll(Hgrow, f->tag, growpos, grown);
127 }else if(shrunk && shrinkpos!=p1 && shrinkpos!=p2){
128 outTsll(Hcut, f->tag, shrinkpos, shrunk);
131 if(!shrunk || shrinkpos==p2)
135 rcut(f->rasp, p1, p2);
139 raspinsert(File *f, uint p1, Rune *buf, uint n, int toterm)
146 if(p1 < f->dot.r.p1){
158 if(f==cmd && p1<cmdpt)
162 outTsll(Hcut, f->tag, shrinkpos, shrunk);
165 if(n>GROWDATASIZE || !rterm(f->rasp, p1)){
166 rgrow(f->rasp, p1, n);
167 if(grown && growpos+grown!=p1 && growpos!=p1){
168 outTsll(Hgrow, f->tag, growpos, grown);
176 outTsll(Hgrow, f->tag, growpos, grown);
179 rgrow(f->rasp, p1, n);
180 r = rdata(f->rasp, p1, n);
181 if(r.p1!=p1 || r.p2!=p1+n)
182 panic("rdata in toterminal");
183 outTsllS(Hgrowdata, f->tag, p1, n, tmprstr(buf, n));
186 rgrow(f->rasp, p1, n);
187 r = rdata(f->rasp, p1, n);
188 if(r.p1!=p1 || r.p2!=p1+n)
189 panic("rdata in toterminal");
193 #define M 0x80000000L
194 #define P(i) r->posnptr[i]
195 #define T(i) (P(i)&M) /* in terminal */
196 #define L(i) (P(i)&~M) /* length of this piece */
199 rcut(List *r, Posn p1, Posn p2)
206 for(p=0,i=0; i<r->nused && p+L(i)<=p1; p+=L(i++))
210 if(p < p1){ /* chop this piece */
224 while(i<r->nused && p+L(i)<=p2){
237 /* can we merge i and i-1 ? */
238 if(i>0 && i<r->nused && T(i-1)==T(i)){
249 rgrow(List *r, Posn p1, Posn n)
256 for(p=0,i=0; i<r->nused && p+L(i)<=p1; p+=L(i++))
258 if(i == r->nused){ /* stick on end of file */
265 }else if(!T(i)) /* goes in this empty piece */
267 else if(p==p1 && i>0 && !T(i-1)) /* special case; simplifies life */
271 else{ /* must break piece in terminal */
272 inslist(r, i+1, (L(i)-(p1-p))|M);
279 rterm(List *r, Posn p1)
284 for(p = 0,i = 0; i<r->nused && p+L(i)<=p1; p+=L(i++))
286 if(i==r->nused && (i==0 || !T(i-1)))
292 rdata(List *r, Posn p1, Posn n)
300 for(p = 0,i = 0; i<r->nused && p+L(i)<=p1; p+=L(i++))
313 if(T(i) || i==r->nused)
320 inslist(r, i+1, L(i)-(p1-p));
325 inslist(r, i+1, L(i)-n);
329 /* now i is set; can we merge? */
330 if(i<r->nused-1 && T(i+1)){