support for unicode text, for setting clipboard image; ver 0.59

[vadrer]

some new functionality; also there are plans to make more tests; and then to work on FAIL on http://matrix.cpantesters.org/?dist=Win32-Clipboard+0.58

[Grinnz]

I suspect this may suffer from the Unicode bug in its implementation. See https://perldoc.perl.org/perlguts#Unicode-Support for more information - unfortunately I do not have the expertise to advise on fixes if this is the case.

The following tests can be added to ensure a non-buggy implementation.

my $str = "\xA0";
utf8::downgrade $str;
Win32::Clipboard::USet($str);
print "not " unless Win32::Clipboard::UGet() eq "\xA0";
print "ok 13\n";
utf8::upgrade $str;
Win32::Clipboard::USet($str);
print "not " unless Win32::Clipboard::UGet() eq "\xA0";
print "ok 14\n";

The same test can be applied to SetBitmap. In the USet case this string should be interpreted as U+00A0 regardless if it is upgraded, and in the SetBitmap case it should be interpreted as the byte 0xA0 in either case.

Also, the is_utf8 test is unnecessary; the UTF8 flag of the returned string is not relevant as long as it correctly indicates the internal storage that was used to return the string - if it doesn't, the eq test will fail.

[tonycoz]

Shouldn't this be a GlobalLock(), like in the example at https://docs.microsoft.com/en-us/windows/win32/dataxchg/using-the-clipboard#pasting-information-from-the-clipboard ?

[vadrer]

yes, I think you're correct...
thanks

[tonycoz]

This doesn't handle surrogate pairs at all and should be using WideCharToMultiByte() with CodePage set to CP_UTF8 to translate it. Unfortunately perl's builtin functions to do this conversion are not API.

[tonycoz]

This should be SvPVbyte() to avoid the Unicode bug.

[tonycoz]

left from debugging? another a few lines further down

[tonycoz]

This expansion from bytes to wchar_t looks wrong, Standard Clipboard Formats claims it's a

A memory object containing a BITMAPINFO structure followed by the bitmap bits.

and doesn't mention converting it like this.

[tonycoz]

This also doesn't handle code points beyond the BMP (that need surrogates)