rxvt-unicode/src/rxvtperl.h

/*
 * rxvtperl.h
 */

#ifndef RXVTPERL_H_
#define RXVTPERL_H_

#if ENABLE_PERL
# define SHOULD_INVOKE(htype) rxvt_perl.should_invoke [htype]
# define HOOK_INVOKE(args) rxvt_perl.invoke args

#include "rxvt.h"

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, ...);
  void line_update (rxvt_term *term);
};

extern struct rxvt_perl_interp rxvt_perl;

#else
# define SHOULD_INVOKE(htype) false
# define PERL_INVOKE(args) false
#endif

#endif

Revision:	1.9
Committed:	Fri Jan 6 01:16:58 2006 UTC (18 years, 4 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.8:	+4 -2 lines
Log Message:	* empty log message *
#	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	root	1.9	# define SHOULD_INVOKE(htype) rxvt_perl.should_invoke [htype]
10			# define HOOK_INVOKE(args) rxvt_perl.invoke args
11	root	1.1
12			#include "rxvt.h"
13
14			enum data_type {
15			DT_END,
16			DT_INT,
17			DT_LONG,
18	root	1.4	DT_STRING,
19	root	1.8	DT_USTRING_LEN,
20	root	1.5	DT_XEVENT,
21	root	1.1	};
22
23			enum hook_type {
24	root	1.7	# define def(sym) HOOK_ ## sym,
25			# include "hookinc.h"
26			# undef def
27	root	1.1	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	root	1.9	void line_update (rxvt_term *term);
40	root	1.1	};
41
42			extern struct rxvt_perl_interp rxvt_perl;
43
44			#else
45	root	1.9	# define SHOULD_INVOKE(htype) false
46	root	1.2	# define PERL_INVOKE(args) false
47	root	1.1	#endif
48
49			#endif
50