blob: f30badc59d82f549f3e0a715b9d7475f5564a0e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
Signal T_SIGNAL
struct ev_loop * T_LOOP
ev_watcher * T_WATCHER
ev_io * T_WATCHER
ev_timer * T_WATCHER
ev_periodic * T_WATCHER
ev_signal * T_WATCHER
ev_idle * T_WATCHER
ev_prepare * T_WATCHER
ev_check * T_WATCHER
ev_child * T_WATCHER
ev_embed * T_WATCHER
ev_stat * T_WATCHER
ev_fork * T_WATCHER
ev_cleanup * T_WATCHER
ev_async * T_WATCHER
char * T_PVbyte
const char * T_PVbyte
INPUT
T_SIGNAL
if (($var = s_signum_croak ($arg)) <= 0)
croak (\"'%s' is not a valid signal number or name\", SvPV_nolen ($arg));
T_PVbyte
$var = ($type)SvPVbyte_nolen ($arg)
T_LOOP
if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
&& (SvSTASH (SvRV ($arg)) == stash_loop || sv_derived_from ($arg, \"EV::Loop\"))))
croak (\"object is not of type EV::Loop\");
$var = ($type)SvIVX (SvRV ($arg));
T_WATCHER
if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
&& (SvSTASH (SvRV ($arg)) == stash_" . ($type =~ /ev_(\S+)/, "$1") . "
|| sv_derived_from ($arg, \"EV::" . ($type =~ /ev_(\S+)/, ucfirst "$1") . "\"))))
croak (\"object is not of type EV::" . ($type =~ /ev_(\S+)/, ucfirst "$1") . "\");
$var = ($type)SvPVX (SvRV ($arg));
OUTPUT
T_PVbyte
sv_setpv ((SV *)$arg, $var);
T_WATCHER
$arg = e_bless ((struct ev_watcher *)$var, stash_${ ($type =~ /ev_(\S+)/, \"$1") });
|