ack/lang/basic/lib/chr.c

17 lines
180 B
C
Raw Normal View History

#include "bc_string.h"
1984-11-29 14:22:02 +00:00
1994-06-24 11:31:16 +00:00
/* $Id$ */
1984-11-29 14:22:02 +00:00
String* _chr(int i)
1984-11-29 14:22:02 +00:00
{
String* s;
char buf[2];
1984-11-29 14:22:02 +00:00
if (i < 0 || i > 127)
1984-11-29 14:22:02 +00:00
error(3);
buf[0] = i;
buf[1] = 0;
s = _newstr(buf);
return (s);
1984-11-29 14:22:02 +00:00
}