summaryrefslogtreecommitdiff
path: root/Build/source/texk/kpathsea/concatn.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/kpathsea/concatn.c')
-rw-r--r--Build/source/texk/kpathsea/concatn.c72
1 files changed, 0 insertions, 72 deletions
diff --git a/Build/source/texk/kpathsea/concatn.c b/Build/source/texk/kpathsea/concatn.c
deleted file mode 100644
index 4e0b9eb923d..00000000000
--- a/Build/source/texk/kpathsea/concatn.c
+++ /dev/null
@@ -1,72 +0,0 @@
-/* concatn.c: concatenate an arbitrary number of strings.
-
- Copyright 1993, 1995, 2008, 2009 Karl Berry.
- Copyright 1999, 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/concatn.h>
-
-
-/* OK, it would be epsilon more efficient to compute the total length
- and then do the copying ourselves, but I doubt it matters in reality. */
-
-string
-concatn (const_string str1, ...)
-{
- string arg;
- string ret;
- va_list ap;
-
- if (!str1)
- return NULL;
-
- ret = xstrdup (str1);
-
- va_start (ap, str1);
- while ((arg = va_arg (ap, string)) != NULL)
- {
- string temp = concat (ret, arg);
- free (ret);
- ret = temp;
- }
- va_end (ap);
-
- return ret;
-}
-
-#ifdef TEST
-int
-main ()
-{
- printf ("null = \"%s\"\n", concatn (NULL));
- printf ("\"a\" = \"%s\"\n", concatn ("a", NULL));
- printf ("\"ab\" = \"%s\"\n", concatn ("a", "b", NULL));
- printf ("\"abc\" = \"%s\"\n", concatn ("a", "b", "c", NULL));
- printf ("\"abcd\" = \"%s\"\n", concatn ("ab", "cd", NULL));
- printf ("\"abcde\" = \"%s\"\n", concatn ("ab", "c", "de", NULL));
- printf ("\"abcdef\" = \"%s\"\n", concatn ("", "a", "", "bcd", "ef", NULL));
- return 0;
-}
-
-#endif /* TEST */
-
-
-/*
-Local variables:
-standalone-compile-command: "gcc -posix -g -I. -I.. -DTEST concatn.c kpathsea.a"
-End:
-*/