summaryrefslogtreecommitdiff
path: root/reference/C/CONTRIB/SNIP/ctrlprnt.c
blob: 0ae15d1431baddd5310c9c038a20f57904c5d7cc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
/*
**  Print a line of text, displaying Ctrl characters using leading carets
**  public domain by Bob Stout
*/

void ctrl_print(char *line)
{
      while (*line)
      {
            if (' ' > *line)
            {
                  putchar('^');
                  putchar('@' + (*line++));
            }
            else  putchar(*line++);
      }
      if (!strcmp((line - 2), "\x0d\x0a") || !strcmp((line - 2), "\x0a\x0d"))
            putchar('\n');
}

#ifdef TEST

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

void main(void)
{
      char *p, *test = "This is a test";

      for (p = strupr(test); *p; ++p)
      {
            if (isalpha(*p))
                  *p = *p - 64;
      }
      ctrl_print(test);
}

#endif /* TEST */