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

Fix Windows bootstrap

db4
U-SLAVA-DFB8FF805\Slava 2008-12-03 06:52:16 -06:00
parent 7b380c526e
commit da9b38caae
3 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/io/windows/nt/monitors/monitors.factor Normal file → Executable file
View File

@ -1,11 +1,12 @@
! Copyright (C) 2008 Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types libc destructors locals kernel math
assocs namespaces make continuations sequences hashtables
sorting arrays combinators math.bitwise strings system accessors
threads splitting io.backend io.windows io.windows.nt.backend
io.windows.nt.files io.monitors io.ports io.buffers io.files
io.timeouts io windows windows.kernel32 windows.types ;
USING: alien alien.c-types alien.strings libc destructors locals
kernel math assocs namespaces make continuations sequences
hashtables sorting arrays combinators math.bitwise strings
system accessors threads splitting io.backend io.windows
io.windows.nt.backend io.windows.nt.files io.monitors io.ports
io.buffers io.files io.timeouts io.encodings.string io
windows windows.kernel32 windows.types ;
IN: io.windows.nt.monitors
: open-directory ( path -- handle )

12
basis/windows/com/syntax/syntax.factor Normal file → Executable file
View File

@ -1,7 +1,7 @@
USING: alien alien.c-types effects kernel windows.ole32
parser lexer splitting grouping sequences namespaces
assocs quotations generalizations accessors words macros alien.syntax
fry arrays ;
USING: alien alien.c-types alien.accessors effects kernel
windows.ole32 parser lexer splitting grouping sequences
namespaces assocs quotations generalizations accessors words
macros alien.syntax fry arrays layouts math ;
IN: windows.com.syntax
<PRIVATE
@ -10,9 +10,9 @@ C-STRUCT: com-interface
{ "void*" "vtbl" } ;
MACRO: com-invoke ( n return parameters -- )
dup length -roll
[ 2nip length ] 3keep
'[
_ npick com-interface-vtbl _ swap void*-nth _ _
_ npick com-interface-vtbl _ cell * alien-cell _ _
"stdcall" alien-indirect
] ;

6
basis/windows/ole32/ole32.factor
View File

@ -1,7 +1,7 @@
USING: alien alien.syntax alien.c-types alien.strings math
kernel sequences windows windows.types debugger io accessors
math.order namespaces make math.parser windows.kernel32
combinators locals specialized-arrays.uchar ;
combinators locals specialized-arrays.direct.uchar ;
IN: windows.ole32
LIBRARY: ole32
@ -137,8 +137,8 @@ M: ole32-error error.
:: (guid-section>guid) ( string guid start end quot -- )
start end string subseq hex> guid quot call ; inline
: (guid-byte>guid) ( string guid start end byte -- )
start end string subseq hex> guid byte set-nth ; inline
:: (guid-byte>guid) ( string guid start end byte -- )
start end string subseq hex> byte guid set-nth ; inline
: string>guid ( string -- guid )
"GUID" <c-object> [