EV/EV/EVAPI.h

#ifndef EV_API_H
#define EV_API_H

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#ifndef pTHX_
# define pTHX_
# define aTHX_
# define pTHX
# define aTHX
#endif

#define EV_COMMON                               \
  int e_flags; /* cheap on 64 bit systems */    \
  SV *loop;                                     \
  SV *self; /* contains this struct */          \
  SV *cb_sv, *fh, *data;

#ifndef EV_PROTOTYPES
# define EV_PROTOTYPES 0
#endif

#ifndef EV_H
# define EV_H <EV/ev.h>
#endif

#include EV_H

#define EV_STANDALONE   1
#define EV_MULTIPLICITY 1

struct EVAPI {
  I32 ver;
  I32 rev;
#define EV_API_VERSION 4
#define EV_API_REVISION 3

  struct ev_loop *default_loop;
  unsigned int supported_backends;
  unsigned int recommended_backends;
  unsigned int embeddable_backends;

  /* perl fh or fd int to fd */
  int (*sv_fileno) (SV *fh);
  /* signal number/name to signum */
  int (*sv_signum) (SV *fh);

  /* same as libev functions */
  ev_tstamp (*time_)(void);
  void (*sleep_)(ev_tstamp);
  ev_tstamp (*now)(EV_P);
  struct ev_loop *(*loop_new)(unsigned int);
  void (*loop_destroy)(EV_P);
  void (*loop_fork)(EV_P);
  unsigned int (*loop_count)(EV_P);
  unsigned int (*backend)(EV_P);
  void (*loop)(EV_P_ int flags);
  void (*unloop)(EV_P_ int how);
  void (*ref)(EV_P);
  void (*unref)(EV_P);
  void (*once)(EV_P_ int fd, int events, ev_tstamp timeout, void (*cb)(int revents, void *arg), void *arg);
  int  (*clear_pending)(EV_P_ void *);
  void (*invoke)(EV_P_ void *, int);
  void (*io_start)(EV_P_ ev_io *);
  void (*io_stop) (EV_P_ ev_io *);
  void (*timer_start)(EV_P_ ev_timer *);
  void (*timer_stop) (EV_P_ ev_timer *);
  void (*timer_again)(EV_P_ ev_timer *);
  void (*periodic_start)(EV_P_ ev_periodic *);
  void (*periodic_stop) (EV_P_ ev_periodic *);
  void (*signal_start)(EV_P_ ev_signal *);
  void (*signal_stop) (EV_P_ ev_signal *);
  void (*child_start)(EV_P_ ev_child *);
  void (*child_stop) (EV_P_ ev_child *);
  void (*stat_start)(EV_P_ ev_stat *);
  void (*stat_stop) (EV_P_ ev_stat *);
  void (*stat_stat) (EV_P_ ev_stat *);
  void (*idle_start)(EV_P_ ev_idle *);
  void (*idle_stop) (EV_P_ ev_idle *);
  void (*prepare_start)(EV_P_ ev_prepare *);
  void (*prepare_stop) (EV_P_ ev_prepare *);
  void (*check_start)(EV_P_ ev_check *);
  void (*check_stop) (EV_P_ ev_check *);
  void (*embed_start)(EV_P_ ev_embed *);
  void (*embed_stop) (EV_P_ ev_embed *);
  void (*embed_sweep)(EV_P_ ev_embed *);
  void (*fork_start) (EV_P_ ev_fork *);
  void (*fork_stop)  (EV_P_ ev_fork *);
  void (*async_start)(EV_P_ ev_async *);
  void (*async_stop) (EV_P_ ev_async *);
  void (*async_send) (EV_P_ ev_async *);
  /* TODO: move up on next major API bump */
  void (*now_update) (EV_P);
  void (*suspend)    (EV_P); 
  void (*resume)     (EV_P); 
};

#if !EV_PROTOTYPES
# undef EV_DEFAULT
# undef EV_DEFAULT_
# undef EV_DEFAULT_UC
# undef EV_DEFAULT_UC_
# undef EV_A_
# define EV_DEFAULT                GEVAPI->default_loop
# define EV_DEFAULT_UC             GEVAPI->default_loop
# define ev_supported_backends()   GEVAPI->supported_backends
# define ev_recommended_backends() GEVAPI->recommended_backends
# define ev_embeddable_backends()  GEVAPI->embeddable_backends

# define sv_fileno(sv)             GEVAPI->sv_fileno (sv)
# define sv_signum(sv)             GEVAPI->sv_signum (sv)
# define ev_time()                 GEVAPI->time_ ()
# define ev_sleep(time)            GEVAPI->sleep_ ((time))
# define ev_loop_new(flags)        GEVAPI->loop_new ((flags))
# define ev_loop_destroy(loop)     GEVAPI->loop_destroy ((loop))
# define ev_loop_fork(loop)        GEVAPI->loop_fork ((loop))
# define ev_loop_count(loop)       GEVAPI->loop_count ((loop))
# define ev_now(loop)              GEVAPI->now ((loop))
# define ev_now_update(loop)       GEVAPI->now_update ((loop))
# define ev_suspend(loop)          GEVAPI->suspend ((loop))
# define ev_resume(loop)           GEVAPI->resume ((loop))
# define ev_backend(loop)          GEVAPI->backend ((loop))
# define ev_loop(l,flags)          GEVAPI->loop ((l), (flags))
# define ev_unloop(loop,how)       GEVAPI->unloop ((loop), (how))
# define ev_once(loop,fd,events,timeout,cb,arg) GEVAPI->once ((loop), (fd), (events), (timeout), (cb), (arg))
# define ev_io_start(l,w)          GEVAPI->io_start ((l), (w))
# define ev_io_stop(l,w)           GEVAPI->io_stop  ((l), (w))
# define ev_timer_start(l,w)       GEVAPI->timer_start ((l), (w))
# define ev_timer_stop(l,w)        GEVAPI->timer_stop  ((l), (w))
# define ev_timer_again(l,w)       GEVAPI->timer_again ((l), (w))
# define ev_periodic_start(l,w)    GEVAPI->periodic_start ((l), (w))
# define ev_periodic_stop(l,w)     GEVAPI->periodic_stop  ((l), (w))
# define ev_signal_start(l,w)      GEVAPI->signal_start ((l), (w))
# define ev_signal_stop(l,w)       GEVAPI->signal_stop  ((l), (w))
# define ev_idle_start(l,w)        GEVAPI->idle_start ((l), (w))
# define ev_idle_stop(l,w)         GEVAPI->idle_stop  ((l), (w))
# define ev_prepare_start(l,w)     GEVAPI->prepare_start ((l), (w))
# define ev_prepare_stop(l,w)      GEVAPI->prepare_stop  ((l), (w))
# define ev_check_start(l,w)       GEVAPI->check_start ((l), (w))
# define ev_check_stop(l,w)        GEVAPI->check_stop  ((l), (w))
# define ev_child_start(l,w)       GEVAPI->child_start ((l), (w))
# define ev_child_stop(l,w)        GEVAPI->child_stop  ((l), (w))
# define ev_stat_start(l,w)        GEVAPI->stat_start ((l), (w))
# define ev_stat_stop(l,w)         GEVAPI->stat_stop  ((l), (w))
# define ev_stat_stat(l,w)         GEVAPI->stat_stat  ((l), (w))
# define ev_embed_start(l,w)       GEVAPI->embed_start ((l), (w))
# define ev_embed_stop(l,w)        GEVAPI->embed_stop  ((l), (w))
# define ev_embed_sweep(l,w)       GEVAPI->embed_sweep ((l), (w))
# define ev_fork_start(l,w)        GEVAPI->fork_start ((l), (w))
# define ev_fork_stop(l,w)         GEVAPI->fork_stop  ((l), (w))
# define ev_async_start(l,w)       GEVAPI->async_start ((l), (w))
# define ev_async_stop(l,w)        GEVAPI->async_stop  ((l), (w))
# define ev_async_send(l,w)        GEVAPI->async_send  ((l), (w))
# define ev_ref(loop)              GEVAPI->ref   (loop)
# define ev_unref(loop)            GEVAPI->unref (loop)
# define ev_clear_pending(l,w)     GEVAPI->clear_pending ((l), (w))
# define ev_invoke(l,w,rev)        GEVAPI->invoke (l, w, rev)
#endif

static struct EVAPI *GEVAPI;

#define I_EV_API(YourName)                                                       \
STMT_START {                                                                     \
  SV *sv = perl_get_sv ("EV::API", 0);                                           \
  if (!sv) croak ("EV::API not found");                                          \
  GEVAPI = (struct EVAPI*) SvIV (sv);                                            \
  if (GEVAPI->ver != EV_API_VERSION                                              \
      || GEVAPI->rev < EV_API_REVISION)                                          \
    croak ("EV::API version mismatch (%d.%d vs. %d.%d) -- please recompile %s",  \
           GEVAPI->ver, GEVAPI->rev, EV_API_VERSION, EV_API_REVISION, YourName); \
} STMT_END

#endif

