|
|
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.