develooper Front page | perl.perl6.users | Postings from January 2020

How do I assign values to CArray[WCHAR]?

Thread Next
From:
ToddAndMargo via perl6-users
Date:
January 7, 2020 06:02
Subject:
How do I assign values to CArray[WCHAR]?
Message ID:
b350a8cd-b226-1a81-da82-54a3d6deea6d@zoho.com
Hi All,

What am I doing wrong here?  How do I assign values
to CArray[WCHAR]?

I want $lpData[0] to be 0xABCD and $lpData[1] to be 0xEF12.

 > use NativeCall;
Nil

 > constant WCHAR    := uint16;
(uint16)

 > my $ValueData = 0xABCDEF12;
2882400018

 > my CArray[WCHAR]  $lpData;
(CArray[uint16])

 > $lpData[ 0 ] =  ( $ValueData +& 0xFFFF0000 ) +> 0x10;
Type check failed in assignment to $lpData; expected 
NativeCall::Types::CArray[uint16] but got Array ($[])
   in block <unit> at <unknown file> line 1

 > $lpData[ 1 ] =    $ValueData +& 0x0000FFFF;
Type check failed in assignment to $lpData; expected 
NativeCall::Types::CArray[uint16] but got Array ($[])
   in block <unit> at <unknown file> line 1


Many thanks,
-T

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About