cache cpp defaults

[m6w6/ext-psi] / psi.d / glob.psi

diff --git a/psi.d/glob.psi b/psi.d/glob.psi
index ce6f5a72c3510a2758c63e5533e3203b545952d3..4e5589a579fa5b1470e7b074f4b2de62a1986663 100644 (file)
--- a/psi.d/glob.psi
+++ b/psi.d/glob.psi
@@ -1,15 +1,31 @@
-function psi\glob(string $pattern, int $flags, array &$glob = NULL) : int {
+#include <glob.h>
+
+function psi\glob(string $pattern, int $flags, array &$glob = NULL, callable $errfn = NULL) : int {
        let path = strval($pattern);
        let flags = intval($flags);
-       let err = NULL;
-       let buf = arrval($glob);
-       return to_int(glob);
+       let err = callback(
+               epath, 
+               eerrno
+       ) as intval($errfn(
+               to_string(epath),
+               to_int(eerrno)
+       ));
+       let buf = &arrval($glob,
+               intval($gl_matchc),
+               intval($gl_pathc),
+               intval($gl_offs),
+               intval($gl_flags),
+               &arrval($gl_pathv, 
+                       strval($gl_pathv)
+               )
+       );
+       return glob(path, flags, err, buf) as to_int(glob);
        set $glob = to_array(*buf,
                to_int(gl_matchc),
                to_int(gl_pathc),
                to_int(gl_offs),
                to_int(gl_flags),
-               to_array(gl_pathv, gl_pathc + gl_offs, to_string(gl_pathv))
+               to_array(*gl_pathv, gl_pathc + gl_offs, to_string(*gl_pathv))
        );
        free globfree(buf);
 }