Load fixes
parent
05e4626c49
commit
1e1640abb3
|
@ -1,6 +1,6 @@
|
||||||
USING: alien.strings tools.test kernel libc
|
USING: alien.strings tools.test kernel libc
|
||||||
io.encodings.8-bit io.encodings.utf8 io.encodings.utf16
|
io.encodings.8-bit io.encodings.utf8 io.encodings.utf16
|
||||||
io.encodings.ascii alien io.encodings.string ;
|
io.encodings.utf16n io.encodings.ascii alien io.encodings.string ;
|
||||||
IN: alien.strings.tests
|
IN: alien.strings.tests
|
||||||
|
|
||||||
[ "\u0000ff" ]
|
[ "\u0000ff" ]
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alien.strings fry io.encodings.utf16 kernel
|
USING: alien.strings fry io.encodings.utf16n kernel
|
||||||
splitting windows windows.kernel32 system environment
|
splitting windows windows.kernel32 system environment
|
||||||
alien.c-types sequences windows.errors io.streams.memory
|
alien.c-types sequences windows.errors io.streams.memory
|
||||||
io.encodings io ;
|
io.encodings io ;
|
||||||
|
|
|
@ -23,9 +23,3 @@ IN: io.encodings.utf16.tests
|
||||||
[ { CHAR: x } ] [ { HEX: fe HEX: ff 0 CHAR: x } utf16 decode >array ] unit-test
|
[ { CHAR: x } ] [ { HEX: fe HEX: ff 0 CHAR: x } utf16 decode >array ] unit-test
|
||||||
|
|
||||||
[ { HEX: ff HEX: fe 120 0 52 216 30 221 } ] [ { CHAR: x HEX: 1d11e } utf16 encode >array ] unit-test
|
[ { HEX: ff HEX: fe 120 0 52 216 30 221 } ] [ { CHAR: x HEX: 1d11e } utf16 encode >array ] unit-test
|
||||||
|
|
||||||
: correct-endian
|
|
||||||
code>> little-endian? [ utf16le = ] [ utf16be = ] if ;
|
|
||||||
|
|
||||||
[ t ] [ B{ } utf16n <byte-reader> correct-endian ] unit-test
|
|
||||||
[ t ] [ utf16n <byte-writer> correct-endian ] unit-test
|
|
||||||
|
|
|
@ -0,0 +1,8 @@
|
||||||
|
USING: accessors alien.c-type kernel io.streams.byte-array tools.test ;
|
||||||
|
IN: io.encodings.utf16n
|
||||||
|
|
||||||
|
: correct-endian
|
||||||
|
code>> little-endian? [ utf16le = ] [ utf16be = ] if ;
|
||||||
|
|
||||||
|
[ t ] [ B{ } utf16n <byte-reader> correct-endian ] unit-test
|
||||||
|
[ t ] [ utf16n <byte-writer> correct-endian ] unit-test
|
|
@ -1,10 +1,10 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alien.c-types io.binary io.backend io.files io.buffers
|
USING: alien.c-types io.binary io.backend io.files io.buffers
|
||||||
io.windows kernel math splitting fry alien.strings
|
io.encodings.utf16n io.ports io.windows kernel math splitting
|
||||||
windows windows.kernel32 windows.time calendar combinators
|
fry alien.strings windows windows.kernel32 windows.time calendar
|
||||||
math.functions sequences namespaces make words symbols system
|
combinators math.functions sequences namespaces make words
|
||||||
io.ports destructors accessors math.bitwise continuations
|
symbols system destructors accessors math.bitwise continuations
|
||||||
windows.errors arrays byte-arrays ;
|
windows.errors arrays byte-arrays ;
|
||||||
IN: io.windows.files
|
IN: io.windows.files
|
||||||
|
|
||||||
|
|
|
@ -1,10 +1,10 @@
|
||||||
USING: continuations destructors io.buffers io.files io.backend
|
USING: continuations destructors io.buffers io.files io.backend
|
||||||
io.timeouts io.ports io.windows io.windows.files
|
io.timeouts io.ports io.files.private io.windows
|
||||||
io.windows.nt.backend windows windows.kernel32
|
io.windows.files io.windows.nt.backend io.encodings.ut16n
|
||||||
kernel libc math threads system environment
|
windows windows.kernel32 kernel libc math threads system
|
||||||
alien.c-types alien.arrays alien.strings sequences combinators
|
environment alien.c-types alien.arrays alien.strings sequences
|
||||||
combinators.short-circuit ascii splitting alien strings
|
combinators combinators.short-circuit ascii splitting alien
|
||||||
assocs namespaces make io.files.private accessors tr ;
|
strings assocs namespaces make accessors tr ;
|
||||||
IN: io.windows.nt.files
|
IN: io.windows.nt.files
|
||||||
|
|
||||||
M: winnt cwd
|
M: winnt cwd
|
||||||
|
|
|
@ -5,8 +5,8 @@ kernel math assocs namespaces make continuations sequences
|
||||||
hashtables sorting arrays combinators math.bitwise strings
|
hashtables sorting arrays combinators math.bitwise strings
|
||||||
system accessors threads splitting io.backend io.windows
|
system accessors threads splitting io.backend io.windows
|
||||||
io.windows.nt.backend io.windows.nt.files io.monitors io.ports
|
io.windows.nt.backend io.windows.nt.files io.monitors io.ports
|
||||||
io.buffers io.files io.timeouts io.encodings.string io
|
io.buffers io.files io.timeouts io.encodings.string
|
||||||
windows windows.kernel32 windows.types ;
|
io.encodings.utf16n io windows windows.kernel32 windows.types ;
|
||||||
IN: io.windows.nt.monitors
|
IN: io.windows.nt.monitors
|
||||||
|
|
||||||
: open-directory ( path -- handle )
|
: open-directory ( path -- handle )
|
||||||
|
|
|
@ -9,7 +9,8 @@ windows.user32 windows.opengl32 windows.messages windows.types
|
||||||
windows.nt windows threads libc combinators
|
windows.nt windows threads libc combinators
|
||||||
combinators.short-circuit continuations command-line shuffle
|
combinators.short-circuit continuations command-line shuffle
|
||||||
opengl ui.render ascii math.bitwise locals symbols accessors
|
opengl ui.render ascii math.bitwise locals symbols accessors
|
||||||
math.geometry.rect math.order ascii calendar ;
|
math.geometry.rect math.order ascii calendar
|
||||||
|
io.encodings.utf16n ;
|
||||||
IN: ui.windows
|
IN: ui.windows
|
||||||
|
|
||||||
SINGLETON: windows-ui-backend
|
SINGLETON: windows-ui-backend
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alien alien.c-types alien.strings alien.syntax arrays
|
USING: alien alien.c-types alien.strings alien.syntax arrays
|
||||||
byte-arrays kernel math sequences windows.types windows.kernel32
|
byte-arrays kernel math sequences windows.types windows.kernel32
|
||||||
windows.errors windows math.bitwise alias ;
|
windows.errors windows math.bitwise alias io.encodings.utf16n ;
|
||||||
IN: windows.winsock
|
IN: windows.winsock
|
||||||
|
|
||||||
USE: libc
|
USE: libc
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
USING: alien alien.c-types alien.strings arrays byte-arrays
|
USING: alien alien.c-types alien.strings arrays byte-arrays
|
||||||
hashtables io io.encodings.string kernel math namespaces
|
hashtables io io.encodings.string kernel math namespaces
|
||||||
sequences strings continuations x11.xlib specialized-arrays.uint
|
sequences strings continuations x11.xlib specialized-arrays.uint
|
||||||
accessors ;
|
accessors io.encodings.utf16n ;
|
||||||
IN: x11.xim
|
IN: x11.xim
|
||||||
|
|
||||||
SYMBOL: xim
|
SYMBOL: xim
|
||||||
|
|
Loading…
Reference in New Issue