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

Comparing EV/typemap (file contents):
Revision 1.3 by root, Sun Oct 28 06:37:39 2007 UTC vs.
Revision 1.6 by root, Mon Oct 29 09:00:43 2007 UTC

1Base T_BASE 1Base T_BASE
2Event T_EVENT 2Event T_EVENT
3const char * T_PV /* for 5.6 compatibility */ 3Signal T_SIGNAL
4
5char * T_PVbyte
6const char * T_PVbyte
4 7
5INPUT 8INPUT
6 9
7T_BASE 10T_BASE
8 if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) 11 if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
… …
14 if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) 17 if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
15 && SvSTASH (SvRV ($arg)) == stash_event)) 18 && SvSTASH (SvRV ($arg)) == stash_event))
16 croak (\"object is not of type EV::Event\"); 19 croak (\"object is not of type EV::Event\");
17 $var = (Event)SvPVX (SvRV ($arg)); 20 $var = (Event)SvPVX (SvRV ($arg));
18 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
26T_PVbyte
27 $var = ($type)SvPVbyte_nolen ($arg)
28
19OUTPUT 29OUTPUT
20 30
21T_BASE 31T_BASE
22 sv_setref_iv ($arg, "EV::Base", (IV)$var); 32 sv_setref_iv ($arg, "EV::Base", (IV)$var);
23 33
24T_EVENT 34T_EVENT
25 $arg = e_self ($var); 35 $arg = e_self ($var);
26 36
37T_PVbyte
38 sv_setpv ((SV *)$arg, $var);
39

Diff Legend

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