ref: dfb4b522830edab8f3856289d326d6cf5e930644
dir: /sys/src/libframe/frdelete.c/
#include <u.h> #include <libc.h> #include <draw.h> #include <thread.h> #include <mouse.h> #include <frame.h> int frdelete(Frame *f, ulong p0, ulong p1) { Point pt0, pt1, ppt0; Frbox *b; int n0, n1, n; ulong cn1; Rectangle r; int nn0; Image *col; if(p0>=f->nchars || p0==p1 || f->b==nil) return 0; if(p1 > f->nchars) p1 = f->nchars; n0 = _frfindbox(f, 0, 0, p0); if(n0 == f->nbox) drawerror(f->display, "off end in frdelete"); n1 = _frfindbox(f, n0, p0, p1); pt0 = _frptofcharnb(f, p0, n0); pt1 = frptofchar(f, p1); if(f->p0 == f->p1) frtick(f, frptofchar(f, f->p0), 0); nn0 = n0; ppt0 = pt0; _frfreebox(f, n0, n1-1); f->modified = 1; /* * Invariants: * - pt0 points to beginning, pt1 points to end * - n0 is box containing beginning of stuff being deleted * - n1, b are box containing beginning of stuff to be kept after deletion * - cn1 is char position of n1 * - f->p0 and f->p1 are not adjusted until after all deletion is done */ b = &f->box[n1]; cn1 = p1; while(pt1.x!=pt0.x && n1<f->nbox){ _frcklinewrap0(f, &pt0, b); _frcklinewrap(f, &pt1, b); r.min = pt0; r.max = pt0; r.max.y += f->font->height; if(b->nrune > 0){ n = _frcanfit(f, pt0, b); if(n==0) drawerror(f->display, "_frcanfit==0"); if(n != b->nrune){ _frsplitbox(f, n1, n); b = &f->box[n1]; } r.max.x += b->wid; draw(f->b, r, f->b, nil, pt1); cn1 += b->nrune; }else{ r.max.x += _frnewwid0(f, pt0, b); if(r.max.x > f->r.max.x) r.max.x = f->r.max.x; col = f->cols[BACK]; if(f->p0<=cn1 && cn1<f->p1) col = f->cols[HIGH]; draw(f->b, r, col, nil, pt0); cn1++; } _fradvance(f, &pt1, b); pt0.x += _frnewwid(f, pt0, b); f->box[n0++] = f->box[n1++]; b++; } if(n1==f->nbox && pt0.x!=pt1.x) /* deleting last thing in window; must clean up */ frselectpaint(f, pt0, pt1, f->cols[BACK]); if(pt1.y != pt0.y){ Point pt2; pt2 = _frptofcharptb(f, 32767, pt1, n1); if(pt2.y > f->r.max.y) drawerror(f->display, "frptofchar in frdelete"); if(n1 < f->nbox){ int q0, q1, q2; q0 = pt0.y+f->font->height; q1 = pt1.y+f->font->height; q2 = pt2.y+f->font->height; if(q2 > f->r.max.y) q2 = f->r.max.y; draw(f->b, Rect(pt0.x, pt0.y, pt0.x+(f->r.max.x-pt1.x), q0), f->b, nil, pt1); draw(f->b, Rect(f->r.min.x, q0, f->r.max.x, q0+(q2-q1)), f->b, nil, Pt(f->r.min.x, q1)); frselectpaint(f, Pt(pt2.x, pt2.y-(pt1.y-pt0.y)), pt2, f->cols[BACK]); }else frselectpaint(f, pt0, pt2, f->cols[BACK]); } _frclosebox(f, n0, n1-1); if(nn0>0 && f->box[nn0-1].nrune>=0 && ppt0.x-f->box[nn0-1].wid>=(int)f->r.min.x){ --nn0; ppt0.x -= f->box[nn0].wid; } _frclean(f, ppt0, nn0, n0<f->nbox-1? n0+1 : n0); if(f->p1 > p1) f->p1 -= p1-p0; else if(f->p1 > p0) f->p1 = p0; if(f->p0 > p1) f->p0 -= p1-p0; else if(f->p0 > p0) f->p0 = p0; f->nchars -= p1-p0; if(f->p0 == f->p1) frtick(f, frptofchar(f, f->p0), 1); pt0 = frptofchar(f, f->nchars); n = f->nlines; f->nlines = (pt0.y-f->r.min.y)/f->font->height+(pt0.x>f->r.min.x); return n - f->nlines; }