13e12c5d1SDavid du Colombier #include <u.h> 2*219b2ee8SDavid du Colombier #include <libc.h> 33e12c5d1SDavid du Colombier #include <libg.h> 43e12c5d1SDavid du Colombier #include <frame.h> 53e12c5d1SDavid du Colombier 63e12c5d1SDavid du Colombier int 73e12c5d1SDavid du Colombier frdelete(Frame *f, ulong p0, ulong p1) 83e12c5d1SDavid du Colombier { 93e12c5d1SDavid du Colombier Point pt0, pt1, ppt0; 103e12c5d1SDavid du Colombier Frbox *b; 113e12c5d1SDavid du Colombier int n0, n1, n; 123e12c5d1SDavid du Colombier Rectangle r; 133e12c5d1SDavid du Colombier int nn0; 143e12c5d1SDavid du Colombier 153e12c5d1SDavid du Colombier if(p0>=f->nchars || p0==p1 || f->b==0) 163e12c5d1SDavid du Colombier return 0; 173e12c5d1SDavid du Colombier if(p1 > f->nchars) 183e12c5d1SDavid du Colombier p1 = f->nchars; 193e12c5d1SDavid du Colombier n0 = _frfindbox(f, 0, (unsigned long)0, p0); 203e12c5d1SDavid du Colombier n1 = _frfindbox(f, n0, p0, p1); 213e12c5d1SDavid du Colombier pt0 = _frptofcharnb(f, p0, n0); 223e12c5d1SDavid du Colombier pt1 = frptofchar(f, p1); 233e12c5d1SDavid du Colombier if(f->p0!=p0 || f->p1!=p1) /* likely they ARE equal */ 243e12c5d1SDavid du Colombier frselectp(f, F&~D); /* can do better some day */ 253e12c5d1SDavid du Colombier frselectf(f, pt0, pt1, 0); 263e12c5d1SDavid du Colombier if(n0 == f->nbox) 273e12c5d1SDavid du Colombier berror("off end in frdelete"); 283e12c5d1SDavid du Colombier nn0 = n0; 293e12c5d1SDavid du Colombier ppt0 = pt0; 303e12c5d1SDavid du Colombier _frfreebox(f, n0, n1-1); 313e12c5d1SDavid du Colombier f->modified = 1; 323e12c5d1SDavid du Colombier 333e12c5d1SDavid du Colombier /* 343e12c5d1SDavid du Colombier * Invariants: 353e12c5d1SDavid du Colombier * pt0 points to beginning, pt1 points to end 363e12c5d1SDavid du Colombier * n0 is box containing beginning of stuff being deleted 373e12c5d1SDavid du Colombier * n1, b are box containing beginning of stuff to be kept after deletion 383e12c5d1SDavid du Colombier * region between pt0 and pt1 is clear 393e12c5d1SDavid du Colombier */ 403e12c5d1SDavid du Colombier b = &f->box[n1]; 413e12c5d1SDavid du Colombier while(pt1.x!=pt0.x && n1<f->nbox){ 423e12c5d1SDavid du Colombier _frcklinewrap0(f, &pt0, b); 433e12c5d1SDavid du Colombier _frcklinewrap(f, &pt1, b); 443e12c5d1SDavid du Colombier if(b->nrune > 0){ 453e12c5d1SDavid du Colombier n = _frcanfit(f, pt0, b); 463e12c5d1SDavid du Colombier if(n==0) 473e12c5d1SDavid du Colombier berror("_frcanfit==0"); 483e12c5d1SDavid du Colombier if(n != b->nrune){ 493e12c5d1SDavid du Colombier _frsplitbox(f, n1, n); 503e12c5d1SDavid du Colombier b = &f->box[n1]; 513e12c5d1SDavid du Colombier } 523e12c5d1SDavid du Colombier r.min = pt1; 533e12c5d1SDavid du Colombier r.max = pt1; 543e12c5d1SDavid du Colombier r.max.x += b->wid; 553e12c5d1SDavid du Colombier r.max.y += f->font->height; 563e12c5d1SDavid du Colombier bitblt(f->b, pt0, f->b, r, S); 573e12c5d1SDavid du Colombier if(pt0.y == pt1.y) 583e12c5d1SDavid du Colombier r.min.x = r.max.x-(pt1.x-pt0.x); 593e12c5d1SDavid du Colombier bitblt(f->b, r.min, f->b, r, 0); 603e12c5d1SDavid du Colombier } 613e12c5d1SDavid du Colombier _fradvance(f, &pt1, b); 623e12c5d1SDavid du Colombier pt0.x += _frnewwid(f, pt0, b); 633e12c5d1SDavid du Colombier f->box[n0++] = f->box[n1++]; 643e12c5d1SDavid du Colombier b++; 653e12c5d1SDavid du Colombier } 663e12c5d1SDavid du Colombier if(pt1.y != pt0.y){ 673e12c5d1SDavid du Colombier Point pt2; 683e12c5d1SDavid du Colombier 693e12c5d1SDavid du Colombier pt2 = _frptofcharptb(f, 32767, pt1, n1); 703e12c5d1SDavid du Colombier if(pt2.y > f->r.max.y) 713e12c5d1SDavid du Colombier berror("frptofchar in frdelete"); 723e12c5d1SDavid du Colombier if(n1 < f->nbox){ 733e12c5d1SDavid du Colombier int q0, q1, q2; 743e12c5d1SDavid du Colombier 753e12c5d1SDavid du Colombier q0 = pt0.y+f->font->height; 763e12c5d1SDavid du Colombier q1 = pt1.y+f->font->height; 773e12c5d1SDavid du Colombier q2 = pt2.y+f->font->height; 783e12c5d1SDavid du Colombier bitblt(f->b, pt0, f->b, Rect(pt1.x, pt1.y, f->r.max.x, q1), S); 793e12c5d1SDavid du Colombier bitblt(f->b, Pt(f->r.min.x, q0), f->b, Rect(f->r.min.x, q1, f->r.max.x, q2), S); 803e12c5d1SDavid du Colombier frselectf(f, Pt(pt2.x, pt2.y-(pt1.y-pt0.y)), pt2, 0); 813e12c5d1SDavid du Colombier }else 823e12c5d1SDavid du Colombier frselectf(f, pt0, pt2, 0); 833e12c5d1SDavid du Colombier } 843e12c5d1SDavid du Colombier _frclosebox(f, n0, n1-1); 853e12c5d1SDavid du Colombier if(nn0>0 && f->box[nn0-1].nrune>=0 && ppt0.x-f->box[nn0-1].wid>=(int)f->left){ 863e12c5d1SDavid du Colombier --nn0; 873e12c5d1SDavid du Colombier ppt0.x -= f->box[nn0].wid; 883e12c5d1SDavid du Colombier } 893e12c5d1SDavid du Colombier _frclean(f, ppt0, nn0, n0<f->nbox-1? n0+1 : n0); 903e12c5d1SDavid du Colombier if(f->p1 > p1) 913e12c5d1SDavid du Colombier f->p1 -= p1-p0; 923e12c5d1SDavid du Colombier else if(f->p1 > p0) 933e12c5d1SDavid du Colombier f->p1 = p0; 943e12c5d1SDavid du Colombier if(f->p0 > p1) 953e12c5d1SDavid du Colombier f->p0 -= p1-p0; 963e12c5d1SDavid du Colombier else if(f->p0 > p0) 973e12c5d1SDavid du Colombier f->p0 = p0; 983e12c5d1SDavid du Colombier frselectp(f, F&~D); 993e12c5d1SDavid du Colombier f->nchars -= p1-p0; 1003e12c5d1SDavid du Colombier pt0 = frptofchar(f, f->nchars); 1013e12c5d1SDavid du Colombier n = f->nlines; 1023e12c5d1SDavid du Colombier f->nlines = (pt0.y-f->r.min.y)/f->font->height+(pt0.x>f->left); 1033e12c5d1SDavid du Colombier return n - f->nlines; 1043e12c5d1SDavid du Colombier } 105