23 lines
501 B
Factor
23 lines
501 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: functors accessors alien.c-types math kernel words ;
|
||
|
|
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: mapped-array-functor ( T -- )
|
||
|
|
|
||
|
|
C DEFINES <mapped-${T}-array>
|
||
|
|
<A> IS <direct-${T}-array>
|
||
|
|
|
||
|
|
WHERE
|
||
|
|
|
||
|
|
: C mapped-file>direct <A> execute ; inline
|
||
|
|
|
||
|
|
;FUNCTOR
|