steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use destructors in io.unix.mmap

db4
Slava Pestov 2008-05-13 23:51:04 -05:00
parent 7ac5747de8
commit 58e4106a27
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
extra/io/unix/mmap/mmap.factor
View File

@ -1,22 +1,25 @@
! Copyright (C) 2007 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien io io.files kernel math system unix io.unix.backend
io.mmap ;
io.mmap destructors ;
IN: io.unix.mmap
: open-r/w ( path -- fd ) O_RDWR file-mode open-file ;
: mmap-open ( length prot flags path -- alien fd )
>r f -roll r> open-r/w [ 0 mmap ] keep
over MAP_FAILED = [ close-file (io-error) ] when ;
[
>r f -roll r> open-r/w dup close-later
[ 0 mmap dup MAP_FAILED = [ (io-error) ] when ] keep
] with-destructors ;
M: unix (mapped-file) ( path length -- obj )
swap >r
dup PROT_READ PROT_WRITE bitor MAP_FILE MAP_SHARED bitor
dup
PROT_READ PROT_WRITE bitor
MAP_FILE MAP_SHARED bitor
r> mmap-open f mapped-file boa ;
M: unix close-mapped-file ( mmap -- )
[ mapped-file-address ] keep
[ mapped-file-length munmap ] keep
mapped-file-handle close-file
io-error ;
[ [ address>> ] [ length>> ] bi munmap io-error ]
[ handle>> close-file ]
bi ;