ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/typemap
Revision: 1.12
Committed: Tue Nov 27 07:27:10 2007 UTC (16 years, 5 months ago) by root
Branch: MAIN
CVS Tags: rel-1_71, rel-1_85, rel-1_8, rel-1_72, rel-1_5, rel-1_4, rel-1_6, rel-1_81, rel-1_86
Changes since 1.11: +2 -0 lines
Log Message:
*** empty log message ***

File Contents

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