sys/src/games/eui.c

   1 #include <u.h>
   2 #include <libc.h>
   3 #include <thread.h>
   4 #include <draw.h>
   5 #include <keyboard.h>
   6 #include <mouse.h>
   7 #include "eui.h"
   8
   9 typedef struct Kfn Kfn;
  10
  11 u64int keys, keys2;
  12 int trace, paused;
  13 int savereq, loadreq;
  14 QLock pauselock;
  15 int scale, warp10;
  16 uchar *pic;
  17 Rectangle picr;
  18 Mousectl *mc;
  19 Image *bg;
  20
  21 static int profile, framestep;
  22 static int vwdx, vwdy, vwbpp;
  23 static ulong vwchan;
  24 static Image *fb;
  25
  26 struct Kfn{
  27         Rune r;
  28         int k;
  29         char joyk[16];
  30         void(*fn)(void);
  31         Kfn *n;
  32 };
  33 static Kfn kfn, kkn;
  34 static int ax0, ax1;
  35
  36 void *
  37 emalloc(ulong sz)
  38 {
  39         void *v;
  40
  41         v = mallocz(sz, 1);
  42         if(v == nil)
  43                 sysfatal("malloc: %r");
  44         setmalloctag(v, getcallerpc(&sz));
  45         return v;
  46 }
  47
  48 static void
  49 joyproc(void *)
  50 {
  51         char *s, *down[9];
  52         static char buf[64];
  53         int n, k, j;
  54         Kfn *kp;
  55
  56         j = 1;
  57
  58         for(;;){
  59                 n = read(0, buf, sizeof(buf) - 1);
  60                 if(n <= 0)
  61                         sysfatal("read: %r");
  62                 buf[n] = 0;
  63                 n = getfields(buf, down, nelem(down), 1, " ");
  64                 k = 0;
  65                 for(n--; n >= 0; n--){
  66                         s = down[n];
  67                         if(strcmp(s, "joy1") == 0)
  68                                 j = 1;
  69                         else if(strcmp(s, "joy2") == 0)
  70                                 j = 2;
  71                         for(kp=kkn.n; kp!=nil; kp=kp->n){
  72                                 if(strcmp(kp->joyk, s) == 0)
  73                                         k |= kp->k;
  74                         }
  75                 }
  76                 if(j == 2)
  77                         keys2 = k;
  78                 else
  79                         keys = k;
  80         }
  81 }
  82
  83 static void
  84 keyproc(void *)
  85 {
  86         int fd, n, k;
  87         static char buf[256];
  88         char *s;
  89         Rune r;
  90         Kfn *kp;
  91
  92         fd = open("/dev/kbd", OREAD);
  93         if(fd < 0)
  94                 sysfatal("open: %r");
  95         for(;;){
  96                 if(buf[0] != 0){
  97                         n = strlen(buf)+1;
  98                         memmove(buf, buf+n, sizeof(buf)-n);
  99                 }
 100                 if(buf[0] == 0){
 101                         n = read(fd, buf, sizeof(buf)-1);
 102                         if(n <= 0)
 103                                 sysfatal("read /dev/kbd: %r");
 104                         buf[n-1] = 0;
 105                         buf[n] = 0;
 106                 }
 107                 if(buf[0] == 'c'){
 108                         if(utfrune(buf, Kdel)){
 109                                 close(fd);
 110                                 threadexitsall(nil);
 111                         }
 112                         if(utfrune(buf, KF|5))
 113                                 savereq = 1;
 114                         if(utfrune(buf, KF|6))
 115                                 loadreq = 1;
 116                         if(utfrune(buf, KF|12))
 117                                 profile ^= 1;
 118                         if(utfrune(buf, 't'))
 119                                 trace = !trace;
 120                         for(kp=kfn.n; kp!=nil; kp=kp->n){
 121                                 if(utfrune(buf, kp->r))
 122                                         kp->fn();
 123                         }
 124                 }
 125                 if(buf[0] != 'k' && buf[0] != 'K')
 126                         continue;
 127                 s = buf + 1;
 128                 k = 0;
 129                 while(*s != 0){
 130                         s += chartorune(&r, s);
 131                         switch(r){
 132                         case Kdel: close(fd); threadexitsall(nil);
 133                         case Kesc:
 134                                 if(paused)
 135                                         qunlock(&pauselock);
 136                                 else
 137                                         qlock(&pauselock);
 138                                 paused = !paused;
 139                                 break;
 140                         case KF|1:
 141                                 if(paused){
 142                                         qunlock(&pauselock);
 143                                         paused=0;
 144                                 }
 145                                 framestep = !framestep;
 146                                 break;
 147                         case '`':
 148                                 warp10 = !warp10;
 149                                 break;
 150                         }
 151                         for(kp=kkn.n; kp!=nil; kp=kp->n){
 152                                 if(utfrune(buf, kp->r))
 153                                         k |= kp->k;
 154                         }
 155                 }
 156                 if((k & ax0) == ax0)
 157                         k &= ~ax0;
 158                 if((k & ax1) == ax1)
 159                         k &= ~ax1;
 160                 keys = k;
 161         }
 162 }
 163
 164 static void
 165 timing(void)
 166 {
 167         static int fcount;
 168         static vlong old;
 169         static char buf[32];
 170         vlong new;
 171
 172         if(++fcount == 60)
 173                 fcount = 0;
 174         else
 175                 return;
 176         new = nsec();
 177         if(new != old)
 178                 sprint(buf, "%6.2f%%", 1e11 / (new - old));
 179         else
 180                 buf[0] = 0;
 181         draw(screen, rectaddpt(Rect(10, 10, vwdx-40, 30), screen->r.min), bg, nil, ZP);
 182         string(screen, addpt(screen->r.min, Pt(10, 10)), display->black, ZP, display->defaultfont, buf);
 183         old = nsec();
 184 }
 185
 186 static void
 187 screeninit(void)
 188 {
 189         Point p;
 190
 191         scale = Dx(screen->r) / vwdx;
 192         if(scale <= 0)
 193                 scale = 1;
 194         else if(scale > 16)
 195                 scale = 16;
 196         p = divpt(addpt(screen->r.min, screen->r.max), 2);
 197         picr = Rpt(subpt(p, Pt(scale * vwdx/2, scale * vwdy/2)),
 198                 addpt(p, Pt(scale * vwdx/2, scale * vwdy/2)));
 199         freeimage(fb);
 200         fb = allocimage(display, Rect(0, 0, scale * vwdx, scale > 1 ? 1 : scale * vwdy),
 201                 vwchan, scale > 1, 0);
 202         free(pic);
 203         pic = emalloc(vwdx * vwdy * vwbpp * scale);
 204         draw(screen, screen->r, bg, nil, ZP);
 205 }
 206
 207 void
 208 flushmouse(int discard)
 209 {
 210         Mouse m;
 211
 212         if(nbrecvul(mc->resizec) > 0){
 213                 if(getwindow(display, Refnone) < 0)
 214                         sysfatal("resize failed: %r");
 215                 screeninit();
 216         }
 217         if(discard)
 218                 while(nbrecv(mc->c, &m) > 0)
 219                         ;
 220 }
 221
 222 void
 223 flushscreen(void)
 224 {
 225         if(scale == 1){
 226                 loadimage(fb, fb->r, pic, vwdx * vwdy * vwbpp);
 227                 draw(screen, picr, fb, nil, ZP);
 228         } else {
 229                 Rectangle r;
 230                 uchar *s;
 231                 int w;
 232
 233                 s = pic;
 234                 r = picr;
 235                 w = vwdx * vwbpp * scale;
 236                 while(r.min.y < picr.max.y){
 237                         loadimage(fb, fb->r, s, w);
 238                         s += w;
 239                         r.max.y = r.min.y+scale;
 240                         draw(screen, r, fb, nil, ZP);
 241                         r.min.y = r.max.y;
 242                 }
 243         }
 244         flushimage(display, 1);
 245         if(profile)
 246                 timing();
 247 }
 248
 249 void
 250 flushaudio(int (*audioout)(void))
 251 {
 252         static vlong old, delta;
 253         vlong new, diff;
 254
 255         if(audioout == nil || audioout() < 0 && !warp10){
 256                 new = nsec();
 257                 diff = 0;
 258                 if(old != 0){
 259                         diff = BILLION/60 - (new - old) - delta;
 260                         if(diff >= MILLION)
 261                                 sleep(diff/MILLION);
 262                 }
 263                 old = nsec();
 264                 if(diff > 0){
 265                         diff = (old - new) - (diff / MILLION) * MILLION;
 266                         delta += (diff - delta) / 100;
 267                 }
 268         }
 269         if(framestep){
 270                 paused = 1;
 271                 qlock(&pauselock);
 272                 framestep = 0;
 273         }
 274 }
 275
 276 void
 277 regkeyfn(Rune r, void (*fn)(void))
 278 {
 279         Kfn *kp;
 280
 281         for(kp=&kfn; kp->n!=nil; kp=kp->n)
 282                 ;
 283         kp->n = emalloc(sizeof *kp);
 284         kp->n->r = r;
 285         kp->n->fn = fn;
 286 }
 287
 288 void
 289 regkey(char *joyk, Rune r, int k)
 290 {
 291         Kfn *kp;
 292
 293         for(kp=&kkn; kp->n!=nil; kp=kp->n)
 294                 ;
 295         kp->n = emalloc(sizeof *kp);
 296         strncpy(kp->n->joyk, joyk, sizeof(kp->n->joyk)-1);
 297         if(strcmp(joyk, "up") == 0 || strcmp(joyk, "down") == 0)
 298                 ax0 |= k;
 299         if(strcmp(joyk, "left") == 0 || strcmp(joyk, "right") == 0)
 300                 ax1 |= k;
 301         kp->n->r = r;
 302         kp->n->k = k;
 303 }
 304
 305 void
 306 initemu(int dx, int dy, int bpp, ulong chan, int dokey, void(*kproc)(void*))
 307 {
 308         vwdx = dx;
 309         vwdy = dy;
 310         vwchan = chan;
 311         vwbpp = bpp;
 312         if(initdraw(nil, nil, nil) < 0)
 313                 sysfatal("initdraw: %r");
 314         mc = initmouse(nil, screen);
 315         if(mc == nil)
 316                 sysfatal("initmouse: %r");
 317         if(dokey)
 318                 proccreate(kproc != nil ? kproc : keyproc, nil, mainstacksize);
 319         if(kproc == nil)
 320                 proccreate(joyproc, nil, mainstacksize);
 321         bg = allocimage(display, Rect(0, 0, 1, 1), screen->chan, 1, 0xCCCCCCFF);
 322         screeninit();
 323 }