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

Comparing EV/typemap (file contents):
Revision 1.4 by root, Sun Oct 28 09:39:18 2007 UTC vs.
Revision 1.12 by root, Tue Nov 27 07:27:10 2007 UTC

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

Diff Legend

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