Return to chr.c CVS log

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

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

1.1       root        1: 
                      2: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      3: 
                      4:  *     /////////////////////////////////////
                      5:  *     /////////////////////////////////////
                      6:  *     //////////////// chr ////////////////
                      7:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      8:  *     ///// Mon Feb 16 22:19:00 1981 //////
                      9:  *     /////////////////////////////////////
                     10:  *     /////////////////////////////////////
                     11:  *     @(#) chr.c: V1.2 3/4/81
                     12: 
                     13:  * String function chr$(expr) where expr is a numerical expression
                     14:  * and chr$ returns the character associated with that value.
                     15:  */
                     16: 
                     17: char *chr(num)
                     18: char   *num;
                     19: {
                     20:        double  evalx();
                     21: static char    tmpnum[2];
                     22: 
                     23:        /*
                     24:         * Evaluate expression num and mask all but low 8 bits
                     25:         * then form null terminated single character string.
                     26:         */
                     27:        tmpnum[0] = (char)0377 & (char)evalx(num);
                     28:        tmpnum[1] = '\0';
                     29:        return(tmpnum);
                     30: }

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