ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/EV/EVAPI.h
Revision: 1.33
Committed: Thu Dec 20 07:12:57 2007 UTC (16 years, 5 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.32: +65 -35 lines
Log Message: 
*** empty log message ***

File Contents

# Content
1 #ifndef EV_API_H
2 #define EV_API_H
3
4 #include "EXTERN.h"
5 #include "perl.h"
6 #include "XSUB.h"
7
8 #ifndef pTHX_
9 # define pTHX_
10 # define aTHX_
11 # define pTHX
12 # define aTHX
13 #endif
14
15 #define EV_COMMON \
16 int flags; /* cheap on 64 bit systems */ \
17 struct ev_loop *loop; \
18 SV *self; /* contains this struct */ \
19 SV *cb_sv, *fh, *data;
20
21 #ifndef EV_PROTOTYPES
22 # define EV_PROTOTYPES 0
23 #endif
24
25 #define EV_STANDALONE 1
26 #define EV_MULTIPLICITY 1
27
28 #include <ev.h>
29
30 struct EVAPI {
31 I32 ver;
32 I32 rev;
33 #define EV_API_VERSION 4
34 #define EV_API_REVISION 0
35
36 struct ev_loop *default_loop;
37 unsigned int supported_backends;
38 unsigned int recommended_backends;
39 unsigned int embeddable_backends;
40
41 /* perl fh or fd int to fd */
42 int (*sv_fileno) (SV *fh);
43 /* signal number/name to signum */
44 int (*sv_signum) (SV *fh);
45
46 /* same as libev functions */
47 ev_tstamp (*(time))(void);
48 ev_tstamp (*now)(EV_P);
49 struct ev_loop *(*loop_new)(unsigned int);
50 void (*loop_destroy)(EV_P);
51 void (*loop_fork)(EV_P);
52 unsigned int (*loop_count)(EV_P);
53 unsigned int (*backend)(EV_P);
54 void (*loop)(EV_P_ int flags);
55 void (*unloop)(EV_P_ int how);
56 void (*ref)(EV_P);
57 void (*unref)(EV_P);
58 void (*once)(EV_P_ int fd, int events, ev_tstamp timeout, void (*cb)(int revents, void *arg), void *arg);
59 int (*clear_pending)(EV_P_ void *);
60 void (*invoke)(EV_P_ void *, int);
61 void (*io_start)(EV_P_ ev_io *);
62 void (*io_stop) (EV_P_ ev_io *);
63 void (*timer_start)(EV_P_ ev_timer *);
64 void (*timer_stop) (EV_P_ ev_timer *);
65 void (*timer_again)(EV_P_ ev_timer *);
66 void (*periodic_start)(EV_P_ ev_periodic *);
67 void (*periodic_stop) (EV_P_ ev_periodic *);
68 void (*signal_start)(EV_P_ ev_signal *);
69 void (*signal_stop) (EV_P_ ev_signal *);
70 void (*child_start)(EV_P_ ev_child *);
71 void (*child_stop) (EV_P_ ev_child *);
72 void (*stat_start)(EV_P_ ev_stat *);
73 void (*stat_stop) (EV_P_ ev_stat *);
74 void (*stat_stat) (EV_P_ ev_stat *);
75 void (*idle_start)(EV_P_ ev_idle *);
76 void (*idle_stop) (EV_P_ ev_idle *);
77 void (*prepare_start)(EV_P_ ev_prepare *);
78 void (*prepare_stop) (EV_P_ ev_prepare *);
79 void (*check_start)(EV_P_ ev_check *);
80 void (*check_stop) (EV_P_ ev_check *);
81 void (*embed_start)(EV_P_ ev_embed *);
82 void (*embed_stop) (EV_P_ ev_embed *);
83 void (*embed_sweep)(EV_P_ ev_embed *);
84 void (*fork_start) (EV_P_ ev_fork *);
85 void (*fork_stop) (EV_P_ ev_fork *);
86 };
87
88 #if !EV_PROTOTYPES
89 # undef EV_DEFAULT
90 # undef EV_DEFAULT_
91 # undef EV_A_
92 # define EV_DEFAULT GEVAPI->default_loop
93 # define ev_supported_backends() GEVAPI->supported_backends
94 # define ev_recommended_backends() GEVAPI->recommended_backends
95 # define ev_embeddable_backends() GEVAPI->embeddable_backends
96
97 # define sv_fileno(sv) GEVAPI->sv_fileno (sv)
98 # define sv_signum(sv) GEVAPI->sv_signum (sv)
99 # define ev_time() GEVAPI->(time) ()
100 # define ev_loop_new(flags) GEVAPI->loop_new ((flags))
101 # define ev_loop_destroy(loop) GEVAPI->loop_destroy ((loop))
102 # define ev_loop_fork(loop) GEVAPI->loop_fork ((loop))
103 # define ev_loop_count(loop) GEVAPI->loop_count ((loop))
104 # define ev_now(loop) GEVAPI->now ((loop))
105 # define ev_backend(loop) GEVAPI->backend ((loop))
106 # define ev_loop(loop,flags) GEVAPI->loop ((loop), (flags))
107 # define ev_unloop(loop,how) GEVAPI->unloop ((loop), (how)
108 # define ev_once(loop,fd,events,timeout,cb,arg) GEVAPI->once ((loop), (fd), (events), (timeout), (cb), (arg))
109 # define ev_io_start(l,w) GEVAPI->io_start ((l), (w))
110 # define ev_io_stop(l,w) GEVAPI->io_stop ((l), (w))
111 # define ev_timer_start(l,w) GEVAPI->timer_start ((l), (w))
112 # define ev_timer_stop(l,w) GEVAPI->timer_stop ((l), (w))
113 # define ev_timer_again(l,w) GEVAPI->timer_again ((l), (w))
114 # define ev_periodic_start(l,w) GEVAPI->periodic_start ((l), (w))
115 # define ev_periodic_stop(l,w) GEVAPI->periodic_stop ((l), (w))
116 # define ev_signal_start(l,w) GEVAPI->signal_start ((l), (w))
117 # define ev_signal_stop(l,w) GEVAPI->signal_stop ((l), (w))
118 # define ev_idle_start(l,w) GEVAPI->idle_start ((l), (w))
119 # define ev_idle_stop(l,w) GEVAPI->idle_stop ((l), (w))
120 # define ev_prepare_start(l,w) GEVAPI->prepare_start ((l), (w))
121 # define ev_prepare_stop(l,w) GEVAPI->prepare_stop ((l), (w))
122 # define ev_check_start(l,w) GEVAPI->check_start ((l), (w))
123 # define ev_check_stop(l,w) GEVAPI->check_stop ((l), (w))
124 # define ev_child_start(l,w) GEVAPI->child_start ((l), (w))
125 # define ev_child_stop(l,w) GEVAPI->child_stop ((l), (w))
126 # define ev_stat_start(l,w) GEVAPI->stat_start ((l), (w))
127 # define ev_stat_stop(l,w) GEVAPI->stat_stop ((l), (w))
128 # define ev_stat_stat(l,w) GEVAPI->stat_stat ((l), (w))
129 # define ev_embed_start(l,w) GEVAPI->embed_start ((l), (w))
130 # define ev_embed_stop(l,w) GEVAPI->embed_stop ((l), (w))
131 # define ev_embed_sweep(l,w) GEVAPI->embed_sweep ((l), (w))
132 # define ev_ref(loop) GEVAPI->ref (loop)
133 # define ev_unref(loop) GEVAPI->unref (loop)
134 # define ev_clear_pending(l,w) GEVAPI->clear_pending ((l), (w))
135 # define ev_invoke(l,w,rev) GEVAPI->invoke (l, w, rev)
136 #endif
137
138 static struct EVAPI *GEVAPI;
139
140 #define I_EV_API(YourName) \
141 STMT_START { \
142 SV *sv = perl_get_sv ("EV::API", 0); \
143 if (!sv) croak ("EV::API not found"); \
144 GEVAPI = (struct EVAPI*) SvIV (sv); \
145 if (GEVAPI->ver != EV_API_VERSION \
146 || GEVAPI->rev < EV_API_REVISION) \
147 croak ("EV::API version mismatch (%d.%d vs. %d.%d) -- please recompile %s", \
148 GEVAPI->ver, GEVAPI->rev, EV_API_VERSION, EV_API_REVISION, YourName); \
149 } STMT_END
150
151 #endif
152