diff options
author | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
commit | ad547a6b5986815fda458221149728d9d9ab1d87 (patch) | |
tree | 16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/web2c/lib/chartostring.c | |
parent | 947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff) |
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/lib/chartostring.c')
-rw-r--r-- | Build/source/texk/web2c/lib/chartostring.c | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/lib/chartostring.c b/Build/source/texk/web2c/lib/chartostring.c new file mode 100644 index 00000000000..7b34e694241 --- /dev/null +++ b/Build/source/texk/web2c/lib/chartostring.c @@ -0,0 +1,23 @@ +/* chartostring.c: change a character (i.e., an integer) to a + one-character string. + +Written in 1994 by Karl Berry. Public domain. */ + +#include <w2c/config.h> +#include "lib.h" + +/* This is needed because web2c turns the Pascal construct 'x' into the + C character constant 'x', not the string "x". And we need to keep it + that way because that's how xord is initialized, etc. But sometimes + we want one-character strings -- e.g., in tangle.ch and weave.ch. + There's no real alternative to wasting the two bytes of memory (plus + malloc overhead) here, but it doesn't matter. */ + +string +chartostring (char ch) +{ + string str = xmalloc (2); + str[0] = ch; + str[1] = 0; + return str; +} |