C++ (Cpp) prch Examples

Example #1

File: main.c Project: JamesLinus/pcc

static void
prspace(ftnint n)
{
register ftnint m;

while(nch>0 && n>0)
        {
        --n;
        prch(0);
        }
m = SZSHORT * (n/SZSHORT);
if(m > 0)
        prskip(stdout, m);
for(n -= m ; n>0 ; --n)
        prch(0);
}

Example #2

File: charset.c Project: bananos/smstools3

int iso_utf8_2gsm(char* source, int size, char* destination, int max)
{
  int source_count=0;
  int dest_count=0;
  int found=0;
  char newch;
  char logtmp[51];
  char tmpch;

  destination[dest_count]=0;
  if (source==0 || size <= 0)
    return 0;

#ifdef DEBUGMSG
  log_charconv = 1;
#endif

  if (log_charconv)
  {
    *logch_buffer = 0;
    logch("!! iso_utf8_2gsm(source=%.*s, size=%i)", size, source, size);
    logch(NULL);
  }

  // Convert each character until end of string
  while (source_count<size && dest_count<max)
  {
    found = char2gsm(source[source_count], &newch);
    if (found == 2)
    {
      if (dest_count >= max -2)
        break;
      destination[dest_count++] = 0x1B;
    }
    if (found >= 1)
    {
      destination[dest_count++] = newch;
      if (log_charconv)
      {
        sprintf(logtmp, "%02X[%c]", (unsigned char)source[source_count], prch(source[source_count]));
        if (found > 1 || source[source_count] != newch)
        {
          sprintf(strchr(logtmp, 0), "->%s%02X", (found == 2)? "Esc-" : "", (unsigned char)newch);
          if (gsm2char(newch, &tmpch, found))
            sprintf(strchr(logtmp, 0), "[%c]", tmpch);
        }
        logch("%s ", logtmp);
      }
    }

    if (found == 0 && outgoing_utf8)
    {
      // ASCII and UTF-8 table: http://members.dslextreme.com/users/kkj/webtools/ascii_utf8_table.html
      // Good converter: http://www.macchiato.com/unicode/convert.html
      unsigned int c;
      int iterations = 0;
      // 3.1beta7: If UTF-8 decoded character is not found from tables, decoding is ignored:
      int saved_source_count = source_count;
      char sourcechars[51];

      c = source[source_count];
      if (log_charconv)
        sprintf(sourcechars, "%02X", (unsigned char)source[source_count]);

      // 3.1beta7: Check if there is enough characters left.
      // Following bytes in UTF-8 should begin with 10xx xxxx
      // which means 0x80 ... 0xBF
      if (((c & 0xFF) >= 0xC2 && (c & 0xFF) <= 0xC7) ||
          ((c & 0xFF) >= 0xD0 && (c & 0xFF) <= 0xD7))
      {
        if (source_count < size -1 && 
            (source[source_count +1] & 0xC0) == 0x80)
        {
          // 110xxxxx
          c &= 0x1F;
          iterations = 1;
        }
      }
      else if ((c & 0xFF) >= 0xE0 && (c & 0xFF) <= 0xE7)
      {
        if (source_count < size -2 && 
            (source[source_count +1] & 0xC0) == 0x80 &&
            (source[source_count +2] & 0xC0) == 0x80)
        {
          // 1110xxxx
          c &= 0x0F;
          iterations = 2;
        }
      }
      else if ((c & 0xFF) >= 0xF0 && (c & 0xFF) <= 0xF4)
      {
        if (source_count < size -3 && 
            (source[source_count +1] & 0xC0) == 0x80 &&
            (source[source_count +2] & 0xC0) == 0x80 &&
            (source[source_count +3] & 0xC0) == 0x80)
        {
          // 11110xxx
          c &= 0x07;
          iterations = 3;
        }
      }

      if (iterations > 0)
      {
        int i;

        for (i = 0; i < iterations; i++)
        {
          c = (c << 6) | (source[++source_count] -0x80);
          if (log_charconv)
            sprintf(strchr(sourcechars, 0), "%02X", (unsigned char)source[source_count]);
        }

        // Euro character is 20AC in UTF-8, but A4 in ISO-8859-15:
        if ((c & 0xFF) == 0xAC)
          c = 0xA4;

        found = char2gsm((char)c, &newch);
        if (found == 2)
        {
          if (dest_count >= max -2)
            break;
          destination[dest_count++] = 0x1B;
        }
        if (found >= 1)
        {
          destination[dest_count++] = newch;
          if (log_charconv)
          {
            sprintf(logtmp, "%s(%02X[%c])->%s%02X", sourcechars, (unsigned char)c, prch(c),
                    (found == 2)? "Esc-" : "", (unsigned char)newch);
            if (gsm2char(newch, &tmpch, found))
              sprintf(strchr(logtmp, 0), "[%c]", tmpch);
            logch("%s ", logtmp);
          }
        }
        else
        {
          found = special_char2gsm((char)c, &newch);
          if (found)
          {
            destination[dest_count++] = newch;
            if (log_charconv)
            {
              sprintf(logtmp, "%s(%02X[%c])~>%02X", sourcechars, (unsigned char)c, prch(c), (unsigned char)newch);
              if (gsm2char(newch, &tmpch, 1))
                sprintf(strchr(logtmp, 0), "[%c]", tmpch);
              logch("%s ", logtmp);
            }
          }
          else
            source_count = saved_source_count;
        }
      }
    }

    // 3.1beta7: Try additional table:
    if (found == 0)
    {
      found = special_char2gsm(source[source_count], &newch);
      if (found)
      {
        destination[dest_count++] = newch;
        if (log_charconv)
        {
          sprintf(logtmp, "%02X[%c]~>%02X", (unsigned char)source[source_count], prch(source[source_count]), (unsigned char)newch);
          if (gsm2char(newch, &tmpch, 1))
            sprintf(strchr(logtmp, 0), "[%c]", tmpch);
          logch("%s ", logtmp);
        }
      }
    }

    if (found==0)
    {
      writelogfile0(LOG_NOTICE, 0,
        tb_sprintf("Cannot convert %i. character %c 0x%2X to GSM, you might need to update the translation tables.",
        source_count +1, source[source_count], source[source_count]));
#ifdef DEBUGMSG
  printf("%s\n", tb);
#endif
    }

    source_count++;
  }

  if (log_charconv)
    logch(NULL);

  // Terminate destination string with 0, however 0x00 are also allowed within the string.
  destination[dest_count]=0;
  return dest_count;
}