!752

lib 1004739 // (latest?) aibo

import org.luaj.vm2.parser.LuaParserTokenManager;
import org.luaj.vm2.parser.LuaParserConstants;
import org.luaj.vm2.parser.Token;
import org.luaj.vm2.parser.SimpleCharStream;

p {
  S lua = [[
    function entry0 (o)
      N=N + 1
      local title = o.title or '(no title)'
      fwrite('<LI><A HREF="#%d">%s</A>\n', N, title)
    end
  ]];
  
  SimpleCharStream scs = new SimpleCharStream(new StringReader(lua));
  LuaParserTokenManager tm = new LuaParserTokenManager(scs);
  
  Token t;
  while (licensed() && (t = tm.getNextToken()).kind != LuaParserConstants.EOF) {
    S kindName = get(LuaParserConstants.tokenImage, t.kind);
    print("Token: " + quote(t.image) + " (kind: " + t.kind + " / " + kindName + ")");
  }
}

Began life as a copy of #1004741