24 lines
513 B
Factor
24 lines
513 B
Factor
! Copyright (C) 2007 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: init kernel system ;
|
|
IN: io.backend
|
|
|
|
SYMBOL: io-backend
|
|
|
|
HOOK: init-io io-backend ( -- )
|
|
|
|
HOOK: init-stdio io-backend ( -- )
|
|
|
|
HOOK: io-multiplex io-backend ( ms -- )
|
|
|
|
HOOK: normalize-directory io-backend ( str -- newstr )
|
|
|
|
M: object normalize-directory ;
|
|
|
|
HOOK: normalize-pathname io-backend ( str -- newstr )
|
|
|
|
M: object normalize-pathname ;
|
|
|
|
[ init-io embedded? [ init-stdio ] unless ]
|
|
"io.backend" add-init-hook
|