pluto-src 0.1.1+0.10.4

#include <cstring> // strcmp

#define LUA_LIB
#include "lualib.h"
#include "lstate.h" // luaE_incCstack

#include "vendor/Soup/soup/xml.hpp"

static soup::UniquePtr<soup::XmlNode> check_xml (lua_State *L, int i) {
  const auto type = lua_type(L, i);
  if (type == LUA_TTABLE) {
    lua_checkstack(L, 3);
    lua_pushvalue(L, i);
    lua_pushliteral(L, "tag");
    if (lua_rawget(L, -2) == LUA_TSTRING) {
      luaE_incCstack(L);
      auto tag = soup::make_unique<soup::XmlTag>();
      tag->name = pluto_checkstring(L, -1);
      lua_pop(L, 1);  /* pop result of lua_rawget */
      lua_pushliteral(L, "attributes");
      if (lua_rawget(L, -2) != LUA_TNONE) {
        if (lua_type(L, -1) == LUA_TTABLE) {
          lua_pushnil(L);
          while (lua_next(L, -2)) {
            lua_pushvalue(L, -2);
            tag->attributes.emplace_back(pluto_checkstring(L, -1), pluto_checkstring(L, -2));
            lua_pop(L, 2);
          }
        }
        lua_pop(L, 1);  /* pop result of lua_rawget */
      }
      lua_pushliteral(L, "children");
      if (lua_rawget(L, -2) != LUA_TNONE) {
        if (lua_type(L, -1) == LUA_TTABLE) {
          lua_pushnil(L);
          while (lua_next(L, -2)) {
            tag->children.emplace_back(check_xml(L, -1));
            lua_pop(L, 1);
          }
        }
        lua_pop(L, 1);  /* pop result of lua_rawget */
      }
      lua_pop(L, 1);  /* pop table from lua_pushvalue */
      L->nCcalls--;
      return tag;
    }
  }
  else if (type == LUA_TSTRING) {
    return soup::make_unique<soup::XmlText>(pluto_checkstring(L, i));
  }
  luaL_typeerror(L, i, "XML-castable type");
}

static int xml_encode (lua_State *L) {
  auto root = check_xml(L, 1);
  if (lua_istrue(L, 2)) {
    pluto_pushstring(L, root->encodePretty());
  }
  else {
    pluto_pushstring(L, root->encode());
  }
  return 1;
}

static void pushxmltag (lua_State *L, const soup::XmlTag& tag) {
  lua_checkstack(L, 4);
  lua_newtable(L);
  lua_pushliteral(L, "tag");
  pluto_pushstring(L, tag.name);
  lua_settable(L, -3);
  if (!tag.attributes.empty()) {
    lua_pushliteral(L, "attributes");
    lua_newtable(L);
    for (const auto& attr : tag.attributes) {
      pluto_pushstring(L, attr.first);
      pluto_pushstring(L, attr.second);
      lua_settable(L, -3);
    }
    lua_settable(L, -3);
  }
  if (!tag.children.empty()) {
    lua_pushliteral(L, "children");
    lua_newtable(L);
    lua_Integer i = 1;
    for (const auto& child : tag.children) {
      lua_pushinteger(L, i++);
      if (child->isTag()) {
        pushxmltag(L, child->asTag());
      }
      else /*if (child->isText())*/ {
        pluto_pushstring(L, child->asText().contents);
      }
      lua_settable(L, -3);
    }
    lua_settable(L, -3);
  }

  if (luaL_newmetatable(L, "pluto:xml_full_node")) {
    lua_pushliteral(L, "__index");
    lua_pushcfunction(L, [](lua_State *L) -> int {
      lua_pushliteral(L, "children");
      if (lua_rawget(L, 1) > LUA_TNIL) {
        lua_pushnil(L);
        while (lua_next(L, -2)) {
          if (lua_type(L, -1) == LUA_TTABLE) {
            lua_pushliteral(L, "tag");
            lua_rawget(L, -2);
            if (lua_compare(L, 2, -1, LUA_OPEQ)) {
              lua_pop(L, 1);
              return 1;
            }
            lua_pop(L, 1);
          }
          lua_pop(L, 1);
        }
      }
      return 0;
    });
    lua_settable(L, -3);
  }
  lua_setmetatable(L, -2);
}

static int xml_decode (lua_State *L) {
  const soup::XmlMode *mode = &soup::xml::MODE_XML;
  if (lua_gettop(L) >= 2) {
    const char *modename = luaL_checkstring(L, 2);
    if (strcmp(modename, "html") == 0)
      mode = &soup::xml::MODE_HTML;
    else if (strcmp(modename, "lax") == 0)
      mode = &soup::xml::MODE_LAX_XML;
    else if (strcmp(modename, "xml") != 0)
      luaL_error(L, "unknown parser mode '%s'", modename);
  }
  size_t len;
  const char *data = luaL_checklstring(L, 1, &len);
  soup::UniquePtr<soup::XmlTag> root;
  try {
    root = soup::xml::parseAndDiscardMetadata(data, data + len, *mode);
  }
  catch (const std::exception& e) {
	luaL_error(L, e.what());
  }
  pushxmltag(L, *root);
  return 1;
}

static const luaL_Reg funcs_xml[] = {
  {"encode", xml_encode},
  {"decode", xml_decode},
  {nullptr, nullptr}
};

PLUTO_NEWLIB(xml)