summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/lib/basechsuffix.c
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/lib/basechsuffix.c
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/lib/basechsuffix.c')
-rw-r--r--Build/source/texk/web2c/lib/basechsuffix.c43
1 files changed, 0 insertions, 43 deletions
diff --git a/Build/source/texk/web2c/lib/basechsuffix.c b/Build/source/texk/web2c/lib/basechsuffix.c
deleted file mode 100644
index cd17d5c45ac..00000000000
--- a/Build/source/texk/web2c/lib/basechsuffix.c
+++ /dev/null
@@ -1,43 +0,0 @@
-/* basechsuffix.c: replace the last bit of a filename with something else.
-
- Written in 1995 by Karl Berry. Public domain. */
-
-#include <w2c/config.h>
-#include "lib.h"
-
-/* Return the basename of NAME, with trailing characters OLD replaced by
- NEW. (If last characters in NAME are not OLD, just append NEW.)
- Since this is used to turn, e.g., foo/cmr10.300pk -> cmr10.300gf,
- don't assume a `.' preceding OLD or NEW.
-
- In other words, we're implementing `basename NAME OLD`NEW. */
-
-string
-basenamechangesuffix (const_string name, const_string old_suffix,
- const_string new_suffix)
-{
- string answer;
- unsigned c;
- const_string base = xbasename (name);
- unsigned base_len = strlen (base);
- unsigned copy_limit = base_len;
- unsigned old_suffix_len = strlen (old_suffix);
-
- if (old_suffix_len <= base_len) {
- for (c = 0; c < old_suffix_len; c++) {
- if (!FILECHARCASEEQ (old_suffix[old_suffix_len - c - 1],
- base[base_len - c - 1]))
- break;
- }
- if (c == old_suffix_len) {
- copy_limit -= old_suffix_len;
- }
- }
-
- answer = xmalloc (copy_limit + strlen (new_suffix) + 1);
- strncpy (answer, base, copy_limit);
- answer[copy_limit] = 0;
- strcat (answer, new_suffix);
-
- return answer;
-}