+#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 = callback intval($errfn(
+ let err = callback(
+ epath,
+ eerrno
+ ) as intval($errfn(
to_string(epath),
to_int(eerrno)
));
strval($gl_pathv)
)
);
- return to_int(glob);
+ 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_flags),
to_array(*gl_pathv, gl_pathc + gl_offs, to_string(*gl_pathv))
);
- free globfree(buf);
}