|
|
1.1 root 1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)CHR.c 1.4 11/12/82";
4:
5: char ECHR[] = "Argument to chr of %D is out of range\n";
6:
7: char
8: CHR(value)
9: unsigned long value;
10: {
11: if (value > 127) {
12: ERROR(ECHR, value);
13: return;
14: }
15: return (char)value;
16: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.