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