home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / expect / expect-4.7 / exp_printify.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-05-08  |  1.3 KB  |  56 lines
  1. /* exp_printify - printable versions of random ASCII strings
  2.  
  3. Written by: Don Libes, NIST, 2/6/90
  4.  
  5. Design and implementation of this program was paid for by U.S. tax
  6. dollars.  Therefore it is public domain.  However, the author and NIST
  7. would appreciate credit if this program or parts of it are used.
  8.  
  9. */
  10.  
  11. #include "stdlib.h"        /* for malloc */
  12.  
  13. /* generate printable versions of random ASCII strings.  Primarily used */
  14. /* by cmdExpect when -d forces it to print strings it is examining. */
  15. char *
  16. exp_printify(s)
  17. char *s;
  18. {
  19.     static int destlen = 0;
  20.     static char *dest = 0;
  21.     char *d;        /* ptr into dest */
  22.     unsigned int need;
  23.  
  24.     if (s == 0) return("<null>");
  25.  
  26.     /* worst case is every character takes 3 to printify */
  27.     need = strlen(s)*3 + 1;
  28.     if (need > destlen) {
  29.         if (dest) free(dest);
  30.         if (!(dest = malloc(need))) {
  31.             destlen = 0;
  32.             return("malloc failed in printify");
  33.         }
  34.         destlen = need;
  35.     }
  36.  
  37.     for (d = dest;*s;s++) {
  38.         if (*s == '\r') {
  39.             strcpy(d,"\\r");        d += 2;
  40.         } else if (*s == '\n') {
  41.             strcpy(d,"\\n");        d += 2;
  42.         } else if (*s == '\t') {
  43.             strcpy(d,"\\t");        d += 2;
  44.         } else if ((unsigned)*s < 0x20) { /* unsigned strips parity */
  45.             sprintf(d,"\\C%c",*s + '`');    d += 3;
  46.         } else if (*s == 0x7f) {
  47.             /* not syntactically correct, but you get the point */
  48.             strcpy(d,"\\7f");        d += 3;
  49.         } else {
  50.             *d = *s;            d += 1;
  51.         }
  52.     }
  53.     *d = '\0';
  54.     return(dest);
  55. }
  56.