Blame


1 b5990708 2003-09-30 devnull #include <u.h>
2 b5990708 2003-09-30 devnull #include <libc.h>
3 b5990708 2003-09-30 devnull #include <draw.h>
4 b5990708 2003-09-30 devnull #include <mouse.h>
5 b5990708 2003-09-30 devnull #include <frame.h>
6 b5990708 2003-09-30 devnull
7 b5990708 2003-09-30 devnull int
8 b5990708 2003-09-30 devnull frdelete(Frame *f, ulong p0, ulong p1)
9 b5990708 2003-09-30 devnull {
10 b5990708 2003-09-30 devnull Point pt0, pt1, ppt0;
11 b5990708 2003-09-30 devnull Frbox *b;
12 b5990708 2003-09-30 devnull int n0, n1, n;
13 b5990708 2003-09-30 devnull ulong cn1;
14 b5990708 2003-09-30 devnull Rectangle r;
15 b5990708 2003-09-30 devnull int nn0;
16 b5990708 2003-09-30 devnull Image *col;
17 b5990708 2003-09-30 devnull
18 b5990708 2003-09-30 devnull if(p0>=f->nchars || p0==p1 || f->b==nil)
19 b5990708 2003-09-30 devnull return 0;
20 b5990708 2003-09-30 devnull if(p1 > f->nchars)
21 b5990708 2003-09-30 devnull p1 = f->nchars;
22 b5990708 2003-09-30 devnull n0 = _frfindbox(f, 0, 0, p0);
23 b5990708 2003-09-30 devnull if(n0 == f->nbox)
24 b5990708 2003-09-30 devnull drawerror(f->display, "off end in frdelete");
25 b5990708 2003-09-30 devnull n1 = _frfindbox(f, n0, p0, p1);
26 b5990708 2003-09-30 devnull pt0 = _frptofcharnb(f, p0, n0);
27 b5990708 2003-09-30 devnull pt1 = frptofchar(f, p1);
28 b5990708 2003-09-30 devnull if(f->p0 == f->p1)
29 b5990708 2003-09-30 devnull frtick(f, frptofchar(f, f->p0), 0);
30 b5990708 2003-09-30 devnull nn0 = n0;
31 b5990708 2003-09-30 devnull ppt0 = pt0;
32 b5990708 2003-09-30 devnull _frfreebox(f, n0, n1-1);
33 b5990708 2003-09-30 devnull f->modified = 1;
34 b5990708 2003-09-30 devnull
35 b5990708 2003-09-30 devnull /*
36 b5990708 2003-09-30 devnull * Invariants:
37 b5990708 2003-09-30 devnull * - pt0 points to beginning, pt1 points to end
38 b5990708 2003-09-30 devnull * - n0 is box containing beginning of stuff being deleted
39 b5990708 2003-09-30 devnull * - n1, b are box containing beginning of stuff to be kept after deletion
40 b5990708 2003-09-30 devnull * - cn1 is char position of n1
41 b5990708 2003-09-30 devnull * - f->p0 and f->p1 are not adjusted until after all deletion is done
42 b5990708 2003-09-30 devnull */
43 b5990708 2003-09-30 devnull b = &f->box[n1];
44 b5990708 2003-09-30 devnull cn1 = p1;
45 b5990708 2003-09-30 devnull while(pt1.x!=pt0.x && n1<f->nbox){
46 b5990708 2003-09-30 devnull _frcklinewrap0(f, &pt0, b);
47 b5990708 2003-09-30 devnull _frcklinewrap(f, &pt1, b);
48 b5990708 2003-09-30 devnull n = _frcanfit(f, pt0, b);
49 b5990708 2003-09-30 devnull if(n==0)
50 b5990708 2003-09-30 devnull drawerror(f->display, "_frcanfit==0");
51 b5990708 2003-09-30 devnull r.min = pt0;
52 b5990708 2003-09-30 devnull r.max = pt0;
53 b5990708 2003-09-30 devnull r.max.y += f->font->height;
54 b5990708 2003-09-30 devnull if(b->nrune > 0){
55 b5990708 2003-09-30 devnull if(n != b->nrune){
56 b5990708 2003-09-30 devnull _frsplitbox(f, n1, n);
57 b5990708 2003-09-30 devnull b = &f->box[n1];
58 b5990708 2003-09-30 devnull }
59 b5990708 2003-09-30 devnull r.max.x += b->wid;
60 b5990708 2003-09-30 devnull draw(f->b, r, f->b, nil, pt1);
61 b5990708 2003-09-30 devnull cn1 += b->nrune;
62 b5990708 2003-09-30 devnull }else{
63 b5990708 2003-09-30 devnull r.max.x += _frnewwid0(f, pt0, b);
64 b5990708 2003-09-30 devnull if(r.max.x > f->r.max.x)
65 b5990708 2003-09-30 devnull r.max.x = f->r.max.x;
66 b5990708 2003-09-30 devnull col = f->cols[BACK];
67 b5990708 2003-09-30 devnull if(f->p0<=cn1 && cn1<f->p1)
68 b5990708 2003-09-30 devnull col = f->cols[HIGH];
69 b5990708 2003-09-30 devnull draw(f->b, r, col, nil, pt0);
70 b5990708 2003-09-30 devnull cn1++;
71 b5990708 2003-09-30 devnull }
72 b5990708 2003-09-30 devnull _fradvance(f, &pt1, b);
73 b5990708 2003-09-30 devnull pt0.x += _frnewwid(f, pt0, b);
74 b5990708 2003-09-30 devnull f->box[n0++] = f->box[n1++];
75 b5990708 2003-09-30 devnull b++;
76 b5990708 2003-09-30 devnull }
77 b5990708 2003-09-30 devnull if(n1==f->nbox && pt0.x!=pt1.x) /* deleting last thing in window; must clean up */
78 b5990708 2003-09-30 devnull frselectpaint(f, pt0, pt1, f->cols[BACK]);
79 b5990708 2003-09-30 devnull if(pt1.y != pt0.y){
80 b5990708 2003-09-30 devnull Point pt2;
81 b5990708 2003-09-30 devnull
82 b5990708 2003-09-30 devnull pt2 = _frptofcharptb(f, 32767, pt1, n1);
83 b5990708 2003-09-30 devnull if(pt2.y > f->r.max.y)
84 b5990708 2003-09-30 devnull drawerror(f->display, "frptofchar in frdelete");
85 b5990708 2003-09-30 devnull if(n1 < f->nbox){
86 b5990708 2003-09-30 devnull int q0, q1, q2;
87 b5990708 2003-09-30 devnull
88 b5990708 2003-09-30 devnull q0 = pt0.y+f->font->height;
89 b5990708 2003-09-30 devnull q1 = pt1.y+f->font->height;
90 b5990708 2003-09-30 devnull q2 = pt2.y+f->font->height;
91 b5990708 2003-09-30 devnull if(q2 > f->r.max.y)
92 b5990708 2003-09-30 devnull q2 = f->r.max.y;
93 b5990708 2003-09-30 devnull draw(f->b, Rect(pt0.x, pt0.y, pt0.x+(f->r.max.x-pt1.x), q0),
94 b5990708 2003-09-30 devnull f->b, nil, pt1);
95 b5990708 2003-09-30 devnull draw(f->b, Rect(f->r.min.x, q0, f->r.max.x, q0+(q2-q1)),
96 b5990708 2003-09-30 devnull f->b, nil, Pt(f->r.min.x, q1));
97 b5990708 2003-09-30 devnull frselectpaint(f, Pt(pt2.x, pt2.y-(pt1.y-pt0.y)), pt2, f->cols[BACK]);
98 b5990708 2003-09-30 devnull }else
99 b5990708 2003-09-30 devnull frselectpaint(f, pt0, pt2, f->cols[BACK]);
100 b5990708 2003-09-30 devnull }
101 b5990708 2003-09-30 devnull _frclosebox(f, n0, n1-1);
102 b5990708 2003-09-30 devnull if(nn0>0 && f->box[nn0-1].nrune>=0 && ppt0.x-f->box[nn0-1].wid>=(int)f->r.min.x){
103 b5990708 2003-09-30 devnull --nn0;
104 b5990708 2003-09-30 devnull ppt0.x -= f->box[nn0].wid;
105 b5990708 2003-09-30 devnull }
106 b5990708 2003-09-30 devnull _frclean(f, ppt0, nn0, n0<f->nbox-1? n0+1 : n0);
107 b5990708 2003-09-30 devnull if(f->p1 > p1)
108 b5990708 2003-09-30 devnull f->p1 -= p1-p0;
109 b5990708 2003-09-30 devnull else if(f->p1 > p0)
110 b5990708 2003-09-30 devnull f->p1 = p0;
111 b5990708 2003-09-30 devnull if(f->p0 > p1)
112 b5990708 2003-09-30 devnull f->p0 -= p1-p0;
113 b5990708 2003-09-30 devnull else if(f->p0 > p0)
114 b5990708 2003-09-30 devnull f->p0 = p0;
115 b5990708 2003-09-30 devnull f->nchars -= p1-p0;
116 b5990708 2003-09-30 devnull if(f->p0 == f->p1)
117 b5990708 2003-09-30 devnull frtick(f, frptofchar(f, f->p0), 1);
118 b5990708 2003-09-30 devnull pt0 = frptofchar(f, f->nchars);
119 b5990708 2003-09-30 devnull n = f->nlines;
120 b5990708 2003-09-30 devnull f->nlines = (pt0.y-f->r.min.y)/f->font->height+(pt0.x>f->r.min.x);
121 b5990708 2003-09-30 devnull return n - f->nlines;
122 b5990708 2003-09-30 devnull }