|
|
1.1 root 1: /* ffltpr.c Tahoe version 1/21/83 */
2: /* no floating point version */
3: char *
4: _pfloat(number, ndigit, p)
5: double number;
6: register char *p;
7: {
8: *p++ = '?';
9: *p = '\0';
10: return(p);
11: }
12: char *
13: _pscien(number, ndigit, p)
14: double number;
15: register char *p;
16: {
17: *p++ = '?';
18: *p = '\0';
19: return(p);
20: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.