Added initial memory mapped file support.

lfex · Aug 16, 2023 · 99c2834 · 99c2834
1 parent f703e36
commit 99c2834
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/rebar.config b/rebar.config
@@ -4,6 +4,7 @@
 {deps, [
     {lfe, "2.1.2"},
     {lutil, "0.14.3"},
+    {emmap, "2.0.11"},
     {erlsom, "1.5.1"},
     {fast_xml, "1.1.49"}
   ]}.

diff --git a/src/lxml-mmap.lfe b/src/lxml-mmap.lfe
@@ -0,0 +1,12 @@
+(defmodule lxml-mmap
+  (export
+   (read 1) (read 2)))
+
+(defun read (filename)
+  (read filename '(read shared direct)))
+
+(defun read (filename opts)
+  (case (emmap:open (lutil-file:expand-home-dir filename)
+                    opts)
+    (`#(ok ,mem ,info) `#m(mem ,mem info ,info))
+    (err err)))