Return to asc.c CVS log

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

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

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     /////////////////////////////////////
                      4:  *     /////////////////////////////////////
                      5:  *     /////////////// asc.c ///////////////
                      6:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      7:  *     ///// Thu Mar  5 05:49:25 1981 //////
                      8:  *     /////////////////////////////////////
                      9:  *     /////////////////////////////////////
                     10:  *     @(#) asc.c: V1.1 3/6/81
                     11: 
                     12:  * Return character value of single first char in ascii expr.
                     13: */
                     14: 
                     15: extern scratch[];
                     16: 
                     17: double
                     18: asc(s)
                     19: char   s[];
                     20: {
                     21:        char    work[80];
                     22: 
                     23:        evals(s,work);
                     24:        return((double)work[0]);
                     25: }

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