Перевод с С++

  • Автор темы Guest
  • Дата начала
G

Guest

#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));
}
}