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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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 USING: alien alien.c-types alien.data alien.syntax arrays assocs
destructors io io.backend io.ports io.timeouts io.backend.windows combinators continuations destructors io io.backend io.ports
io.files.windows io.files.windows.nt io.files io.pathnames io.buffers io.timeouts io.backend.windows io.files.windows
io.streams.c io.streams.null libc kernel math namespaces sequences io.files.windows.nt io.files io.pathnames io.buffers
threads windows windows.errors windows.kernel32 strings splitting io.streams.c io.streams.null libc kernel math namespaces
ascii system accessors locals classes.struct combinators.short-circuit ; sequences threads windows windows.errors windows.kernel32
strings splitting ascii system accessors locals classes.struct
combinators.short-circuit ;
IN: io.backend.windows.nt IN: io.backend.windows.nt
! Global variable with assoc mapping overlapped to threads ! 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 combinators generalizations system alien.strings
io.encodings.utf16n sequences splitting windows.errors fry io.encodings.utf16n sequences splitting windows.errors fry
continuations destructors calendar ascii continuations destructors calendar ascii
combinators.short-circuit locals classes.struct combinators.short-circuit literals locals classes.struct
specialized-arrays alien.data ; specialized-arrays alien.data ;
SPECIALIZED-ARRAY: ushort SPECIALIZED-ARRAY: ushort
IN: io.files.info.windows IN: io.files.info.windows

2
basis/io/launcher/windows/windows.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2007, 2010 Doug Coleman, Slava Pestov. ! Copyright (C) 2007, 2010 Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! 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.backend.windows io.pipes.windows.nt io.pathnames libc
io.ports windows.types math windows.kernel32 namespaces make io.ports windows.types math windows.kernel32 namespaces make
io.launcher kernel sequences windows.errors splitting system 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" CONSTANT: factor-crypto-container "FactorCryptoContainer"
:: (acquire-crypto-context) ( provider type flags -- handle ) :: (acquire-crypto-context) ( provider type flags -- ret handle )
{ HCRYPTPROV } [ { HCRYPTPROV } [
factor-crypto-container factor-crypto-container
provider provider

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

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

4
basis/ui/backend/windows/windows.factor
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 ) : arb-make-pixel-format ( world attributes -- pf )
[ handle>> hDC>> ] dip >WGL_ARB-int-array f 1 { int int } [ 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 ) : arb-pixel-format-attribute ( pixel-format attribute -- value )
>WGL_ARB >WGL_ARB
[ drop f ] [ [ drop f ] [
[ [ world>> handle>> hDC>> ] [ handle>> ] bi 0 1 ] dip [ [ world>> handle>> hDC>> ] [ handle>> ] bi 0 1 ] dip
first <int> { int } first <int> { int }
[ wglGetPixelFormatAttribivARB win32-error=0/f ] [ wglGetPixelFormatAttribivARB win32-error=0/f ] [ ]
with-out-parameters with-out-parameters
] if-empty ; ] 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. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel assocs math sequences fry io.encodings.string USING: kernel assocs math sequences fry io.encodings.string
io.encodings.utf16n accessors arrays combinators destructors io.encodings.utf16n accessors arrays combinators destructors
cache namespaces init fonts alien.c-types windows.usp10 cache namespaces init fonts alien.c-types alien.data
windows.offscreen windows.gdi32 windows.ole32 windows.types windows.usp10 windows.offscreen windows.gdi32 windows.ole32
windows.fonts opengl.textures locals windows.errors windows.types windows.fonts opengl.textures locals
classes.struct ; windows.errors classes.struct ;
IN: windows.uniscribe IN: windows.uniscribe
TUPLE: script-string < disposable font string metrics ssa size image ; TUPLE: script-string < disposable font string metrics ssa size image ;