1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#|
This file is a part of mmap
(c) 2017 Shirakumo http://tymoon.eu (shinmera@tymoon .eu)
Author: Nicolas Hafner <shinmera@tymoon.eu>
|#
(in-package #:org.shirakumo.fraf.trial.mmap)
(define-condition mmap-error (simple-error)
((code :initarg :code :reader code)
(message :initarg :message :reader message))
(:report (lambda (c s) (format s "Failed to mmap file (E~d):~% ~a"
(code c) (message c)))))
(defun error-mmap (code message)
(error 'mmap-error :code code :message message))
(defun cfold (env form &rest vars)
(if (loop for var in vars
always (constantp var env))
`(load-time-value ,form)
form))
(defun translate-path (path)
(etypecase path
(string path)
(pathname (uiop:native-namestring path))
(null)))
#-(or unix windows)
(defun mmap (path &key open protection mmap)
(error "Platform not supported."))
#-(or unix windows)
(defun munmap (addr fd size)
(error "Platform not supported."))
#-(or unix windows)
(defun msync (addr size &key flags)
(error "Platform not supported."))
#-(or unix windows)
(defun mprotect (addr size protection)
(error "Platform not supported."))
(defmacro with-mmap ((addr fd size path &rest args) &body body)
(let ((addrg (gensym "ADDR"))
(fdg (gensym "FD"))
(sizeg (gensym "SIZE")))
`(multiple-value-bind (,addrg ,fdg ,sizeg) (mmap ,path ,@args)
(unwind-protect
(let ((,addr ,addrg)
(,fd ,fdg)
(,size ,sizeg))
(declare (ignorable ,fd ,size))
,@body)
(munmap ,addrg ,fdg ,sizeg)))))
|
