acme/bin/source/win/win.c

   1 #include <u.h>
   2 #include <libc.h>
   3 #include <bio.h>
   4 #include <thread.h>
   5 #include "dat.h"
   6
   7 Window*
   8 newwindow(void)
   9 {
  10         char buf[12];
  11         Window *w;
  12
  13         w = emalloc(sizeof(Window));
  14         w->ctl = open("/mnt/wsys/new/ctl", ORDWR|OCEXEC);
  15         if(w->ctl<0 || read(w->ctl, buf, 12)!=12)
  16                 error("can't open window ctl file: %r");
  17         ctlprint(w->ctl, "noscroll\n");
  18         w->id = atoi(buf);
  19         w->event = winopenfile(w, "event");
  20         w->addr = winopenfile(w, "addr");
  21         w->body = winopenfile(w, "body");
  22         w->data = winopenfile(w, "data");
  23         w->cevent = chancreate(sizeof(Event*), 0);
  24         return w;
  25 }
  26
  27 void
  28 winsetdump(Window *w, char *dir, char *cmd)
  29 {
  30         if(dir != nil)
  31                 ctlprint(w->ctl, "dumpdir %s\n", dir);
  32         if(cmd != nil)
  33                 ctlprint(w->ctl, "dump %s\n", cmd);
  34 }
  35
  36 void
  37 winsetdir(Window *w, char *dir, char *name)
  38 {
  39         ctlprint(w->ctl, "dumpdir %s\n", dir);
  40         if(strcmp(dir, "/")==0)
  41                 dir++;
  42         ctlprint(w->ctl, "name %s/-%s\n", dir, name);
  43 }
  44
  45 void
  46 wineventproc(void *v)
  47 {
  48         Window *w;
  49         int i;
  50
  51         w = v;
  52         for(i=0; ; i++){
  53                 if(i >= NEVENT)
  54                         i = 0;
  55                 wingetevent(w, &w->e[i]);
  56                 sendp(w->cevent, &w->e[i]);
  57         }
  58 }
  59
  60 int
  61 winopenfile(Window *w, char *f)
  62 {
  63         char buf[64];
  64         int fd;
  65
  66         sprint(buf, "/mnt/wsys/%d/%s", w->id, f);
  67         fd = open(buf, ORDWR|OCEXEC);
  68         if(fd < 0)
  69                 error("can't open window file %s: %r", f);
  70         return fd;
  71 }
  72
  73 void
  74 wintagwrite(Window *w, char *s, int n)
  75 {
  76         int fd;
  77
  78         fd = winopenfile(w, "tag");
  79         if(write(fd, s, n) != n)
  80                 error("tag write: %r");
  81         close(fd);
  82 }
  83
  84 void
  85 winname(Window *w, char *s)
  86 {
  87         ctlprint(w->ctl, "name %s\n", s);
  88 }
  89
  90 int
  91 wingetec(Window *w)
  92 {
  93         if(w->nbuf == 0){
  94                 w->nbuf = read(w->event, w->buf, sizeof w->buf);
  95                 if(w->nbuf <= 0){
  96                         /* probably because window has exited, and only called by wineventproc, so just shut down */
  97                         threadexits(nil);
  98                 }
  99                 w->bufp = w->buf;
 100         }
 101         w->nbuf--;
 102         return *w->bufp++;
 103 }
 104
 105 int
 106 wingeten(Window *w)
 107 {
 108         int n, c;
 109
 110         n = 0;
 111         while('0'<=(c=wingetec(w)) && c<='9')
 112                 n = n*10+(c-'0');
 113         if(c != ' ')
 114                 error("event number syntax");
 115         return n;
 116 }
 117
 118 int
 119 wingeter(Window *w, char *buf, int *nb)
 120 {
 121         Rune r;
 122         int n;
 123
 124         r = wingetec(w);
 125         buf[0] = r;
 126         n = 1;
 127         if(r >= Runeself) {
 128                 while(!fullrune(buf, n))
 129                         buf[n++] = wingetec(w);
 130                 chartorune(&r, buf);
 131         }
 132         *nb = n;
 133         return r;
 134 }
 135
 136 void
 137 wingetevent(Window *w, Event *e)
 138 {
 139         int i, nb;
 140
 141         e->c1 = wingetec(w);
 142         e->c2 = wingetec(w);
 143         e->q0 = wingeten(w);
 144         e->q1 = wingeten(w);
 145         e->flag = wingeten(w);
 146         e->nr = wingeten(w);
 147         if(e->nr > EVENTSIZE)
 148                 error("event string too long");
 149         e->nb = 0;
 150         for(i=0; i<e->nr; i++){
 151                 e->r[i] = wingeter(w, e->b+e->nb, &nb);
 152                 e->nb += nb;
 153         }
 154         e->r[e->nr] = 0;
 155         e->b[e->nb] = 0;
 156         if(wingetec(w) != '\n')
 157                 error("event syntax error");
 158 }
 159
 160 void
 161 winwriteevent(Window *w, Event *e)
 162 {
 163         fprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
 164 }
 165
 166 static int
 167 nrunes(char *s, int nb)
 168 {
 169         int i, n;
 170         Rune r;
 171
 172         n = 0;
 173         for(i=0; i<nb; n++)
 174                 i += chartorune(&r, s+i);
 175         return n;
 176 }
 177
 178 int
 179 winread(Window *w, uint q0, uint q1, char *data)
 180 {
 181         int m, n, nr, nb;
 182         char buf[256];
 183
 184         if(w->addr < 0)
 185                 w->addr = winopenfile(w, "addr");
 186         if(w->data < 0)
 187                 w->data = winopenfile(w, "data");
 188         m = q0;
 189         nb = 0;
 190         while(m < q1){
 191                 n = sprint(buf, "#%d", m);
 192                 if(write(w->addr, buf, n) != n)
 193                         error("error writing addr: %r");
 194                 n = read(w->data, buf, sizeof buf);
 195                 if(n < 0)
 196                         error("reading data: %r");
 197                 nr = nrunes(buf, n);
 198                 while(m+nr >q1){
 199                         do; while(n>0 && (buf[--n]&0xC0)==0x80);
 200                         --nr;
 201                 }
 202                 if(n == 0)
 203                         break;
 204                 memmove(data, buf, n);
 205                 nb += n;
 206                 data += n;
 207                 *data = 0;
 208                 m += nr;
 209         }
 210         return nb;
 211 }
 212
 213 void
 214 windormant(Window *w)
 215 {
 216         if(w->addr >= 0){
 217                 close(w->addr);
 218                 w->addr = -1;
 219         }
 220         if(w->body >= 0){
 221                 close(w->body);
 222                 w->body = -1;
 223         }
 224         if(w->data >= 0){
 225                 close(w->data);
 226                 w->data = -1;
 227         }
 228 }
 229
 230 int
 231 windel(Window *w, int sure)
 232 {
 233         if(sure)
 234                 write(w->ctl, "delete\n", 7);
 235         else if(write(w->ctl, "del\n", 4) != 4)
 236                 return 0;
 237         /* event proc will die due to read error from event file */
 238         windormant(w);
 239         close(w->ctl);
 240         w->ctl = -1;
 241         close(w->event);
 242         w->event = -1;
 243         return 1;
 244 }
 245
 246 void
 247 winclean(Window *w)
 248 {
 249         ctlprint(w->ctl, "clean\n");
 250 }
 251
 252 int
 253 winsetaddr(Window *w, char *addr, int errok)
 254 {
 255         if(w->addr < 0)
 256                 w->addr = winopenfile(w, "addr");
 257         if(write(w->addr, addr, strlen(addr)) < 0){
 258                 if(!errok)
 259                         error("error writing addr(%s): %r", addr);
 260                 return 0;
 261         }
 262         return 1;
 263 }
 264
 265 int
 266 winselect(Window *w, char *addr, int errok)
 267 {
 268         if(winsetaddr(w, addr, errok)){
 269                 ctlprint(w->ctl, "dot=addr\n");
 270                 return 1;
 271         }
 272         return 0;
 273 }