ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/typemap
(Generate patch)

Comparing EV/typemap (file contents):
Revision 1.5 by root, Mon Oct 29 07:56:03 2007 UTC vs.
Revision 1.18 by root, Sun Oct 24 19:01:01 2010 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines