core/io/backend/backend.factor

   1 ! Copyright (C) 2007 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: init kernel system ;
   4 IN: io.backend
   5
   6 SYMBOL: io-backend
   7
   8 HOOK: init-io io-backend ( -- )
   9
  10 HOOK: init-stdio io-backend ( -- )
  11
  12 HOOK: io-multiplex io-backend ( ms -- )
  13
  14 HOOK: normalize-directory io-backend ( str -- newstr )
  15
  16 M: object normalize-directory ;
  17
  18 HOOK: normalize-pathname io-backend ( str -- newstr )
  19
  20 M: object normalize-pathname ;
  21
  22 [ init-io embedded? [ init-stdio ] unless ]
  23 "io.backend" add-init-hook