#include <sys/stat.h>
// extern int stat(char *path, struct stat *buf);
function psi\stat(string $path, array &$buf = NULL) : int {
	let path = strval($path);
	let buf = calloc(1, sizeof(struct stat));
	return stat(path, buf) as to_int(stat);
	set $buf = to_array(*buf,
		to_int(st_dev),
		to_int(st_ino),
		to_int(st_mode),
		to_int(st_nlink),
		to_int(st_uid),
		to_int(st_gid),
		to_int(st_rdev),
		to_int(st_size),
		to_array(st_atim,
			to_int(tv_sec),
			to_int(tv_nsec)
		),
		to_array(st_atimespec,
			to_int(tv_sec),
			to_int(tv_nsec)
		),
		to_array(st_mtim,
			to_int(tv_sec),
			to_int(tv_nsec)
		),
		to_array(st_mtimespec,
			to_int(tv_sec),
			to_int(tv_nsec)
		),
		to_array(st_ctim,
			to_int(tv_sec),
			to_int(tv_nsec)
		),
		to_array(st_ctimespec,
			to_int(tv_sec),
			to_int(tv_nsec)
		),
		to_array(st_birthtim,
			to_int(tv_sec),
			to_int(tv_nsec)
		),
		to_array(st_birthtimespec,
			to_int(tv_sec),
			to_int(tv_nsec)
		),
		to_int(st_blksize),
		to_int(st_blocks),
		to_int(st_flags),
		to_int(st_gen)
	);
}