blob: b6e16d1344a772e8441d4f13ab0484ce92912dfd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(load "../common")
(defstruct glob-t nil
pathc pathv reserve)
(deffi-type glob-t (struct glob-t
(pathc size-t)
(pathv (ptr-out-d (zarray str-d)))
(reserve size-t)))
(with-dyn-lib (libc)
(deffi globb "glob" int (str int closure (ptr-out glob-t)))
(deffi-cb glob-cb int (str int) -1))
(let* ((g (new glob-t)))
(prinl (globb "tests/001/*.txr" 0 (glob-cb (lambda (path err))) g))
(prinl g))
|
