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

Minor I/O backend tweak

db4
Slava Pestov 2008-01-23 02:45:55 -04:00
parent cc9646c80d
commit 157043ad19
6 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/io/backend/backend.factor Normal file → Executable file
View File

@ -21,3 +21,6 @@ M: object normalize-pathname ;
[ init-io embedded? [ init-stdio ] unless ] [ init-io embedded? [ init-stdio ] unless ]
"io.backend" add-init-hook "io.backend" add-init-hook
: set-io-backend ( backend -- )
io-backend set-global init-io init-stdio ;

3
extra/bootstrap/io/io.factor
View File

@ -10,6 +10,3 @@ IN: bootstrap.io
{ [ wince? ] [ "windows.ce" ] } { [ wince? ] [ "windows.ce" ] }
} cond append require } cond append require
] when ] when
init-io
init-stdio

2
extra/io/unix/bsd/bsd.factor Normal file → Executable file
View File

@ -26,4 +26,4 @@ M: bsd-io init-io ( -- )
M: bsd-io wait-for-process ( pid -- status ) M: bsd-io wait-for-process ( pid -- status )
[ kqueue-mx get-global add-pid-task stop ] curry callcc1 ; [ kqueue-mx get-global add-pid-task stop ] curry callcc1 ;
T{ bsd-io } io-backend set-global T{ bsd-io } set-io-backend

2
extra/io/unix/linux/linux.factor Normal file → Executable file
View File

@ -14,4 +14,4 @@ M: linux-io init-io ( -- )
M: linux-io wait-for-pid ( pid -- status ) M: linux-io wait-for-pid ( pid -- status )
[ kqueue-mx get-global add-pid-task stop ] curry callcc1 ; [ kqueue-mx get-global add-pid-task stop ] curry callcc1 ;
T{ linux-io } io-backend set-global T{ linux-io } set-io-backend

2
extra/io/windows/ce/ce.factor
View File

@ -3,4 +3,4 @@ io.windows.ce.files io.windows.ce.sockets io.windows.ce.launcher
namespaces io.windows.mmap ; namespaces io.windows.mmap ;
IN: io.windows.ce IN: io.windows.ce
T{ windows-ce-io } io-backend set-global T{ windows-ce-io } set-io-backend

2
extra/io/windows/nt/nt.factor
View File

@ -9,4 +9,4 @@ USE: io.windows.mmap
USE: io.backend USE: io.backend
USE: namespaces USE: namespaces
T{ windows-nt-io } io-backend set-global T{ windows-nt-io } set-io-backend