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