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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#include <stdio.h>
#include <ctype.h>
#include <lua.h>
#include <lauxlib.h>
#include <mkdio.h>
static const char *const discount_opts[] = {
"nolinks", "noimage", "nopants", "nohtml", "strict", "tagtext", "no_ext",
"cdata", "nosuperscript", "norelaxed", "notables", "nostrikethrough", "toc",
"compat", "autolink", "safelink", "noheader", "tabstop", "nodivquote",
"noalphalist", "nodlist", "extra_footnote", "nostyle", "embed", NULL};
static const int discount_opts_codes[] = {
MKD_NOLINKS, MKD_NOIMAGE, MKD_NOPANTS, MKD_NOHTML, MKD_STRICT, MKD_TAGTEXT,
MKD_NO_EXT, MKD_CDATA, MKD_NOSUPERSCRIPT, MKD_NORELAXED, MKD_NOTABLES,
MKD_NOSTRIKETHROUGH, MKD_TOC, MKD_1_COMPAT, MKD_AUTOLINK, MKD_SAFELINK,
MKD_NOHEADER, MKD_TABSTOP, MKD_NODIVQUOTE, MKD_NOALPHALIST, MKD_NODLIST,
MKD_EXTRA_FOOTNOTE, MKD_NOSTYLE, MKD_EMBED};
static int ldiscount(lua_State *L)
{
size_t len;
const char *str = luaL_checklstring(L, 1, &len);
int flags = 0;
int num_args = lua_gettop(L);
MMIOT *doc;
int i;
for (i = 2; i <= num_args; i++) {
int opt_index = luaL_checkoption(L, i, NULL, discount_opts);
flags |= discount_opts_codes[opt_index];
}
doc = mkd_string(str, len, MKD_TABSTOP | MKD_NOHEADER);
if (mkd_compile(doc, flags)) {
char *result;
int result_size = mkd_document(doc, &result);
lua_pushlstring(L, result, result_size);
mkd_cleanup(doc);
return 1;
} else {
mkd_cleanup(doc);
return luaL_error(L, "error converting document to markdown");
}
}
static int ldiscount__call(lua_State *L)
{
luaL_checktype(L, 1, LUA_TTABLE);
lua_remove(L, 1);
return ldiscount(L);
}
static const struct luaL_Reg ldiscount_meta[] = {{"__call", ldiscount__call},
{NULL, NULL}};
static const struct luaL_Reg ldiscount_funcs[] = {{"to_html", ldiscount},
{NULL, NULL}};
LUALIB_API int luaopen_discount(lua_State *L)
{
// Give the discount table a metatable
#if (LUA_VERSION_NUM == 501)
luaL_register(L, "discount", ldiscount_funcs);
lua_newtable(L);
luaL_register(L, NULL, ldiscount_meta);
lua_setmetatable(L, -2);
#elif(LUA_VERSION_NUM == 502)
luaL_newlib(L, ldiscount_funcs);
lua_newtable(L);
luaL_setfuncs(L, ldiscount_meta, 0);
lua_setmetatable(L, -2);
#else
#error "Unsupported Lua version"
#endif
return 1;
}
|