diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/lib/basechsuffix.c | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (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.c | 43 |
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; -} |