gnu/libexec/uucp/libuucp/escape.c

/* escape.c
   Translate escape sequences.  */

#include "uucp.h"

#include <ctype.h>

#include "uudefs.h"

size_t
cescape (z)
     char *z;
{
  char *zto, *zfrom;

  zto = z;
  zfrom = z;
  while (*zfrom != '\0')
    {
      if (*zfrom != '\\')
        {
          *zto++ = *zfrom++;
          continue;
        }
      ++zfrom;
      switch (*zfrom)
        {
        case '-':
          *zto++ = '-';
          break;
        case 'b':
          *zto++ = '\b';
          break;
        case 'n':
          *zto++ = '\n';
          break;
        case 'N':
          *zto++ = '\0';
          break;
        case 'r':
          *zto++ = '\r';
          break;
        case 's':
          *zto++ = ' ';
          break;
        case 't':
          *zto++ = '\t';
          break;
        case '\0':
          --zfrom;
          /* Fall through.  */
        case '\\':
          *zto++ = '\\';
          break;
        case '0': case '1': case '2': case '3': case '4':
        case '5': case '6': case '7': case '8': case '9':
          {
            int i;

            i = *zfrom - '0';
            if (zfrom[1] >= '0' && zfrom[1] <= '7')
              i = 8 * i + *++zfrom - '0';
            if (zfrom[1] >= '0' && zfrom[1] <= '7')
              i = 8 * i + *++zfrom - '0';
            *zto++ = (char) i;
          }
          break;
        case 'x':
          {
            int i;

            i = 0;
            while (isxdigit (BUCHAR (zfrom[1])))
              {
                if (isdigit (BUCHAR (zfrom[1])))
                  i = 16 * i + *++zfrom - '0';
                else if (isupper (BUCHAR (zfrom[1])))
                  i = 16 * i + *++zfrom - 'A' + 10;
                else
                  i = 16 * i + *++zfrom - 'a' + 10;
              }
            *zto++ = (char) i;
          }
          break;
        default:
          ulog (LOG_ERROR, "Unrecognized escape sequence \\%c",
                *zfrom);
          *zto++ = *zfrom;
          break;
        }

      ++zfrom;
    }

  *zto = '\0';

  return (size_t) (zto - z);
}