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.5 by root, Mon Oct 29 07:56:03 2007 UTC

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

Diff Legend

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