Fixes for out parameter changes

db4
Slava Pestov 2010-05-23 03:27:40 -05:00
parent 70a99e1cdb
commit 66fcab3721
7 changed files with 21 additions and 17 deletions

14
basis/io/backend/windows/nt/nt.factor Normal file → Executable file
View File

@ -1,9 +1,11 @@
USING: alien alien.c-types arrays assocs combinators continuations
destructors io io.backend io.ports io.timeouts io.backend.windows
io.files.windows io.files.windows.nt io.files io.pathnames io.buffers
io.streams.c io.streams.null libc kernel math namespaces sequences
threads windows windows.errors windows.kernel32 strings splitting
ascii system accessors locals classes.struct combinators.short-circuit ;
USING: alien alien.c-types alien.data alien.syntax arrays assocs
combinators continuations destructors io io.backend io.ports
io.timeouts io.backend.windows io.files.windows
io.files.windows.nt io.files io.pathnames io.buffers
io.streams.c io.streams.null libc kernel math namespaces
sequences threads windows windows.errors windows.kernel32
strings splitting ascii system accessors locals classes.struct
combinators.short-circuit ;
IN: io.backend.windows.nt
! Global variable with assoc mapping overlapped to threads

2
basis/io/files/info/windows/windows.factor Normal file → Executable file
View File

@ -6,7 +6,7 @@ windows.time windows.types windows accessors alien.c-types
combinators generalizations system alien.strings
io.encodings.utf16n sequences splitting windows.errors fry
continuations destructors calendar ascii
combinators.short-circuit locals classes.struct
combinators.short-circuit literals locals classes.struct
specialized-arrays alien.data ;
SPECIALIZED-ARRAY: ushort
IN: io.files.info.windows

View File

@ -1,6 +1,6 @@
! Copyright (C) 2007, 2010 Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types arrays continuations io
USING: alien alien.c-types alien.data arrays continuations io
io.backend.windows io.pipes.windows.nt io.pathnames libc
io.ports windows.types math windows.kernel32 namespaces make
io.launcher kernel sequences windows.errors splitting system

2
basis/random/windows/windows.factor Normal file → Executable file
View File

@ -16,7 +16,7 @@ M: windows-crypto-context dispose ( tuple -- )
CONSTANT: factor-crypto-container "FactorCryptoContainer"
:: (acquire-crypto-context) ( provider type flags -- handle )
:: (acquire-crypto-context) ( provider type flags -- ret handle )
{ HCRYPTPROV } [
factor-crypto-container
provider

6
basis/system-info/windows/nt/nt-tests.factor Normal file → Executable file
View File

@ -1,5 +1,7 @@
USING: math.order strings ;
IN: system-info.windows.nt
USING: math.order strings system-info.backend
system-info.windows system-info.windows.nt
tools.test ;
IN: system-info.windows.nt.tests
[ t ] [ cpus 0 1024 between? ] unit-test
[ t ] [ username string? ] unit-test

View File

@ -60,14 +60,14 @@ PIXEL-FORMAT-ATTRIBUTE-TABLE: WGL_ARB { $ WGL_SUPPORT_OPENGL_ARB 1 } H{
: arb-make-pixel-format ( world attributes -- pf )
[ handle>> hDC>> ] dip >WGL_ARB-int-array f 1 { int int }
[ wglChoosePixelFormatARB win32-error=0/f ] with-out-parameters drop ;
[ wglChoosePixelFormatARB win32-error=0/f ] [ ] with-out-parameters drop ;
: arb-pixel-format-attribute ( pixel-format attribute -- value )
>WGL_ARB
[ drop f ] [
[ [ world>> handle>> hDC>> ] [ handle>> ] bi 0 1 ] dip
first <int> { int }
[ wglGetPixelFormatAttribivARB win32-error=0/f ]
[ wglGetPixelFormatAttribivARB win32-error=0/f ] [ ]
with-out-parameters
] if-empty ;

8
basis/windows/uniscribe/uniscribe.factor Normal file → Executable file
View File

@ -2,10 +2,10 @@
! See http://factorcode.org/license.txt for BSD license.
USING: kernel assocs math sequences fry io.encodings.string
io.encodings.utf16n accessors arrays combinators destructors
cache namespaces init fonts alien.c-types windows.usp10
windows.offscreen windows.gdi32 windows.ole32 windows.types
windows.fonts opengl.textures locals windows.errors
classes.struct ;
cache namespaces init fonts alien.c-types alien.data
windows.usp10 windows.offscreen windows.gdi32 windows.ole32
windows.types windows.fonts opengl.textures locals
windows.errors classes.struct ;
IN: windows.uniscribe
TUPLE: script-string < disposable font string metrics ssa size image ;