On Fri, Sep 25, 2015 at 07:16:41PM -0400, Clem Cole wrote: Tcl (really tk, but tcl implements it) has this. You bind an event to a subroutine and when the event happens it jumps into that subroutine, just like an AST (with similar rules about calling context etc). Mainly used for GUI programming where it fits nicely but one useful thing is you can post fake events. That makes it possible to write regressions for gui code which is *awesome*. --larry "still using tcl/tk after all these years" mcvoy P.S. We're not crazy, we implemented a C like language that compiles down to tcl byte codes so we don't have to deal with tcl very much. Here's what that looks like, this is a little script that I use like tail -f access.log | awk { print $1, $7 } | bk tclsh dns.l It's like C with some perl goodness thrown in: void main(void) { string buf; string ip, file; while (buf = <>) { if (buf =~ /^\s*([0-9.]+)\s*$/) { ip = $1; buf = `host ${ip}`; if (buf =~ /not found/ || buf =~ /has no PTR record/) { printf("%s\n", ip); } else unless (skip(buf)) { buf =~ /([^ ]+$)/; printf("%s\n", $1); } continue; } buf =~ /([0-9.]+)\s+(.*)/; ip = $1; file = $2; if (file =~ /assets/) continue; if (file =~ /favicon/) continue; /* unless (exists("/home/bk/homepage-live/public/${file}")) { file .= " (NOT FOUND)"; } */ buf = `host ${ip}`; if (buf =~ /not found/ || buf =~ /has no PTR record/) { printf("%s %s\n", ip, file); continue; } if (skip(buf)) continue; buf =~ /([^ ]+$)/; printf("%s %s\n", $1, file); } } int skip(string host) { switch (host) { case /crawl/: case /spider/: case /msnbot/: return (1); } return (0); }

Dave Horsfall scripsit: I read the paper when it was last mentioned on the list, and it's indeed impressive: more like awk than perl, except in a few particulars. Someone asked me once how I dared to use the .sig below. I replied that I come from New Jersey, where the very hero sandwiches in kids' school lunches are made from shoggoth meat, and I now live in NYC, where the banks foreclosed on sunken R'lyeh. They're probably going for a controlling interest in blue-litten K'nyan, red-litten Yoth, and Black N'kai even now. Gotta diversify in these degenerate days, y'know. (About the name: Abdul al-Hazred is an ill-formed expression in Arabic, having two definite articles in a row. Correcting it to Abdullah al-Hazred, which inserts the Divine Name between the articles, gives the reasonable Arabic name -- or more likely, alias -- "servant of God the Forbidden". IRL it's an exoticized version of Hazard, the surname of some of Lovecraft's ancestors.) -- John Cowan http://www.ccil.org/~cowan cowan(a)ccil.org La mayyitan ma qadirun yatabaqqa sarmadi Fa idha yaji' al-shudhdhadh fa-l-maut qad yantahi. --Abdullah al-Hazred, Al-`Azif