sys/src/cmd/spred/cmdw.c

   1 #include <u.h>
   2 #include <libc.h>
   3 #include <bio.h>
   4 #include <thread.h>
   5 #include <draw.h>
   6 #include <mouse.h>
   7 #include <keyboard.h>
   8 #include <frame.h>
   9 #include "dat.h"
  10 #include "fns.h"
  11
  12 static int
  13 cmdinit(Win *)
  14 {
  15         return 0;
  16 }
  17
  18 static void
  19 scrollbar(Win *w)
  20 {
  21         int h, t0, t1;
  22
  23         h = Dy(w->inner);
  24         draw(w->im, rectaddpt(Rect(0, 0, SCRBSIZ+1, h), w->inner.min), w->tab->cols[BORD], nil, ZP);
  25         t0 = w->toprune * h;
  26         t1 = (w->toprune + w->fr.nchars) * h;
  27         if(w->nrunes == 0){
  28                  t0 = 0;
  29                  t1 = h;
  30         }else{
  31                 t0 /= w->nrunes;
  32                 t1 /= w->nrunes;
  33         }
  34         draw(w->im, rectaddpt(Rect(0, t0, SCRBSIZ, t1), w->inner.min), w->tab->cols[BACK], nil, ZP);
  35 }
  36
  37 static void
  38 cmddraw(Win *w)
  39 {
  40         Rectangle r;
  41
  42         frclear(&w->fr, 0);
  43         r = insetrect(w->inner, 1);
  44         r.min.x += SCRTSIZ;
  45         scrollbar(w);
  46         frinit(&w->fr, r, display->defaultfont, w->im, w->tab->cols);
  47         frinsert(&w->fr, w->runes + w->toprune, w->runes + w->nrunes, 0);
  48 }
  49
  50 void
  51 cmdscroll(Win *w, int l)
  52 {
  53         int r;
  54
  55         if(l == 0)
  56                 return;
  57         if(l > 0){
  58                 for(r = w->toprune; r < w->nrunes && l != 0; r++)
  59                         if(w->runes[r] == '\n')
  60                                 l--;
  61                 w->toprune = r;
  62         }else{
  63                 for(r = w->toprune; r > 0; r--)
  64                         if(w->runes[r] == '\n' && ++l == 0){
  65                                 r++;
  66                                 break;
  67                         }
  68                 w->toprune = r;
  69
  70         }
  71         frdelete(&w->fr, 0, w->fr.nchars);
  72                 frinsert(&w->fr, w->runes + w->toprune, w->runes + w->nrunes, 0);
  73         scrollbar(w);
  74 }
  75
  76 static void
  77 cmdclick(Win *w, Mousectl *mc)
  78 {
  79         if(mc->xy.x <= w->inner.min.x + SCRBSIZ){
  80                 cmdscroll(w, -5);
  81                 return;
  82         }
  83         frselect(&w->fr, mc);
  84 }
  85
  86 static int
  87 cmdrmb(Win *w, Mousectl *mc)
  88 {
  89         if(mc->xy.x > w->inner.min.x + SCRBSIZ)
  90                 return -1;
  91         cmdscroll(w, 5);
  92         return 0;
  93 }
  94
  95 int
  96 cmdinsert(Win *w, Rune *r, int nr, int rp)
  97 {
  98         Rune *s;
  99
 100         if(nr < 0)
 101                 for(nr = 0, s = r; *s++ != 0; nr++)
 102                         ;
 103         if(rp < 0 || rp > w->nrunes)
 104                 rp = w->nrunes;
 105         if(w->nrunes + nr > w->arunes){
 106                 w->runes = realloc(w->runes, w->arunes = w->arunes + (nr + RUNEBLK - 1) & ~(RUNEBLK - 1));
 107                 if(w->runes == nil)
 108                         sysfatal("realloc: %r");
 109         }
 110         if(rp != w->nrunes)
 111                 memmove(w->runes + rp, w->runes + rp + nr, (w->nrunes - rp) * sizeof(Rune));
 112         memmove(w->runes + rp, r, nr * sizeof(Rune));
 113         w->nrunes += nr;
 114         if(w->toprune > rp)
 115                 w->toprune += nr;
 116         else{
 117                 frinsert(&w->fr, w->runes + rp, w->runes + rp + nr, rp - w->toprune);
 118                 if(rp == w->nrunes - nr){
 119                         if(w->fr.lastlinefull)
 120                                 cmdscroll(w, 1);
 121                 }
 122         }
 123         return nr;
 124 }
 125
 126 static void
 127 cmddel(Win *w, int a, int b)
 128 {
 129         if(a >= b)
 130                 return;
 131         memmove(w->runes + a, w->runes + b, w->nrunes - b);
 132         w->nrunes -= b - a;
 133         if(w->toprune >= b)
 134                 w->toprune -= b - a;
 135         else{
 136                 frdelete(&w->fr, a - w->toprune, b - w->toprune);
 137                 if(w->toprune >= a)
 138                         w->toprune = a;
 139         }
 140 }
 141
 142 static void
 143 cmdkey(Win *w, Rune r)
 144 {
 145         static char buf[4096];
 146         char *p;
 147         Rune *q;
 148
 149         if(w->fr.p0 < w->fr.p1)
 150                 cmddel(w, w->toprune + w->fr.p0, w->toprune + w->fr.p1);
 151         switch(r){
 152         case 0x00:
 153         case 0x1b:
 154                 break;
 155         case '\b':
 156                 if(w->fr.p0 > 0 && w->toprune + w->fr.p0 != w->opoint)
 157                         cmddel(w, w->toprune + w->fr.p0 - 1, w->toprune + w->fr.p0);
 158                 break;
 159         case '\n':
 160                 cmdinsert(w, &r, 1, w->fr.p0 + w->toprune);
 161                 if(w->toprune + w->fr.p0 == w->nrunes){
 162                         q = w->runes + w->opoint;
 163                         p = buf;
 164                         while(q < w->runes + w->nrunes && p < buf + nelem(buf) + 1)
 165                                 p += runetochar(p, q++);
 166                         *p = 0;
 167                         w->opoint = w->nrunes;
 168                         docmd(buf);
 169                 }
 170                 break;
 171         case Kview:
 172                 cmdscroll(w, 3);
 173                 break;
 174         case Kup:
 175                 cmdscroll(w, -3);
 176                 break;
 177         default:
 178                 cmdinsert(w, &r, 1, w->fr.p0 + w->toprune);
 179         }
 180 }
 181
 182 void
 183 cmdprint(char *fmt, ...)
 184 {
 185         Rune *r;
 186         va_list va;
 187
 188         va_start(va, fmt);
 189         r = runevsmprint(fmt, va);
 190         va_end(va);
 191         if(r != nil)
 192                 cmdw->opoint += cmdinsert(cmdw, r, -1, cmdw->opoint);
 193 }
 194
 195 Wintab cmdtab = {
 196         .init = cmdinit,
 197         .draw = cmddraw,
 198         .click = cmdclick,
 199         .rmb = cmdrmb,
 200         .key = cmdkey,
 201         .hexcols = {
 202                 [BORD] DPurpleblue,
 203                 [DISB] 0xCCCCEEFF,
 204                 [BACK] 0xCCFFFFFF,
 205                 [HIGH] DPalegreygreen
 206         }
 207 };