summary refs log tree commit diff stats
path: root/compiler/lambdalifting.nim
Commit message (Expand)AuthorAgeFilesLines
* simple closure iterator calling closure iterator works; refs #3837Andreas Rumpf2016-12-271-9/+15
* closure types get names; refs #4332Araq2016-11-291-16/+17
* minor steps to make closure iterators work with the JS backendAndreas Rumpf2016-09-121-0/+7
* fixes #4070Andreas Rumpf2016-05-111-0/+1
* fixes #3995Andreas Rumpf2016-04-031-0/+4
* no LL for PHPAndreas Rumpf2016-02-061-1/+2
* fixes #3730Araq2016-01-181-2/+6
* fixes yet another LL regression (Aporia compiles again)Andreas Rumpf2016-01-181-1/+1
* fixes iterator codegen regressionAndreas Rumpf2016-01-141-0/+3
* fixes yet another regressionAndreas Rumpf2016-01-131-3/+7
* fixes more regressionsAndreas Rumpf2016-01-131-1/+15
* fixes async regressionAndreas Rumpf2016-01-111-2/+5
* fixes all known regressionsAndreas Rumpf2016-01-061-1/+1
* fixes #2007Andreas Rumpf2016-01-051-2/+2
* minor bugfixAndreas Rumpf2016-01-041-3/+3
* fixes #2659Andreas Rumpf2016-01-041-1/+1
* fixes #3201, fixes #2766Andreas Rumpf2016-01-041-1/+2
* fixes #3636Andreas Rumpf2016-01-041-8/+13
* fixes #1725Andreas Rumpf2016-01-041-7/+12
* async works againAndreas Rumpf2016-01-031-20/+28
* further progress on closure iterators; tforum still failingAndreas Rumpf2016-01-031-15/+29
* next steps to produce working closure iteratorsAndreas Rumpf2016-01-031-64/+104
* made closure iterators tests green, updated docsAndreas Rumpf2015-12-311-12/+20
* closure iterators sometimes workAndreas Rumpf2015-12-301-2/+3
* LL works reasonably well; closure iterators still not implementedAndreas Rumpf2015-12-291-3/+9
* fixes missing 'illegal capture' error message regressionAndreas Rumpf2015-12-291-2/+2
* fixes closure generation when only paramters are capturedAndreas Rumpf2015-12-291-8/+23
* bootstrapping works againAndreas Rumpf2015-12-291-2/+4
* up references workAndreas Rumpf2015-12-281-35/+38
* new-ll: further progress (bootstrapping still fails)Andreas Rumpf2015-12-271-7/+13
* up references might work; got rid of debugging codeAndreas Rumpf2015-12-261-5/+3
* first implementation of the new lambda-lifting pass; barely anything worksAndreas Rumpf2015-12-261-737/+400
* lambda lifting support for iterToProc pluginAraq2015-12-011-11/+29
* fixes 3354Araq2015-09-231-2/+8
* fixes #3192Araq2015-08-071-1/+1
* fixes #3054Araq2015-07-051-1/+3
* Perform lambda lifting for compile-time stuff when targeting JS. Enable unitt...yglukhov2015-05-291-1/+5
* first implementation of overloading of '='; missing: rewriting let/var sectionsAraq2015-04-061-54/+54
* Fix typosFederico Ceratto2015-02-151-1/+1
* Fix typosFederico Ceratto2015-02-151-2/+2
* fixes #2023Araq2015-02-011-3/+3
* fixes #1803Araq2015-01-101-6/+22
* Happy new year!Guillaume Gelin2015-01-061-1/+1
* merged things from develAraq2014-09-121-1/+1
|\
| * fixes #665Araq2014-09-111-1/+1
* | updated the compiler to use the new symbol namesAraq2014-08-281-2/+2
* | Nimrod renamed to NimAraq2014-08-281-1/+1
* | renamefestAraq2014-08-231-1/+1
|/
* fixes yet another LL bugAraq2014-08-051-2/+9
* fixes subtle interaction between closures and 'yield'Araq2014-07-221-30/+74
="n">arg); const char *arg; } Key; KEYS #define CLEANMASK(mask) (mask & ~(numlockmask | LockMask)) #define MOUSEMASK (BUTTONMASK | PointerMotionMask) static Client * getclient(Window w) { Client *c; for(c = clients; c && c->win != w; c = c->next); return c; } static void movemouse(Client *c) { int x1, y1, ocx, ocy, di, nx, ny; unsigned int dui; Window dummy; XEvent ev; ocx = nx = c->x; ocy = ny = c->y; if(XGrabPointer(dpy, root, False, MOUSEMASK, GrabModeAsync, GrabModeAsync, None, cursor[CurMove], CurrentTime) != GrabSuccess) return; c->ismax = False; XQueryPointer(dpy, root, &dummy, &dummy, &x1, &y1, &di, &di, &dui); for(;;) { XMaskEvent(dpy, MOUSEMASK | ExposureMask | SubstructureRedirectMask, &ev); switch (ev.type) { case ButtonRelease: XUngrabPointer(dpy, CurrentTime); return; case ConfigureRequest: case Expose: case MapRequest: handler[ev.type](&ev); break; case MotionNotify: XSync(dpy, False); nx = ocx + (ev.xmotion.x - x1); ny = ocy + (ev.xmotion.y - y1); if(abs(wax + nx) < SNAP) nx = wax; else if(abs((wax + waw) - (nx + c->w + 2 * c->border)) < SNAP) nx = wax + waw - c->w - 2 * c->border; if(abs(way - ny) < SNAP) ny = way; else if(abs((way + wah) - (ny + c->h + 2 * c->border)) < SNAP) ny = way + wah - c->h - 2 * c->border; resize(c, nx, ny, c->w, c->h, False); break; } } } static void resizemouse(Client *c) { int ocx, ocy; int nw, nh; XEvent ev; ocx = c->x; ocy = c->y; if(XGrabPointer(dpy, root, False, MOUSEMASK, GrabModeAsync, GrabModeAsync, None, cursor[CurResize], CurrentTime) != GrabSuccess) return; c->ismax = False; XWarpPointer(dpy, None, c->win, 0, 0, 0, 0, c->w + c->border - 1, c->h + c->border - 1); for(;;) { XMaskEvent(dpy, MOUSEMASK | ExposureMask | SubstructureRedirectMask , &ev); switch(ev.type) { case ButtonRelease: XWarpPointer(dpy, None, c->win, 0, 0, 0, 0, c->w + c->border - 1, c->h + c->border - 1); XUngrabPointer(dpy, CurrentTime); while(XCheckMaskEvent(dpy, EnterWindowMask, &ev)); return; case ConfigureRequest: case Expose: case MapRequest: handler[ev.type](&ev); break; case MotionNotify: XSync(dpy, False); if((nw = ev.xmotion.x - ocx - 2 * c->border + 1) <= 0) nw = 1; if((nh = ev.xmotion.y - ocy - 2 * c->border + 1) <= 0) nh = 1; resize(c, c->x, c->y, nw, nh, True); break; } } } static void buttonpress(XEvent *e) { static char buf[32]; unsigned int i, x; Client *c; XButtonPressedEvent *ev = &e->xbutton; buf[0] = 0; if(barwin == ev->window) { x = 0; for(i = 0; i < ntags; i++) { x += textw(tags[i]); if(ev->x < x) { snprintf(buf, sizeof buf, "%d", i); if(ev->button == Button1) { if(ev->state & MODKEY) tag(buf); else view(buf); } else if(ev->button == Button3) { if(ev->state & MODKEY) toggletag(buf); else toggleview(buf); } return; } } if(ev->x < x + blw) switch(ev->button) { case Button1: setlayout(NULL); break; } } else if((c = getclient(ev->window))) { focus(c); if(CLEANMASK(ev->state) != MODKEY) return; if(ev->button == Button1 && (lt->arrange == floating || c->isfloating)) { restack(); movemouse(c); } else if(ev->button == Button2) zoom(NULL); else if(ev->button == Button3 && (lt->arrange == floating || c->isfloating) && !c->isfixed) { restack(); resizemouse(c); } } } static void configurerequest(XEvent *e) { Client *c; XConfigureRequestEvent *ev = &e->xconfigurerequest; XWindowChanges wc; if((c = getclient(ev->window))) { c->ismax = False; if(ev->value_mask & CWBorderWidth) c->border = ev->border_width; if(c->isfixed || c->isfloating || (lt->arrange == floating)) { if(ev->value_mask & CWX) c->x = ev->x; if(ev->value_mask & CWY) c->y = ev->y; if(ev->value_mask & CWWidth) c->w = ev->width; if(ev->value_mask & CWHeight) c->h = ev->height; if((c->x + c->w) > sw && c->isfloating) c->x = sw / 2 - c->w / 2; /* center in x direction */ if((c->y + c->h) > sh && c->isfloating) c->y = sh / 2 - c->h / 2; /* center in y direction */ if((ev->value_mask & (CWX | CWY)) && !(ev->value_mask & (CWWidth | CWHeight))) configure(c); if(isvisible(c)) XMoveResizeWindow(dpy, c->win, c->x, c->y, c->w, c->h); } else configure(c); } else { wc.x = ev->x; wc.y = ev->y; wc.width = ev->width; wc.height = ev->height; wc.border_width = ev->border_width; wc.sibling = ev->above; wc.stack_mode = ev->detail; XConfigureWindow(dpy, ev->window, ev->value_mask, &wc); } XSync(dpy, False); } static void configurenotify(XEvent *e) { XConfigureEvent *ev = &e->xconfigure; if (ev->window == root && (ev->width != sw || ev->height != sh)) { sw = ev->width; sh = ev->height; XFreePixmap(dpy, dc.drawable); dc.drawable = XCreatePixmap(dpy, root, sw, bh, DefaultDepth(dpy, screen)); XResizeWindow(dpy, barwin, sw, bh); updatebarpos(); lt->arrange(); } } static void destroynotify(XEvent *e) { Client *c; XDestroyWindowEvent *ev = &e->xdestroywindow; if((c = getclient(ev->window))) unmanage(c); } static void enternotify(XEvent *e) { Client *c; XCrossingEvent *ev = &e->xcrossing; if(ev->mode != NotifyNormal || ev->detail == NotifyInferior) return; if((c = getclient(ev->window))) focus(c); else if(ev->window == root) { selscreen = True; focus(NULL); } } static void expose(XEvent *e) { XExposeEvent *ev = &e->xexpose; if(ev->count == 0) { if(barwin == ev->window) drawstatus(); } } static void keypress(XEvent *e) { static unsigned int len = sizeof key / sizeof key[0]; unsigned int i; KeySym keysym; XKeyEvent *ev = &e->xkey; keysym = XKeycodeToKeysym(dpy, (KeyCode)ev->keycode, 0); for(i = 0; i < len; i++) if(keysym == key[i].keysym && CLEANMASK(key[i].mod) == CLEANMASK(ev->state)) { if(key[i].func) key[i].func(key[i].arg); } } static void leavenotify(XEvent *e) { XCrossingEvent *ev = &e->xcrossing; if((ev->window == root) && !ev->same_screen) { selscreen = False; focus(NULL); } } static void mappingnotify(XEvent *e) { XMappingEvent *ev = &e->xmapping; XRefreshKeyboardMapping(ev); if(ev->request == MappingKeyboard) grabkeys(); } static void maprequest(XEvent *e) { static XWindowAttributes wa; XMapRequestEvent *ev = &e->xmaprequest; if(!XGetWindowAttributes(dpy, ev->window, &wa)) return; if(wa.override_redirect) return; if(!getclient(ev->window)) manage(ev->window, &wa); } static void propertynotify(XEvent *e) { Client *c; Window trans; XPropertyEvent *ev = &e->xproperty; if(ev->state == PropertyDelete) return; /* ignore */ if((c = getclient(ev->window))) { switch (ev->atom) { default: break; case XA_WM_TRANSIENT_FOR: XGetTransientForHint(dpy, c->win, &trans); if(!c->isfloating && (c->isfloating = (getclient(trans) != NULL))) lt->arrange(); break; case XA_WM_NORMAL_HINTS: updatesizehints(c); break; } if(ev->atom == XA_WM_NAME || ev->atom == netatom[NetWMName]) { updatetitle(c); if(c == sel) drawstatus(); } } } static void unmapnotify(XEvent *e) { Client *c; XUnmapEvent *ev = &e->xunmap; if((c = getclient(ev->window))) unmanage(c); } /* extern */ void (*handler[LASTEvent]) (XEvent *) = { [ButtonPress] = buttonpress, [ConfigureRequest] = configurerequest, [ConfigureNotify] = configurenotify, [DestroyNotify] = destroynotify, [EnterNotify] = enternotify, [LeaveNotify] = leavenotify, [Expose] = expose, [KeyPress] = keypress, [MappingNotify] = mappingnotify, [MapRequest] = maprequest, [PropertyNotify] = propertynotify, [UnmapNotify] = unmapnotify }; void grabkeys(void) { static unsigned int len = sizeof key / sizeof key[0]; unsigned int i; KeyCode code; XUngrabKey(dpy, AnyKey, AnyModifier, root); for(i = 0; i < len; i++) { code = XKeysymToKeycode(dpy, key[i].keysym); XGrabKey(dpy, code, key[i].mod, root, True, GrabModeAsync, GrabModeAsync); XGrabKey(dpy, code, key[i].mod | LockMask, root, True, GrabModeAsync, GrabModeAsync); XGrabKey(dpy, code, key[i].mod | numlockmask, root, True, GrabModeAsync, GrabModeAsync); XGrabKey(dpy, code, key[i].mod | numlockmask | LockMask, root, True, GrabModeAsync, GrabModeAsync); } }