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

win32 fixes

cvs
Mackenzie Straight 2005-04-03 21:38:57 +00:00
parent 4e96d1e5f4
commit 5433b4826e
5 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/io/win32-io-internals.factor
View File

@ -25,7 +25,7 @@
IN: win32-io-internals IN: win32-io-internals
USING: alien errors kernel kernel-internals lists math namespaces threads USING: alien errors kernel kernel-internals lists math namespaces threads
vectors win32-api stdio streams generic ; vectors win32-api stdio streams generic io-internals ;
SYMBOL: completion-port SYMBOL: completion-port
SYMBOL: io-queue SYMBOL: io-queue

2
library/io/win32-server.factor
View File

@ -26,7 +26,7 @@
IN: win32-stream IN: win32-stream
USING: alien errors generic kernel kernel-internals lists math namespaces USING: alien errors generic kernel kernel-internals lists math namespaces
prettyprint stdio streams strings threads unparser win32-api prettyprint stdio streams strings threads unparser win32-api
win32-io-internals ; win32-io-internals io-internals ;
TUPLE: win32-server this ; TUPLE: win32-server this ;
TUPLE: win32-client-stream host ; TUPLE: win32-client-stream host ;

4
library/io/win32-stream.factor
View File

@ -26,7 +26,7 @@
IN: win32-stream IN: win32-stream
USING: alien continuations generic kernel kernel-internals lists math USING: alien continuations generic kernel kernel-internals lists math
namespaces prettyprint stdio streams strings threads win32-api namespaces prettyprint stdio streams strings threads win32-api
win32-io-internals ; win32-io-internals io-internals ;
TUPLE: win32-stream this ; ! FIXME: rewrite using tuples TUPLE: win32-stream this ; ! FIXME: rewrite using tuples
GENERIC: win32-stream-handle GENERIC: win32-stream-handle
@ -67,7 +67,7 @@ SYMBOL: file-size
M: integer do-write ( int -- ) M: integer do-write ( int -- )
out-buffer get [ buffer-capacity 0 = [ flush-output ] when ] keep out-buffer get [ buffer-capacity 0 = [ flush-output ] when ] keep
>r ch>str r> >buffer ; >r ch>string r> >buffer ;
M: string do-write ( str -- ) M: string do-write ( str -- )
dup string-length out-buffer get buffer-capacity <= [ dup string-length out-buffer get buffer-capacity <= [

2
library/win32/win32-errors.factor
View File

@ -29,7 +29,7 @@ IN: win32-api
USE: buffer USE: buffer
USE: errors USE: errors
USE: kernel USE: kernel
USE: kernel-internals USE: io-internals
USE: lists USE: lists
USE: math USE: math
USE: parser USE: parser

2
native/bignum.h
View File

@ -51,7 +51,7 @@ INLINE CELL tag_cell(CELL x)
} }
/* FFI calls this */ /* FFI calls this */
void box_signed_cell(F_FIXNUM integer); DLLEXPORT void box_signed_cell(F_FIXNUM integer);
DLLEXPORT F_FIXNUM unbox_signed_cell(void); DLLEXPORT F_FIXNUM unbox_signed_cell(void);
DLLEXPORT void box_unsigned_cell(CELL cell); DLLEXPORT void box_unsigned_cell(CELL cell);