rxvt-unicode/src/rxvtperl.h

/*
 * rxvtperl.h
 */

#ifndef RXVTPERL_H_
#define RXVTPERL_H_

#if ENABLE_PERL

#include "rxvt.h"

#define PERL_INVOKE(args) rxvt_perl.invoke args

enum data_type {
  DT_END,
  DT_INT,
  DT_LONG,
  DT_STRING,
  DT_USTRING_LEN,
  DT_XEVENT,
};

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

struct rxvt_perl_interp
{
  rxvt_perl_interp ();
  ~rxvt_perl_interp ();

  bool should_invoke[HOOK_NUM];

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

extern struct rxvt_perl_interp rxvt_perl;

#else
# define PERL_INVOKE(args) false
#endif

#endif

Revision:	1.8
Committed:	Thu Jan 5 01:04:10 2006 UTC (18 years, 4 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.7:	+1 -0 lines
Log Message:	* empty log message *
#	Content
1	/*
2	* rxvtperl.h
3	*/
4
5	#ifndef RXVTPERL_H_
6	#define RXVTPERL_H_
7
8	#if ENABLE_PERL
9
10	#include "rxvt.h"
11
12	#define PERL_INVOKE(args) rxvt_perl.invoke args
13
14	enum data_type {
15	DT_END,
16	DT_INT,
17	DT_LONG,
18	DT_STRING,
19	DT_USTRING_LEN,
20	DT_XEVENT,
21	};
22
23	enum hook_type {
24	# define def(sym) HOOK_ ## sym,
25	# include "hookinc.h"
26	# undef def
27	HOOK_NUM,
28	};
29
30	struct rxvt_perl_interp
31	{
32	rxvt_perl_interp ();
33	~rxvt_perl_interp ();
34
35	bool should_invoke[HOOK_NUM];
36
37	void init ();
38	bool invoke (rxvt_term *term, hook_type htype, ...);
39	};
40
41	extern struct rxvt_perl_interp rxvt_perl;
42
43	#else
44	# define PERL_INVOKE(args) false
45	#endif
46
47	#endif
48