stdio vararg decls

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

diff --git a/psi.d/glob.psi b/psi.d/glob.psi
index 3f8ee1e37e16f105941f75029ae148a10ae2eea6..02d1c3d68811b4eb767239666d87f2fbded07ea4 100644 (file)
--- a/psi.d/glob.psi
+++ b/psi.d/glob.psi
@@ -1,8 +1,5 @@
-extern void globfree(glob_t *buf);
-
-extern int glob(char *pat, int flags, void *err, glob_t *buf);
 function psi\glob(string $pattern, int $flags, array &$glob = NULL) : int {
-       let pat = strval($pattern);
+       let path = strval($pattern);
        let flags = intval($flags);
        let err = NULL;
        let buf = arrval($glob);
@@ -12,7 +9,7 @@ function psi\glob(string $pattern, int $flags, array &$glob = NULL) : int {
                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);
+       free globfree(buf);
 }