Return to val.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/val.c, revision 1.1.1.1

1.1       root        1: 
                      2: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      3: 
                      4:  *     /////////////////////////////////////
                      5:  *     /////////////////////////////////////
                      6:  *     /////////////// val.c ///////////////
                      7:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      8:  *     ///// Thu Mar  5 05:37:44 1981 //////
                      9:  *     /////////////////////////////////////
                     10:  *     /////////////////////////////////////
                     11:  *     @(#) val.c: V1.1 3/5/81
                     12: 
                     13:  * Return numerical value of string (like atof).
                     14:  * This function can be used to extract numerical values
                     15:  * from ASCII format file.
                     16: */
                     17: 
                     18: extern char    scratch[];
                     19: 
                     20: double
                     21: val(exp)
                     22: char exp[];
                     23: {
                     24:        double atof1();
                     25: 
                     26:        evals(exp,scratch);
                     27:        return(atof1(scratch));
                     28: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.