steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.strings: fix symbol>string for Windows

db4
Slava Pestov 2009-05-05 14:41:38 -05:00
parent cb2f406931
commit 764ee52cde
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
core/alien/strings/strings.factor
View File

@ -47,10 +47,19 @@ M: unix native-string>alien utf8 string>alien ;
: dll-path ( dll -- string ) : dll-path ( dll -- string )
path>> alien>native-string ; path>> alien>native-string ;
: string>symbol ( str -- alien ) HOOK: string>symbol* os ( str/seq -- alien )
dup string?
[ native-string>alien ] M: winnt string>symbol* utf8 string>alien ;
[ [ native-string>alien ] map ] if ;
M: wince string>symbol* utf16n string>alien ;
M: unix string>symbol* utf8 string>alien ;
GENERIC: string>symbol ( str -- alien )
M: string string>symbol string>symbol* ;
M: sequence string>symbol [ string>symbol* ] map ;
[ [
8 getenv utf8 alien>string string>cpu \ cpu set-global 8 getenv utf8 alien>string string>cpu \ cpu set-global