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.17 by root, Tue Jul 14 02:33:55 2009 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_async * T_WATCHER
18
19char * T_PVbyte
6const char * T_PV 20const char * T_PVbyte
7 21
8INPUT 22INPUT
9 23
10T_BASE 24T_SIGNAL
25 if (($var = s_signum_croak ($arg)) <= 0)
26 croak (\"'%s' is not a valid signal number or name\", SvPV_nolen ($arg));
27
28T_PVbyte
29 $var = ($type)SvPVbyte_nolen ($arg)
30
31T_LOOP
11 if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) 32 if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
12 && SvSTASH (SvRV ($arg)) == stash_base)) 33 && (SvSTASH (SvRV ($arg)) == stash_loop || sv_derived_from ($arg, \"EV::Loop\"))))
13 croak (\"object is not of type EV::Base\"); 34 croak (\"object is not of type EV::Loop\");
14 $var = (Base)SvIV (SvRV ($arg)); 35 $var = ($type)SvIVX (SvRV ($arg));
15 36
16T_EVENT 37T_WATCHER
17 if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) 38 if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
18 && SvSTASH (SvRV ($arg)) == stash_event)) 39 && (SvSTASH (SvRV ($arg)) == stash_" . ($type =~ /ev_(\S+)/, "$1") . "
19 croak (\"object is not of type EV::Event\"); 40 || sv_derived_from ($arg, \"EV::" . ($type =~ /ev_(\S+)/, ucfirst "$1") . "\"))))
41 croak (\"object is not of type EV::" . ($type =~ /ev_(\S+)/, ucfirst "$1") . "\");
20 $var = (Event)SvPVX (SvRV ($arg)); 42 $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 43
26OUTPUT 44OUTPUT
27 45
28T_BASE 46T_PVbyte
29 sv_setref_iv ($arg, "EV::Base", (IV)$var); 47 sv_setpv ((SV *)$arg, $var);
30 48
31T_EVENT 49T_WATCHER
32 $arg = e_self ($var); 50 $arg = e_bless ((struct ev_watcher *)$var, stash_${ ($type =~ /ev_(\S+)/, \"$1") });
33 51
52

Diff Legend

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