git.m6w6.name Git - m6w6/ext-psi/blob - psi.d/glob.psi

   1 extern void globfree(glob_t *buf);
   2
   3 extern int glob(char *pat, int flags, void *err, glob_t *buf);
   4 function psi\glob(string $pattern, int $flags, array &$glob = NULL) : int {
   5         let pat = strval($pattern);
   6         let flags = intval($flags);
   7         let err = NULL;
   8         let buf = arrval($glob);
   9         return to_int(glob);
  10         set $glob = to_array(*buf,
  11                 to_int(gl_matchc),
  12                 to_int(gl_pathc),
  13                 to_int(gl_offs),
  14                 to_int(gl_flags),
  15                 to_array(**gl_pathv, gl_pathc, gl_offs, to_string(*gl_pathv))
  16         );
  17         //free globfree(buf);
  18 }