Load fixes

db4
Slava Pestov 2008-12-09 03:22:38 -06:00
parent 05e4626c49
commit 1e1640abb3
10 changed files with 26 additions and 23 deletions

View File

@ -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" ]

View File

@ -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 ;

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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 )

View File

@ -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

View File

@ -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

View File

@ -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