rxvt-unicode/src/rxvtperl.h

/*
 * rxvtperl.h
 */

#ifndef RXVTPERL_H_
#define RXVTPERL_H_

#if ENABLE_PERL

#define SHOULD_INVOKE(htype) \
   (  (htype) == HOOK_INIT              \
   || (htype) == HOOK_DESTROY           \
   || (htype) == HOOK_REFRESH_BEGIN     \
   || (htype) == HOOK_REFRESH_END       \
   || perl.should_invoke [htype])
#define HOOK_INVOKE(args) rxvt_perl.invoke args

enum data_type {
  DT_END,     // no further arguments
  DT_INT,
  DT_LONG,
  DT_STR,     // 0-terminated string
  DT_STR_LEN, // string + length
  DT_WCS_LEN, // wchar_t* + length
  DT_LCS_LEN, // long* + length
  DT_XEVENT,
};

enum hook_type {
# define def(sym) HOOK_ ## sym,
# include "hookinc.h"
# undef def
  HOOK_NUM,
};

struct rxvt_perl_term
{
  void *self;
  unsigned long grabtime;
  uint8_t should_invoke[HOOK_NUM];
};

struct rxvt_perl_interp
{
  char **perl_environ;

  ~rxvt_perl_interp ();

  void init (rxvt_term *term);
  bool invoke (rxvt_term *term, hook_type htype, ...);
  void line_update (rxvt_term *term);
};

extern struct rxvt_perl_interp rxvt_perl;

#else

#define SHOULD_INVOKE(htype) false
#define HOOK_INVOKE(args) false

#endif

#endif

Revision:	1.23
Committed:	Mon Feb 21 07:41:03 2011 UTC (13 years, 3 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.22:	+11 -10 lines
Log Message:	the pcg is now the schmorp
#	User	Rev	Content
1	root	1.1	/*
2			* rxvtperl.h
3			*/
4
5			#ifndef RXVTPERL_H_
6			#define RXVTPERL_H_
7
8			#if ENABLE_PERL
9
10	root	1.23	#define SHOULD_INVOKE(htype) \
11			( (htype) == HOOK_INIT \
12			\|\| (htype) == HOOK_DESTROY \
13			\|\| (htype) == HOOK_REFRESH_BEGIN \
14			\|\| (htype) == HOOK_REFRESH_END \
15			\|\| perl.should_invoke [htype])
16			#define HOOK_INVOKE(args) rxvt_perl.invoke args
17	root	1.1
18			enum data_type {
19	root	1.19	DT_END, // no further arguments
20	root	1.1	DT_INT,
21			DT_LONG,
22	root	1.22	DT_STR, // 0-terminated string
23	root	1.19	DT_STR_LEN, // string + length
24	root	1.21	DT_WCS_LEN, // wchar_t* + length
25			DT_LCS_LEN, // long* + length
26	root	1.5	DT_XEVENT,
27	root	1.1	};
28
29			enum hook_type {
30	root	1.7	# define def(sym) HOOK_ ## sym,
31			# include "hookinc.h"
32			# undef def
33	root	1.1	HOOK_NUM,
34			};
35
36	root	1.13	struct rxvt_perl_term
37			{
38			void *self;
39			unsigned long grabtime;
40	root	1.18	uint8_t should_invoke[HOOK_NUM];
41	root	1.13	};
42
43	root	1.1	struct rxvt_perl_interp
44			{
45	root	1.16	char **perl_environ;
46
47	root	1.1	~rxvt_perl_interp ();
48
49	root	1.20	void init (rxvt_term *term);
50	root	1.1	bool invoke (rxvt_term *term, hook_type htype, ...);
51	root	1.9	void line_update (rxvt_term *term);
52	root	1.1	};
53
54			extern struct rxvt_perl_interp rxvt_perl;
55
56			#else
57	root	1.23
58			#define SHOULD_INVOKE(htype) false
59			#define HOOK_INVOKE(args) false
60
61	root	1.1	#endif
62
63			#endif
64