From c6101f91d071883b48b1b4b51e5eba0f36d9a78d Mon Sep 17 00:00:00 2001 From: Denis Bitouzé Date: Thu, 25 Feb 2021 18:23:07 +0000 Subject: French translation for tlmgr updated git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/lib/basechsuffix.c | 43 ------------------------------ 1 file changed, 43 deletions(-) delete mode 100644 Build/source/texk/web2c/lib/basechsuffix.c (limited to 'Build/source/texk/web2c/lib/basechsuffix.c') 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 -#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; -} -- cgit v1.2.3