103 lines
2.2 KiB
C
103 lines
2.2 KiB
C
#include "luaharfbuzz.h"
|
|
|
|
static int shape_full (lua_State *L) {
|
|
Font *font = (Font *)luaL_checkudata(L, 1, "harfbuzz.Font");
|
|
Buffer *buf = (Buffer *)luaL_checkudata(L, 2, "harfbuzz.Buffer");
|
|
luaL_checktype(L, 3, LUA_TTABLE);
|
|
luaL_checktype(L, 4, LUA_TTABLE);
|
|
|
|
unsigned int num_features = lua_rawlen(L, 3);
|
|
Feature *features = (Feature *) malloc (num_features * sizeof(hb_feature_t));
|
|
|
|
for (unsigned int i = 0; i != num_features; ++i) {
|
|
lua_geti(L, 3, i + 1);
|
|
Feature* f = (Feature *)luaL_checkudata(L, -1, "harfbuzz.Feature");
|
|
features[i] = *f;
|
|
lua_pop(L, 1);
|
|
}
|
|
|
|
const char **shapers = NULL;
|
|
size_t num_shapers = lua_rawlen(L, 4);
|
|
if (num_shapers) {
|
|
shapers = (const char**) calloc (num_shapers + 1, sizeof(char*));
|
|
for (unsigned int i = 0; i != num_shapers; ++i) {
|
|
lua_geti(L, 4, i + 1);
|
|
shapers[i] = luaL_checkstring(L, -1);
|
|
lua_pop(L, 1);
|
|
}
|
|
}
|
|
|
|
// Shape text
|
|
lua_pushboolean(L, hb_shape_full(*font, *buf, features, num_features, shapers));
|
|
|
|
free(features);
|
|
free(shapers);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static int version (lua_State *L) {
|
|
lua_pushstring(L, hb_version_string());
|
|
return 1;
|
|
}
|
|
|
|
static int list_shapers (lua_State *L) {
|
|
const char **shaper_list = hb_shape_list_shapers ();
|
|
int i = 0;
|
|
|
|
for (; *shaper_list; shaper_list++) {
|
|
i++;
|
|
lua_pushstring(L, *shaper_list);
|
|
}
|
|
return i;
|
|
}
|
|
|
|
static const struct luaL_Reg lib_table [] = {
|
|
{"shape_full", shape_full},
|
|
{"version", version},
|
|
{"shapers", list_shapers},
|
|
{NULL, NULL}
|
|
};
|
|
|
|
int luaopen_luaharfbuzz (lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
register_blob(L);
|
|
lua_setfield(L, -2, "Blob");
|
|
|
|
register_face(L);
|
|
lua_setfield(L, -2, "Face");
|
|
|
|
register_font(L);
|
|
lua_setfield(L, -2, "Font");
|
|
|
|
register_buffer(L);
|
|
lua_setfield(L, -2, "Buffer");
|
|
|
|
register_feature(L);
|
|
lua_setfield(L, -2, "Feature");
|
|
|
|
register_tag(L);
|
|
lua_setfield(L, -2, "Tag");
|
|
|
|
register_script(L);
|
|
lua_setfield(L, -2, "Script");
|
|
|
|
register_direction(L);
|
|
lua_setfield(L, -2, "Direction");
|
|
|
|
register_language(L);
|
|
lua_setfield(L, -2, "Language");
|
|
|
|
register_ot(L);
|
|
lua_setfield(L, -2, "ot");
|
|
|
|
register_unicode(L);
|
|
lua_setfield(L, -2, "unicode");
|
|
|
|
luaL_setfuncs(L, lib_table, 0);
|
|
|
|
return 1;
|
|
}
|
|
|