factor/basis/io/mmap/functor/functor.factor

! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: io.mmap functors accessors alien.c-types math kernel
words fry ;
IN: io.mmap.functor

SLOT: address
SLOT: length

: mapped-file>direct ( mapped-file type -- alien length )
    [ [ address>> ] [ length>> ] bi ] dip
    heap-size [ 1- + ] keep /i ;

FUNCTOR: define-mapped-array ( T -- )

<mapped-A>         DEFINES <mapped-${T}-array>
<A>                IS      <direct-${T}-array>
with-mapped-A-file DEFINES with-mapped-${T}-file

WHERE

: <mapped-A> ( mapped-file -- direct-array )
    T mapped-file>direct <A> execute ; inline

: with-mapped-A-file ( path length quot -- )
    '[ <mapped-A> execute @ ] with-mapped-file ; inline

;FUNCTOR