don't throw away float <-> double conversions for FORTRAN.

[unix-history] / usr / src / old / lib2648 / rdchar.c

/*      rdchar.c        4.1     83/03/09        */
/*
* rdchar: returns a readable representation of an ASCII char, using ^ notation.
*/

#include <ctype.h>

char *rdchar(c)
char c;
{
       static char ret[4];
       register char *p;

       /*
        * Due to a bug in isprint, this prints spaces as ^`, but this is OK
        * because we want something to show up on the screen.
        */
       ret[0] = ((c&0377) > 0177) ? '\'' : ' ';
       c &= 0177;
       ret[1] = isprint(c) ? ' ' : '^';
       ret[2] = isprint(c) ?  c  : c^0100;
       ret[3] = 0;
       for (p=ret; *p==' '; p++)
               ;
       return (p);
}