… | |
… | |
985 | RESET (stat, w, (w, SvPVbyte_nolen (w->fh), new_interval)); |
985 | RESET (stat, w, (w, SvPVbyte_nolen (w->fh), new_interval)); |
986 | } |
986 | } |
987 | OUTPUT: |
987 | OUTPUT: |
988 | RETVAL |
988 | RETVAL |
989 | |
989 | |
|
|
990 | void prev (ev_stat *w) |
|
|
991 | ALIAS: |
|
|
992 | stat = 1 |
|
|
993 | attr = 2 |
|
|
994 | PPCODE: |
|
|
995 | { |
|
|
996 | ev_statdata *s = ix ? &w->attr : &w->prev; |
|
|
997 | |
|
|
998 | if (ix == 1) |
|
|
999 | ev_stat_stat (w); |
|
|
1000 | else if (!s->st_nlink) |
|
|
1001 | errno = ENOENT; |
|
|
1002 | |
|
|
1003 | PL_statcache.st_dev = s->st_nlink; |
|
|
1004 | PL_statcache.st_ino = s->st_ino; |
|
|
1005 | PL_statcache.st_mode = s->st_mode; |
|
|
1006 | PL_statcache.st_nlink = s->st_nlink; |
|
|
1007 | PL_statcache.st_uid = s->st_uid; |
|
|
1008 | PL_statcache.st_gid = s->st_gid; |
|
|
1009 | PL_statcache.st_rdev = s->st_rdev; |
|
|
1010 | PL_statcache.st_size = s->st_size; |
|
|
1011 | PL_statcache.st_atime = s->st_atime; |
|
|
1012 | PL_statcache.st_mtime = s->st_mtime; |
|
|
1013 | PL_statcache.st_ctime = s->st_ctime; |
|
|
1014 | |
|
|
1015 | if (GIMME_V == G_SCALAR) |
|
|
1016 | XPUSHs (boolSV (s->st_nlink)); |
|
|
1017 | else if (GIMME_V == G_ARRAY && s->st_nlink) |
|
|
1018 | { |
|
|
1019 | EXTEND (SP, 13); |
|
|
1020 | PUSHs (sv_2mortal (newSViv (s->st_dev))); |
|
|
1021 | PUSHs (sv_2mortal (newSViv (s->st_ino))); |
|
|
1022 | PUSHs (sv_2mortal (newSVuv (s->st_mode))); |
|
|
1023 | PUSHs (sv_2mortal (newSVuv (s->st_nlink))); |
|
|
1024 | PUSHs (sv_2mortal (newSViv (s->st_uid))); |
|
|
1025 | PUSHs (sv_2mortal (newSViv (s->st_gid))); |
|
|
1026 | PUSHs (sv_2mortal (newSViv (s->st_rdev))); |
|
|
1027 | PUSHs (sv_2mortal (newSVnv ((NV)s->st_size))); |
|
|
1028 | PUSHs (sv_2mortal (newSVnv (s->st_atime))); |
|
|
1029 | PUSHs (sv_2mortal (newSVnv (s->st_mtime))); |
|
|
1030 | PUSHs (sv_2mortal (newSVnv (s->st_ctime))); |
|
|
1031 | PUSHs (sv_2mortal (newSVuv (4096))); |
|
|
1032 | PUSHs (sv_2mortal (newSVnv ((NV)((s->st_size + 4095) / 4096)))); |
|
|
1033 | } |
|
|
1034 | } |
|
|
1035 | |
990 | #ifndef _WIN32 |
1036 | #ifndef _WIN32 |
991 | |
1037 | |
992 | MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_ |
1038 | MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_ |
993 | |
1039 | |
994 | BOOT: |
1040 | BOOT: |