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