Перевод с С++

Тема в разделе "Lotus - Программирование", создана пользователем -, 5 сен 2011.

  1. Гость

    Нужна помощь в переводе кода с С++ на Lotus Script
    char *ascii_to_utf8(unsigned char c)
    {
    unsigned char *out;

    if(c < 128)
    {
    out = (char *)calloc(2, sizeof(char));
    out[0] = c;
    out[1] = '\0';
    }
    else
    {
    out = (char *)calloc(3, sizeof(char));
    out[1] = (c >> 6) | 0xC0;
    out[0] = (c & 0x3F) | 0x80;
    out[2] = '\0';
    }

    return out;
    }


    And in PERL:

    sub ascii_to_utf8
    {
    my $c = ord(shift(@_));
    if($c < 128)
    {
    return chr($c);
    }
    else
    {
    return pack("C*", ($c >> 6) | 0xC0, ($c & 0x3F) | 0x80));
    }
    }
     
Загрузка...

Поделиться этой страницей