summaryrefslogtreecommitdiff
path: root/Build/source/texk/kpathsea/kdefault.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/kpathsea/kdefault.c')
-rw-r--r--Build/source/texk/kpathsea/kdefault.c125
1 files changed, 0 insertions, 125 deletions
diff --git a/Build/source/texk/kpathsea/kdefault.c b/Build/source/texk/kpathsea/kdefault.c
deleted file mode 100644
index a0fc268eec3..00000000000
--- a/Build/source/texk/kpathsea/kdefault.c
+++ /dev/null
@@ -1,125 +0,0 @@
-/* kdefault.c: expand extra colons.
- (This is not named default.c because then the OSF/1 make tries to
- make a program `default' from it, since we have a target `default';
- and OSF/1 make doesn't understand .PHONY.)
-
- Copyright 1993, 1994, 1996, 2008, 2009, 2011, 2017 Karl Berry.
- Copyright 2002, 2005 Olaf Weber.
-
- This library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version.
-
- This library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
-
- You should have received a copy of the GNU Lesser General Public License
- along with this library; if not, see <http://www.gnu.org/licenses/>. */
-
-#include <kpathsea/config.h>
-
-#include <kpathsea/c-pathch.h>
-#include <kpathsea/default.h>
-
-
-/* Check for leading colon first, then trailing, then doubled, since
- that is fastest. Usually it will be leading or trailing. */
-
-string
-kpathsea_expand_default (kpathsea kpse, const_string path,
- const_string fallback)
-{
- unsigned path_length;
- string expansion;
-
- (void) kpse; /* unused */
-
- /* The default path better not be null. */
- assert (fallback);
-
- if (path == NULL || *path == 0)
- expansion = xstrdup (fallback);
-
- /* Solitary or leading :? */
- else if (IS_ENV_SEP (*path))
- {
- expansion = path[1] == 0 ? xstrdup (fallback) : concat (fallback, path);
- }
-
- /* Sorry about the assignment in the middle of the expression, but
- conventions were made to be flouted and all that. I don't see the
- point of calling strlen twice or complicating the logic just to
- avoid the assignment (especially now that I've pointed it out at
- such great length). */
- else if (path[(path_length = strlen (path)) - 1] == ENV_SEP)
- expansion = concat (path, fallback);
-
- /* OK, not leading or trailing. Check for doubled. */
- else
- {
- const_string loc;
-
- for (loc = path; *loc; loc++)
- if (IS_ENV_SEP (loc[0]) && IS_ENV_SEP (loc[1]))
- break;
- if (*loc)
- { /* We have a doubled colon. */
- expansion = (string)xmalloc (path_length + strlen(fallback) + 1);
-
- /* Copy stuff up to and including the first colon. */
- strncpy (expansion, path, loc - path + 1);
- expansion[loc - path + 1] = 0;
-
- /* Copy in FALLBACK, and then the rest of PATH. */
- strcat (expansion, fallback);
- strcat (expansion, loc + 1);
- }
- else
- { /* No doubled colon. */
- expansion = xstrdup(path);
- }
- }
-
- return expansion;
-}
-
-#ifdef TEST
-
-void
-test_expand_default (const_string path, const_string def)
-{
- string answer;
-
- printf ("Expansion of `%s':\t", path ? path : "(nil)");
- answer = kpathsea_expand_default (kpse_def, path, def);
- puts (answer);
-}
-
-int
-main ()
-{
- string default_path = "default";
-
- test_expand_default (NULL, default_path);
- test_expand_default ("", default_path);
- test_expand_default ("none", default_path);
- test_expand_default (ENV_SEP_STRING, default_path);
- test_expand_default (ENV_SEP_STRING "first", default_path);
- test_expand_default ("last" ENV_SEP_STRING, default_path);
- test_expand_default ("middle" ENV_SEP_STRING ENV_SEP_STRING "elddim",
- default_path);
-
- return 0;
-}
-
-#endif /* TEST */
-
-
-/*
-Local variables:
-standalone-compile-command: "gcc -g -I. -I.. -DTEST kdefault.c kpathsea.a"
-End:
-*/