diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/lua/lkpselib.c')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/lua/lkpselib.c | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/lua/lkpselib.c b/Build/source/texk/web2c/luatexdir/lua/lkpselib.c index f76d09e5bfd..a0dcbfd2181 100644 --- a/Build/source/texk/web2c/luatexdir/lua/lkpselib.c +++ b/Build/source/texk/web2c/luatexdir/lua/lkpselib.c @@ -350,6 +350,15 @@ static int in_name_ok(lua_State * L) return 1; } +static int in_name_ok_silent_extended(lua_State * L) +{ + const char *st = luaL_checkstring(L, 1); + TEST_PROGRAM_NAME_SET; + lua_pushboolean(L, kpse_in_name_ok_silent_extended(st)); + return 1; +} + + static int lua_kpathsea_in_name_ok(lua_State * L) { kpathsea *kp = (kpathsea *) luaL_checkudata(L, 1, KPATHSEA_METATABLE); @@ -358,6 +367,17 @@ static int lua_kpathsea_in_name_ok(lua_State * L) return 1; } +static int lua_kpathsea_in_name_ok_silent_extended(lua_State * L) +{ + kpathsea *kp = (kpathsea *) luaL_checkudata(L, 1, KPATHSEA_METATABLE); + const char *st = luaL_checkstring(L, 2); + lua_pushboolean(L, kpathsea_in_name_ok_silent_extended(*kp,st)); + return 1; +} + + + + static int out_name_ok(lua_State * L) { const char *st = luaL_checkstring(L, 1); @@ -366,6 +386,14 @@ static int out_name_ok(lua_State * L) return 1; } +static int out_name_ok_silent_extended(lua_State * L) +{ + const char *st = luaL_checkstring(L, 1); + TEST_PROGRAM_NAME_SET; + lua_pushboolean(L, kpse_out_name_ok_silent_extended(st)); + return 1; +} + static int lua_kpathsea_out_name_ok(lua_State * L) { kpathsea *kp = (kpathsea *) luaL_checkudata(L, 1, KPATHSEA_METATABLE); @@ -374,6 +402,16 @@ static int lua_kpathsea_out_name_ok(lua_State * L) return 1; } +static int lua_kpathsea_out_name_ok_silent_extended(lua_State * L) +{ + kpathsea *kp = (kpathsea *) luaL_checkudata(L, 1, KPATHSEA_METATABLE); + const char *st = luaL_checkstring(L, 2); + lua_pushboolean(L, kpathsea_out_name_ok_silent_extended(*kp,st)); + return 1; +} + + + static int expand_path(lua_State * L) { @@ -1021,7 +1059,9 @@ static const struct luaL_Reg kpselib_m[] = { {"expand_var", lua_kpathsea_expand_var}, {"expand_braces", lua_kpathsea_expand_braces}, {"in_name_ok", lua_kpathsea_in_name_ok}, + {"in_name_ok_silent_extended", lua_kpathsea_in_name_ok_silent_extended}, {"out_name_ok", lua_kpathsea_out_name_ok}, + {"out_name_ok_silent_extended", lua_kpathsea_out_name_ok_silent_extended}, {"var_value", lua_kpathsea_var_value}, {"show_path", lua_kpathsea_show_path}, {"lookup", lua_kpathsea_lookup}, @@ -1043,7 +1083,9 @@ static const struct luaL_Reg kpselib_l[] = { {"expand_var", expand_var}, {"expand_braces", expand_braces}, {"in_name_ok",in_name_ok}, + {"in_name_ok_silent_extended",in_name_ok_silent_extended}, {"out_name_ok",out_name_ok}, + {"out_name_ok_silent_extended",out_name_ok_silent_extended}, {"var_value", var_value}, {"show_path", show_path}, {"lookup", lua_kpse_lookup}, |