blob: ece5fe5e2f3554c76ac42617e0ac8ca8a4b419ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
/* chartostring.c: change a character (i.e., an integer) to a
one-character string.
Written in 1994 by Karl Berry. Public domain. */
#include "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 P1C(char, ch)
{
string str = (string)xmalloc (2);
str[0] = ch;
str[1] = 0;
return str;
}
|