123 lines
3 KiB
C
123 lines
3 KiB
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;
|
|
}
|