Revision:	1.44
Committed:	Wed Apr 15 19:35:53 2009 UTC (15 years, 1 month ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-3_6
Changes since 1.43:	+8 -2 lines
Log Message:	resume/suspend
#	User	Rev	Content
1	root	1.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	root	1.23	#define EV_COMMON \
16	root	1.38	int e_flags; /* cheap on 64 bit systems */ \
17	root	1.36	SV *loop; \
18	root	1.23	SV self; / contains this struct */ \
19	root	1.18	SV cb_sv, fh, *data;
20	root	1.7
21			#ifndef EV_PROTOTYPES
22			# define EV_PROTOTYPES 0
23			#endif
24
25	root	1.35	#ifndef EV_H
26			# define EV_H <EV/ev.h>
27			#endif
28
29			#include EV_H
30
31	root	1.14	#define EV_STANDALONE 1
32	root	1.33	#define EV_MULTIPLICITY 1
33	root	1.12
34	root	1.1	struct EVAPI {
35			I32 ver;
36			I32 rev;
37	root	1.33	#define EV_API_VERSION 4
38	root	1.44	#define EV_API_REVISION 3
39	root	1.1
40	root	1.33	struct ev_loop *default_loop;
41			unsigned int supported_backends;
42			unsigned int recommended_backends;
43			unsigned int embeddable_backends;
44
45	root	1.4	/* perl fh or fd int to fd */
46			int (sv_fileno) (SV fh);
47			/* signal number/name to signum */
48			int (sv_signum) (SV fh);
49
50			/* same as libev functions */
51	root	1.41	ev_tstamp (*time_)(void);
52			void (*sleep_)(ev_tstamp);
53	root	1.29	ev_tstamp (*now)(EV_P);
54	root	1.33	struct ev_loop (loop_new)(unsigned int);
55			void (*loop_destroy)(EV_P);
56			void (*loop_fork)(EV_P);
57			unsigned int (*loop_count)(EV_P);
58	root	1.29	unsigned int (*backend)(EV_P);
59			void (*loop)(EV_P_ int flags);
60			void (*unloop)(EV_P_ int how);
61			void (*ref)(EV_P);
62			void (*unref)(EV_P);
63			void (once)(EV_P_ int fd, int events, ev_tstamp timeout, void (cb)(int revents, void arg), void arg);
64	root	1.32	int (clear_pending)(EV_P_ void );
65			void (invoke)(EV_P_ void , int);
66	root	1.30	void (io_start)(EV_P_ ev_io );
67			void (io_stop) (EV_P_ ev_io );
68			void (timer_start)(EV_P_ ev_timer );
69			void (timer_stop) (EV_P_ ev_timer );
70			void (timer_again)(EV_P_ ev_timer );
71			void (periodic_start)(EV_P_ ev_periodic );
72			void (periodic_stop) (EV_P_ ev_periodic );
73			void (signal_start)(EV_P_ ev_signal );
74			void (signal_stop) (EV_P_ ev_signal );
75			void (child_start)(EV_P_ ev_child );
76			void (child_stop) (EV_P_ ev_child );
77			void (stat_start)(EV_P_ ev_stat );
78			void (stat_stop) (EV_P_ ev_stat );
79			void (stat_stat) (EV_P_ ev_stat );
80			void (idle_start)(EV_P_ ev_idle );
81			void (idle_stop) (EV_P_ ev_idle );
82			void (prepare_start)(EV_P_ ev_prepare );
83			void (prepare_stop) (EV_P_ ev_prepare );
84			void (check_start)(EV_P_ ev_check );
85			void (check_stop) (EV_P_ ev_check );
86	root	1.33	void (embed_start)(EV_P_ ev_embed );
87			void (embed_stop) (EV_P_ ev_embed );
88			void (embed_sweep)(EV_P_ ev_embed );
89			void (fork_start) (EV_P_ ev_fork );
90			void (fork_stop) (EV_P_ ev_fork );
91	root	1.43	void (async_start)(EV_P_ ev_async );
92			void (async_stop) (EV_P_ ev_async );
93			void (async_send) (EV_P_ ev_async );
94	root	1.44	/* TODO: move up on next major API bump */
95			void (*now_update) (EV_P);
96			void (*suspend) (EV_P);
97			void (*resume) (EV_P);
98	root	1.1	};
99
100	root	1.7	#if !EV_PROTOTYPES
101	root	1.33	# undef EV_DEFAULT
102			# undef EV_DEFAULT_
103	root	1.42	# undef EV_DEFAULT_UC
104			# undef EV_DEFAULT_UC_
105	root	1.33	# undef EV_A_
106			# define EV_DEFAULT GEVAPI->default_loop
107	root	1.42	# define EV_DEFAULT_UC GEVAPI->default_loop
108	root	1.33	# define ev_supported_backends() GEVAPI->supported_backends
109			# define ev_recommended_backends() GEVAPI->recommended_backends
110			# define ev_embeddable_backends() GEVAPI->embeddable_backends
111
112			# define sv_fileno(sv) GEVAPI->sv_fileno (sv)
113			# define sv_signum(sv) GEVAPI->sv_signum (sv)
114	root	1.41	# define ev_time() GEVAPI->time_ ()
115			# define ev_sleep(time) GEVAPI->sleep_ ((time))
116	root	1.33	# define ev_loop_new(flags) GEVAPI->loop_new ((flags))
117			# define ev_loop_destroy(loop) GEVAPI->loop_destroy ((loop))
118			# define ev_loop_fork(loop) GEVAPI->loop_fork ((loop))
119			# define ev_loop_count(loop) GEVAPI->loop_count ((loop))
120			# define ev_now(loop) GEVAPI->now ((loop))
121	root	1.44	# define ev_now_update(loop) GEVAPI->now_update ((loop))
122			# define ev_suspend(loop) GEVAPI->suspend ((loop))
123			# define ev_resume(loop) GEVAPI->resume ((loop))
124	root	1.33	# define ev_backend(loop) GEVAPI->backend ((loop))
125	root	1.34	# define ev_loop(l,flags) GEVAPI->loop ((l), (flags))
126			# define ev_unloop(loop,how) GEVAPI->unloop ((loop), (how))
127	root	1.33	# define ev_once(loop,fd,events,timeout,cb,arg) GEVAPI->once ((loop), (fd), (events), (timeout), (cb), (arg))
128			# define ev_io_start(l,w) GEVAPI->io_start ((l), (w))
129			# define ev_io_stop(l,w) GEVAPI->io_stop ((l), (w))
130			# define ev_timer_start(l,w) GEVAPI->timer_start ((l), (w))
131			# define ev_timer_stop(l,w) GEVAPI->timer_stop ((l), (w))
132			# define ev_timer_again(l,w) GEVAPI->timer_again ((l), (w))
133			# define ev_periodic_start(l,w) GEVAPI->periodic_start ((l), (w))
134			# define ev_periodic_stop(l,w) GEVAPI->periodic_stop ((l), (w))
135			# define ev_signal_start(l,w) GEVAPI->signal_start ((l), (w))
136			# define ev_signal_stop(l,w) GEVAPI->signal_stop ((l), (w))
137			# define ev_idle_start(l,w) GEVAPI->idle_start ((l), (w))
138			# define ev_idle_stop(l,w) GEVAPI->idle_stop ((l), (w))
139			# define ev_prepare_start(l,w) GEVAPI->prepare_start ((l), (w))
140			# define ev_prepare_stop(l,w) GEVAPI->prepare_stop ((l), (w))
141			# define ev_check_start(l,w) GEVAPI->check_start ((l), (w))
142			# define ev_check_stop(l,w) GEVAPI->check_stop ((l), (w))
143			# define ev_child_start(l,w) GEVAPI->child_start ((l), (w))
144			# define ev_child_stop(l,w) GEVAPI->child_stop ((l), (w))
145			# define ev_stat_start(l,w) GEVAPI->stat_start ((l), (w))
146			# define ev_stat_stop(l,w) GEVAPI->stat_stop ((l), (w))
147			# define ev_stat_stat(l,w) GEVAPI->stat_stat ((l), (w))
148			# define ev_embed_start(l,w) GEVAPI->embed_start ((l), (w))
149			# define ev_embed_stop(l,w) GEVAPI->embed_stop ((l), (w))
150			# define ev_embed_sweep(l,w) GEVAPI->embed_sweep ((l), (w))
151	root	1.39	# define ev_fork_start(l,w) GEVAPI->fork_start ((l), (w))
152			# define ev_fork_stop(l,w) GEVAPI->fork_stop ((l), (w))
153			# define ev_async_start(l,w) GEVAPI->async_start ((l), (w))
154			# define ev_async_stop(l,w) GEVAPI->async_stop ((l), (w))
155			# define ev_async_send(l,w) GEVAPI->async_send ((l), (w))
156	root	1.33	# define ev_ref(loop) GEVAPI->ref (loop)
157			# define ev_unref(loop) GEVAPI->unref (loop)
158			# define ev_clear_pending(l,w) GEVAPI->clear_pending ((l), (w))
159			# define ev_invoke(l,w,rev) GEVAPI->invoke (l, w, rev)
160	root	1.7	#endif
161	root	1.2
162	root	1.1	static struct EVAPI *GEVAPI;
163
164			#define I_EV_API(YourName) \
165			STMT_START { \
166			SV *sv = perl_get_sv ("EV::API", 0); \
167			if (!sv) croak ("EV::API not found"); \
168	root	1.5	GEVAPI = (struct EVAPI*) SvIV (sv); \
169	root	1.1	if (GEVAPI->ver != EV_API_VERSION \
170			\|\| GEVAPI->rev < EV_API_REVISION) \
171			croak ("EV::API version mismatch (%d.%d vs. %d.%d) -- please recompile %s", \
172			GEVAPI->ver, GEVAPI->rev, EV_API_VERSION, EV_API_REVISION, YourName); \
173			} STMT_END
174
175			#endif
176