Get with unicode strings

[ssimop]

Dear Gintaras,

I understand that "get" does not work with unicode strings. Therefore, I implemented the following code to do it :
Member function str.getU

Code:

Copy      Help

function~ str'sinp int'from int'nc
;Unicode versdion of "get" macro, it also serves left
str s=sinp
s.unicode ;;convert to UTF-16
str s1.get(s 2*from 2*nc)
s1.ansi
this=s1

I wonder whether you have any relevant comments. Regards, Thanks.