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

Fix the io and ui backends so it bootstraps and the ui starts

release
U-C4\Administrator 2007-10-04 11:51:17 -05:00
parent 0183a40717
commit 02a9e1eb14
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/io/windows/nt/backend/backend.factor
View File

@ -5,6 +5,9 @@ windows.errors windows.kernel32 prettyprint strings splitting
io.files windows.winsock ;
IN: io.windows.nt.backend
: .. global [ . flush ] bind ;
: .S global [ .s flush ] bind ;
: unicode-prefix ( -- seq )
"\\\\?\\" ; inline
@ -92,7 +95,7 @@ C: <GetQueuedCompletionStatusParams> GetQueuedCompletionStatusParams
: lookup-callback ( GetQueuedCompletion-args -- callback )
GetQueuedCompletionStatusParams-lpOverlapped* *void*
\ io-hash get-global delete-at drop ;
\ io-hash get-global delete-at* drop ;
: wait-for-io ( timeout -- continuation/f )
wait-for-overlapped

2
extra/ui/windows/windows.factor
View File

@ -456,7 +456,7 @@ M: windows-ui-backend ui
init-win32-ui
start-ui
event-loop
] [ cleanup-win32-ui ] cleanup
] [ cleanup-win32-ui ] [ ] cleanup
] ui-running ;
T{ windows-ui-backend } ui-backend set-global