… | |
… | |
17 | iom_const_iv (EV_READ), |
17 | iom_const_iv (EV_READ), |
18 | iom_const_iv (EV_WRITE), |
18 | iom_const_iv (EV_WRITE), |
19 | # undef iom_const |
19 | # undef iom_const |
20 | }; |
20 | }; |
21 | |
21 | |
22 | for (civ = iom_const_iv + sizeof (iom_const_iv) / sizeof (iom_const_iv [0]); civ-- > iom_const_iv; ) |
22 | for (civ = iom_const_iv + sizeof (iom_const_iv) / sizeof (iom_const_iv [0]); civ > iom_const_iv; civ--) |
23 | newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); |
23 | newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv)); |
24 | |
24 | |
25 | /* slightly dirty to put the same scalar into all those arrays, but */ |
25 | /* slightly dirty to put the same scalar into all those arrays, but */ |
26 | /* we do not expect users to modify them anyways */ |
26 | /* we do not expect users to modify them anyways */ |
27 | av_push (get_av ("IOM_CLASS" "::timer::ISA", 1), SvREFCNT_inc (baseclass)); |
27 | av_push (get_av ("IOM_CLASS" "::timer::ISA", 1), SvREFCNT_inc (baseclass)); |
28 | av_push (get_av ("IOM_CLASS" "::iow::ISA", 1), SvREFCNT_inc (baseclass)); |
28 | av_push (get_av ("IOM_CLASS" "::iow::ISA", 1), SvREFCNT_inc (baseclass)); |
… | |
… | |
60 | RETVAL = newSVptr ((void *)(perl_watcher *)w, "IOM_CLASS::timer"); |
60 | RETVAL = newSVptr ((void *)(perl_watcher *)w, "IOM_CLASS::timer"); |
61 | w->self = (HV *)SvRV (RETVAL); |
61 | w->self = (HV *)SvRV (RETVAL); |
62 | OUTPUT: |
62 | OUTPUT: |
63 | RETVAL |
63 | RETVAL |
64 | |
64 | |
|
|
65 | # deprecated |
65 | NV |
66 | NV |
66 | timer::at () |
67 | timer::at () |
67 | CODE: |
68 | CODE: |
68 | RETVAL = THIS->at; |
69 | RETVAL = THIS->remaining () + ev_now (); |
69 | OUTPUT: |
70 | OUTPUT: |
70 | RETVAL |
71 | RETVAL |
71 | |
72 | |
72 | IOM_CHAINED |
73 | IOM_CHAINED |
73 | timer::interval (NV repeat) |
74 | timer::interval (NV repeat) |
… | |
… | |
75 | THIS->repeat = repeat; |
76 | THIS->repeat = repeat; |
76 | OUTPUT: |
77 | OUTPUT: |
77 | RETVAL |
78 | RETVAL |
78 | |
79 | |
79 | IOM_CHAINED |
80 | IOM_CHAINED |
80 | timer::set (NV tstamp) |
81 | timer::set (NV tstamp, NV repeat = THIS->repeat) |
81 | CODE: |
82 | CODE: |
82 | THIS->set (tstamp); |
83 | THIS->set (tstamp, repeat); |
83 | OUTPUT: |
84 | OUTPUT: |
84 | RETVAL |
85 | RETVAL |
85 | |
86 | |
86 | IOM_CHAINED |
87 | IOM_CHAINED |
87 | timer::start (NV tstamp = ev::now ()) |
88 | timer::start (NV tstamp = ev::now (), NV repeat = THIS->repeat) |
88 | CODE: |
89 | CODE: |
89 | THIS->start (tstamp - ev::now ()); |
90 | THIS->start (tstamp - ev::now (), repeat); |
90 | OUTPUT: |
91 | OUTPUT: |
91 | RETVAL |
92 | RETVAL |
92 | |
93 | |
93 | IOM_CHAINED |
94 | IOM_CHAINED |
94 | timer::after (NV delay) |
95 | timer::after (NV delay, NV repeat = THIS->repeat) |
95 | CODE: |
96 | CODE: |
96 | THIS->start (delay); |
97 | THIS->start (delay, repeat); |
97 | OUTPUT: |
98 | OUTPUT: |
98 | RETVAL |
99 | RETVAL |
99 | |
100 | |
100 | IOM_CHAINED |
101 | IOM_CHAINED |
101 | timer::stop () |
102 | timer::stop () |
… | |
… | |
212 | CODE: |
213 | CODE: |
213 | THIS->stop (); |
214 | THIS->stop (); |
214 | OUTPUT: |
215 | OUTPUT: |
215 | RETVAL |
216 | RETVAL |
216 | |
217 | |
|
|
218 | int |
|
|
219 | pw::rpid () |
|
|
220 | CODE: |
|
|
221 | RETVAL = THIS->rpid; |
|
|
222 | OUTPUT: |
|
|
223 | RETVAL |
|
|
224 | |
|
|
225 | int |
|
|
226 | pw::rstatus () |
|
|
227 | CODE: |
|
|
228 | RETVAL = THIS->rstatus; |
|
|
229 | OUTPUT: |
|
|
230 | RETVAL |
|
|
231 | |
217 | void |
232 | void |
218 | pw::DESTROY () |
233 | pw::DESTROY () |
219 | |
234 | |
220 | |
235 | |