| … | |
… | |
| 11 | static const struct { |
11 | static const struct { |
| 12 | const char *name; |
12 | const char *name; |
| 13 | IV iv; |
13 | IV iv; |
| 14 | } *civ, iom_const_iv[] = { |
14 | } *civ, iom_const_iv[] = { |
| 15 | # define iom_const_iv(name) { # name, (IV)name } |
15 | # define iom_const_iv(name) { # name, (IV)name } |
| 16 | iom_const_iv (EVENT_NONE), |
16 | iom_const_iv (EV_NONE), |
| 17 | iom_const_iv (EVENT_READ), |
17 | iom_const_iv (EV_READ), |
| 18 | iom_const_iv (EVENT_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; ) |
| 23 | newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); |
23 | newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); |
| … | |
… | |
| 54 | |
54 | |
| 55 | SV * |
55 | SV * |
| 56 | timer::new () |
56 | timer::new () |
| 57 | CODE: |
57 | CODE: |
| 58 | timer *w = new timer; |
58 | timer *w = new timer; |
| 59 | w->start (NOW); |
59 | w->start (0); |
| 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 | |
| … | |
… | |
| 68 | RETVAL = THIS->at; |
68 | RETVAL = THIS->at; |
| 69 | OUTPUT: |
69 | OUTPUT: |
| 70 | RETVAL |
70 | RETVAL |
| 71 | |
71 | |
| 72 | IOM_CHAINED |
72 | IOM_CHAINED |
| 73 | timer::interval (NV interval) |
73 | timer::interval (NV repeat) |
| 74 | CODE: |
74 | CODE: |
| 75 | THIS->interval = interval; |
75 | THIS->repeat = repeat; |
| 76 | OUTPUT: |
76 | OUTPUT: |
| 77 | RETVAL |
77 | RETVAL |
| 78 | |
78 | |
| 79 | IOM_CHAINED |
79 | IOM_CHAINED |
| 80 | timer::set (NV tstamp) |
80 | timer::set (NV tstamp) |
| … | |
… | |
| 82 | THIS->set (tstamp); |
82 | THIS->set (tstamp); |
| 83 | OUTPUT: |
83 | OUTPUT: |
| 84 | RETVAL |
84 | RETVAL |
| 85 | |
85 | |
| 86 | IOM_CHAINED |
86 | IOM_CHAINED |
| 87 | timer::start (NV tstamp = THIS->at) |
87 | timer::start (NV tstamp = ev::now ()) |
| 88 | CODE: |
88 | CODE: |
| 89 | THIS->start (tstamp); |
89 | THIS->start (tstamp - ev::now ()); |
| 90 | OUTPUT: |
90 | OUTPUT: |
| 91 | RETVAL |
91 | RETVAL |
| 92 | |
92 | |
| 93 | IOM_CHAINED |
93 | IOM_CHAINED |
| 94 | timer::after (NV delay) |
94 | timer::after (NV delay) |
| 95 | CODE: |
95 | CODE: |
| 96 | THIS->start (NOW + delay); |
96 | THIS->start (delay); |
| 97 | OUTPUT: |
97 | OUTPUT: |
| 98 | RETVAL |
98 | RETVAL |
| 99 | |
99 | |
| 100 | IOM_CHAINED |
100 | IOM_CHAINED |
| 101 | timer::stop () |
101 | timer::stop () |
