autoconf: split into subdirectories; redirect calls in debug builds

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

diff --git a/psi.d/glob.psi b/psi.d/glob.psi
index 72c0c76f9d48c2e9256405edd8004510a9aea84a..61ada04bb65c7f0f41d9360c0ed8de1fff958d6c 100644 (file)
--- a/psi.d/glob.psi
+++ b/psi.d/glob.psi
@@ -1,7 +1,10 @@
-function psi\glob(string $pattern, int $flags, array &$glob = NULL) : int {
+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 err = callback intval($errfn(
+               to_string(errmsg),
+               to_int(errno)
+       ));
        let buf = &arrval($glob);
        return to_int(glob);
        set $glob = to_array(*buf,