factor/basis/io/mmap/unix/unix.factor

! Copyright (C) 2007 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien io io.files kernel math math.bitwise system unix
io.backend.unix io.ports io.mmap destructors locals accessors ;
IN: io.mmap.unix

: open-r/w ( path -- fd ) O_RDWR file-mode open-file ;

:: mmap-open ( path length prot flags -- alien fd )
    [
        f length prot flags
        path open-r/w [ <fd> |dispose drop ] keep
        [ 0 mmap dup MAP_FAILED = [ (io-error) ] when ] keep
    ] with-destructors ;

M: unix (mapped-file)
    { PROT_READ PROT_WRITE } flags
    { MAP_FILE MAP_SHARED } flags
    mmap-open ;

M: unix close-mapped-file ( mmap -- )
    [ [ address>> ] [ length>> ] bi munmap io-error ]
    [ handle>> close-file ]
    bi ;