pluto-src 0.1.1+0.10.4

Sources of Pluto (Lua 5.4 dialect) and logic to build it.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

#define LUA_LIB
#include "lualib.h"

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

static soup::Regex* checkregex (lua_State *L, int i) {
  return (soup::Regex*)luaL_checkudata(L, i, "pluto:regex");
}

static int regex_new (lua_State *L) {
  new (lua_newuserdata(L, sizeof(soup::Regex))) soup::Regex{ soup::Regex::fromFullString(pluto_checkstring(L, 1)) };
  if (luaL_newmetatable(L, "pluto:regex")) {
    lua_pushliteral(L, "__index");
    luaL_loadbuffer(L, "return require\"pluto:regex\"", 27, 0);
    lua_call(L, 0, 1);
    lua_settable(L, -3);
    lua_pushliteral(L, "__gc");
    lua_pushcfunction(L, [](lua_State *L) {
      std::destroy_at<>(checkregex(L, 1));
      return 0;
    });
    lua_settable(L, -3);
  }
  lua_setmetatable(L, -2);
  return 1;
}

static int regex_match (lua_State *L) {
  size_t len;
  const char *str = luaL_checklstring(L, 2, &len);
  auto res = checkregex(L, 1)->match(str, str + len);
  if (res.isSuccess()) {
    lua_newtable(L);
    for (size_t i = 0; i != res.groups.size(); ++i) {
      if (res.groups[i].has_value()) {
        if (res.groups[i]->name.empty())
          lua_pushinteger(L, i);
        else
          pluto_pushstring(L, res.groups[i]->name);
        lua_pushlstring(L, res.groups[i]->begin, res.groups[i]->length());
        lua_settable(L, -3);
      }
    }
  }
  else {
    luaL_pushfail(L);
  }
  return 1;
}

static const luaL_Reg funcs_regex[] = {
  {"new", regex_new},
  {"match", regex_match},
  {nullptr, nullptr}
};
PLUTO_NEWLIB(regex);