alien.strings cleanup
parent
029d93a838
commit
0ecb771aa4
|
@ -34,16 +34,16 @@ M: string string>alien
|
||||||
|
|
||||||
HOOK: alien>native-string os ( alien -- string )
|
HOOK: alien>native-string os ( alien -- string )
|
||||||
|
|
||||||
HOOK: native-string>alien os ( string -- alien )
|
|
||||||
|
|
||||||
M: windows alien>native-string utf16n alien>string ;
|
M: windows alien>native-string utf16n alien>string ;
|
||||||
|
|
||||||
|
M: unix alien>native-string utf8 alien>string ;
|
||||||
|
|
||||||
|
HOOK: native-string>alien os ( string -- alien )
|
||||||
|
|
||||||
M: wince native-string>alien utf16n string>alien ;
|
M: wince native-string>alien utf16n string>alien ;
|
||||||
|
|
||||||
M: winnt native-string>alien utf8 string>alien ;
|
M: winnt native-string>alien utf8 string>alien ;
|
||||||
|
|
||||||
M: unix alien>native-string utf8 alien>string ;
|
|
||||||
|
|
||||||
M: unix native-string>alien utf8 string>alien ;
|
M: unix native-string>alien utf8 string>alien ;
|
||||||
|
|
||||||
: dll-path ( dll -- string )
|
: dll-path ( dll -- string )
|
||||||
|
|
Loading…
Reference in New Issue