brainfuck.js

macro bf {
  case : { $body ... } => {
    (function() {
      var env = {
        p: 0,
        b: [],
        buf: new Buffer(1)
      };
      bf_tokenizer[env]($body ...);
    })();
  }
}

macro bf_tokenizer {
  case [$env]($head) => {
    bf_evaluator[$env]($head)
  }
  case [$env]($head $rest ...) => {
    bf_evaluator[$env]($head)
    bf_tokenizer[$env]($rest ...)
  }
}

macro bf_evaluator {
  case [$env](>) => {
    $env.p++;
  }
  case [$env](<) => {
    $env.p--;
  }
  case [$env](+) => {
    $env.b[$env.p] = -~$env.b[$env.p];
  }
  case [$env](-) => {
    $env.b[$env.p] = ~-$env.b[$env.p];
  }
  case [$env](.) => {
    process.stdout.write(String.fromCharCode($env.b[$env.p]));
  }
  case [$env](,) => {
    if (require('fs').readSync(process.stdin.fd, $env.buf, 0, 1) > 0) { $env.b[$env.p] = $env.buf[0]; }
  }
  case [$env]([]) => {
    while ($env.b[$env.p]) {}
  }
  case [$env]([$body ...]) => {
    while ($env.b[$env.p]) {
      bf_tokenizer[$env]($body ...);
    }
  }
  case [$env](>>) => {
    bf_evaluator[$env](>)
    bf_evaluator[$env](>)
  }
  case [$env](>>>) => {
    bf_evaluator[$env](>)
    bf_evaluator[$env](>)
    bf_evaluator[$env](>)
  }
  case [$env](<<) => {
    bf_evaluator[$env](<)
    bf_evaluator[$env](<)
  }
  case [$env](++) => {
    bf_evaluator[$env](+)
    bf_evaluator[$env](+)
  }
  case [$env](--) => {
    bf_evaluator[$env](-)
    bf_evaluator[$env](-)
  }
  case [$env](... $rest ...) => {
    bf_evaluator[$env](.)
    bf_evaluator[$env](.)
    bf_evaluator[$env](.)
  }
}

bf: {
+++++++++[>++++++++>+++++++++++>+++++<<<-]>.>++.+++++++..+++.>-.
------------.<++++++++.--------.+++.------.--------.>+.
}