Return to xputchar.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / gutil

Annotation of 42BSD/ingres/source/gutil/xputchar.c, revision 1.1.1.1

1.1       root        1: # include      <stdio.h>
                      2: # include      <sccs.h>
                      3: 
                      4: SCCSID(@(#)xputchar.c  7.1     2/5/81)
                      5: 
                      6: /*
                      7: **  PUT CHARACTER
                      8: **
                      9: **     This routine just calls putchar normally, unless the character
                     10: **     to be printed is a control character, in which case the octal
                     11: **     equivalent is printed out.  Note that tab, newline, and so
                     12: **     forth are considered to be control characters.
                     13: **
                     14: **     Parameters:
                     15: **             c -- the character to print.
                     16: **
                     17: **     Returns:
                     18: **             nothing.
                     19: **
                     20: **     Side Effects:
                     21: **             none
                     22: **
                     23: **     Trace Flags:
                     24: **             none
                     25: */
                     26: 
                     27: 
                     28: 
                     29: xputchar(c)
                     30: register char  c;
                     31: {
                     32:        if (c < 040 || c >= 0177)
                     33:        {
                     34:                putc('\\', stdout);
                     35:                putc(((c >> 6) & 03) | '0', stdout);
                     36:                putc(((c >> 3) & 07) | '0', stdout);
                     37:                putc((c & 07) | '0', stdout);
                     38:        }
                     39:        else
                     40:                putc(c, stdout);
                     41: }

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