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

#define LUA_LIB
#include "lualib.h"

#include "vendor/Soup/soup/Uri.hpp"
#include "vendor/Soup/soup/urlenc.hpp"


static int url_encode (lua_State* L) {
  const auto input = pluto_checkstring(L, 1);
  pluto_pushstring(L, soup::urlenc::encode(input));
  return 1;
}


static int url_decode (lua_State *L) {
  const auto input = pluto_checkstring(L, 1);
  pluto_pushstring(L, soup::urlenc::decode(input));
  return 1;
}


static int url_parse (lua_State *L) {
  lua_newtable(L);
  soup::Uri uri(pluto_checkstring(L, 1));
  pluto_pushstring(L, uri.scheme);
  lua_setfield(L, -2, "scheme");
  pluto_pushstring(L, uri.host);
  lua_setfield(L, -2, "host");
  lua_pushinteger(L, uri.port);
  lua_setfield(L, -2, "port");
  pluto_pushstring(L, uri.user);
  lua_setfield(L, -2, "user");
  pluto_pushstring(L, uri.pass);
  lua_setfield(L, -2, "pass");
  pluto_pushstring(L, uri.path);
  lua_setfield(L, -2, "path");
  pluto_pushstring(L, uri.query);
  lua_setfield(L, -2, "query");
  pluto_pushstring(L, uri.fragment);
  lua_setfield(L, -2, "fragment");
  return 1;
}


static const luaL_Reg funcs_url[] = {
  {"encode", url_encode},
  {"decode", url_decode},
  {"parse", url_parse},
  {nullptr, nullptr}
};

PLUTO_NEWLIB(url)