Manisha Mirajkar <[EMAIL PROTECTED]> writes:
>Hi,
>I am passing a const wchar_t* from a function MyFunc() in my XS file.
>I have a custom typemap for const wchar_t* :
>
>const wchar_t * T_WCHAR
>
>INPUT
>T_WCHAR
> $var = ($type)SvPV_nolen($arg)
>
>OUTPUT
>T_WCHAR
> sv_setpv((SV*)$arg, (char *) $var, wcslen($var)*sizeof($type));
A wide character is just that - _wide_ there will be a lot of nulls
in the "string".
>
>In my perl script I want to do a string comparison where the first letter is
>say 'h'. My perl script is -
>$Name = &Config::MyFunc();
>print $Name;
>if($Name =~ m/^h/)
>{
> do something
>}
The clean way to do this in perl (IMHO) is to use perl5.6+ and UTF-8 encode
your wide characters.
The pattern would have to be (Assuming 32-bit big-endian wide character):
$name =~ m/^\0\0\0h/
If little endian and 16-bit that would be /^h\0/ - which might have worked
for a while.
>
>The $Name has a correct value as I see when I print it.
Your terminal is probably ignoring the '\0's
>But, the comparison
>does not work!
>The same thing works if the function returns a const char* which in my
>typemap is -
>const char* T_PV
>
>Is my typemap for const wchar_t* incorrect ?
You cannot use perl's string operators on wide chars like that, they will
work if you tell them about the nulls.
>If yes, then how do I get a proper value when I print, and what could be
>done so that the comparison works?
Unicode, perl5.6+
>
>Thanks,
>Manisha
--
Nick Ing-Simmons
