static int lua_kpathsea_new(lua_State * L)
{
kpathsea kpse = NULL;
kpathsea *kp = NULL;
const char *av = luaL_checkstring(L, 1);
const char *liar = luaL_optstring(L, 2, av);
kpse = kpathsea_new();
kpathsea_set_program_name(kpse, av, liar);
kp = (kpathsea *) lua_newuserdata(L, sizeof(kpathsea *));
*kp = kpse;
luaL_getmetatable(L, KPATHSEA_METATABLE);
lua_setmetatable(L, -2);
return 1;
}
int
main (int argc, char **argv)
{
kpathsea kpse = xcalloc(1, sizeof(kpathsea_instance));
kpathsea_set_program_name(kpse, argv[0], NULL);
puts (remove_dots (kpse,"/w/kpathsea"));
puts (remove_dots (kpse,"/w//kpathsea"));
puts (remove_dots (kpse,"/w/./kpathsea"));
puts (remove_dots (kpse,"."));
puts (remove_dots (kpse,"./"));
puts (remove_dots (kpse,"./."));
puts (remove_dots (kpse,"../kpathsea"));
puts (remove_dots (kpse,"/kpathsea/../foo"));
puts (remove_dots (kpse,"/../w/kpathsea"));
puts (remove_dots (kpse,"/../w/kpathsea/."));
puts (remove_dots (kpse,"/te/share/texmf/../../../../bin/gnu"));
}
int
main (int argc, char **argv)
{
kpathsea kpse = xcalloc(1, sizeof(kpathsea_instance));
kpathsea_set_program_name(kpse, argv[0], NULL);
kpathsea_xputenv (kpse, "KPATHSEA_DPI", "781"); /* call mktexpk */
kpathsea_xputenv (kpse,"MAKETEX_BASE_DPI", "300"); /* call mktexpk */
kpathsea_set_program_enabled(kpse, kpse_pk_format, 1, kpse_src_env);
test_make_tex (kpse, kpse_pk_format, "cmr10");
/* Fail with mktextfm. */
kpathsea_set_program_enabled(kpse, kpse_tfm_format, 1, kpse_src_env);
test_make_tex (kpse, kpse_tfm_format, "foozler99");
/* Call something disabled. */
test_make_tex (kpse, kpse_bst_format, "no-way");
return 0;
}
int main(int argc, char **argv)
{
const char **p;
kpathsea kpse = kpathsea_new();
kpathsea_set_program_name (kpse, argv[0], NULL);
printf("\n%s: name -> xdirname(name) + xbasename(name)\n\n",
kpse->invocation_short_name);
for (p = tab; *p; p++) {
char *q = xdirname(*p);
printf("%s -> %s + %s\n", *p, q, xbasename(*p));
free (q);
}
#if defined (WIN32)
kanji_test();
#endif
return 0;
}
void
kpse_set_progname (const_string argv0)
{
kpathsea_set_program_name (kpse_def, argv0, NULL);
}
void
kpse_set_program_name (const_string argv0, const_string progname)
{
kpathsea_set_program_name (kpse_def, argv0, progname);
}
