factor/basis/io/mmap/mmap.factor

! Copyright (C) 2007, 2008 Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: continuations destructors io.files io.files.info
io.backend kernel quotations system alien alien.accessors
accessors system vocabs.loader combinators alien.c-types
math ;
IN: io.mmap

TUPLE: mapped-file address handle length disposed ;

HOOK: (mapped-file) os ( path length -- address handle )

ERROR: bad-mmap-size path size ;

: <mapped-file> ( path -- mmap )
    [ normalize-path ] [ file-info size>> ] bi
    dup 0 <= [ bad-mmap-size ] when
    [ (mapped-file) ] keep
    f mapped-file boa ;

HOOK: close-mapped-file io-backend ( mmap -- )

M: mapped-file dispose* ( mmap -- ) close-mapped-file ;

: with-mapped-file ( path quot -- )
    [ <mapped-file> ] dip with-disposal ; inline

{
    { [ os unix? ] [ "io.mmap.unix" require ] }
    { [ os winnt? ] [ "io.mmap.windows" require ] }
} cond