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