summaryrefslogtreecommitdiff
path: root/Build/source/texk/mendexk/kp.c
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
committerKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
commitad547a6b5986815fda458221149728d9d9ab1d87 (patch)
tree16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/mendexk/kp.c
parent947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff)
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/mendexk/kp.c')
-rw-r--r--Build/source/texk/mendexk/kp.c48
1 files changed, 48 insertions, 0 deletions
diff --git a/Build/source/texk/mendexk/kp.c b/Build/source/texk/mendexk/kp.c
new file mode 100644
index 00000000000..7633f8ebfc4
--- /dev/null
+++ b/Build/source/texk/mendexk/kp.c
@@ -0,0 +1,48 @@
+/* Written by K.Asayayam Sep. 1995 */
+
+#include "mendex.h"
+#include <kpathsea/expand.h>
+#include <kpathsea/pathsearch.h>
+
+#include "kp.h"
+
+/* KP_get_path(char *var, char *def_val)
+ ARGUMENTS:
+ char *var: name of variable.
+ char *def_val: default value.
+ */
+static const char *KP_get_path(const char *var, const char *def_val)
+{
+ char avar[264];
+ const char *p;
+ strcpy(avar, "${");
+ strncat(avar, var, 260);
+ strcat(avar, "}");
+ p = kpse_path_expand(avar);
+ return (p && *p) ? p : def_val;
+}
+
+/*
+ */
+void KP_entry_filetype(KpathseaSupportInfo *info)
+{
+ info->path = KP_get_path(info->var_name,info->path);
+}
+
+/* KP_find_file(KpathseaSupportInfo *info, char *name)
+ ARGUMENTS:
+ KpathseaSupportInfo *info: Informations about the type of files.
+ char *name: Name of file.
+ */
+const char *KP_find_file(KpathseaSupportInfo *info, const char *name)
+{
+ char *ret;
+ ret = kpse_path_search(info->path,name,1);
+ if (!ret && info->suffix && !find_suffix(name)) {
+ char *suff_name;
+ suff_name = concat3(name,".",info->suffix);
+ ret = kpse_path_search(info->path,suff_name,1);
+ free(suff_name);
+ }
+ return ret ? ret : name;
+}