summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/lib/chartostring.c
blob: 8f98feb7dac2a5f18fefcf569374178315b715a9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
/* 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"

/* 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;
}