|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: ! 3: static char sccsid[] = "@(#)TRUNC.c 1.2 3/7/81"; ! 4: ! 5: long ! 6: TRUNC(value) ! 7: ! 8: double value; ! 9: { ! 10: return (long)(value); ! 11: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.