29 lines
740 B
Factor
29 lines
740 B
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
|