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,
};

enum hook_type {
  HOOK_INIT    = 0, // special, hardcoded
  HOOK_DESTROY = 1, // values in urxvt.pm
  HOOK_RESET,
  HOOK_START,

  HOOK_SEL_BEGIN,
  HOOK_SEL_EXTEND,
  HOOK_SEL_MAKE,
  HOOK_SEL_GRAB,

  HOOK_FOCUS_IN,
  HOOK_FOCUS_OUT,

  HOOK_VIEW_CHANGE,
  HOOK_SCROLL_BACK,
  HOOK_TTY_ACTIVITY,

  HOOK_REFRESH_BEGIN,
  HOOK_REFRESH_END,

  HOOK_KEYBOARD_COMMAND,

  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.4
Committed:	Mon Jan 2 21:17:01 2006 UTC (18 years, 4 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.3:	+3 -0 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
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	root	1.4	DT_STRING,
19	root	1.1	};
20
21			enum hook_type {
22	root	1.3	HOOK_INIT = 0, // special, hardcoded
23			HOOK_DESTROY = 1, // values in urxvt.pm
24	root	1.1	HOOK_RESET,
25			HOOK_START,
26
27			HOOK_SEL_BEGIN,
28			HOOK_SEL_EXTEND,
29			HOOK_SEL_MAKE,
30			HOOK_SEL_GRAB,
31
32			HOOK_FOCUS_IN,
33			HOOK_FOCUS_OUT,
34
35			HOOK_VIEW_CHANGE,
36			HOOK_SCROLL_BACK,
37			HOOK_TTY_ACTIVITY,
38
39			HOOK_REFRESH_BEGIN,
40			HOOK_REFRESH_END,
41
42	root	1.4	HOOK_KEYBOARD_COMMAND,
43
44	root	1.1	HOOK_NUM,
45			};
46
47			struct rxvt_perl_interp
48			{
49			rxvt_perl_interp ();
50			~rxvt_perl_interp ();
51
52			bool should_invoke[HOOK_NUM];
53
54			void init ();
55			bool invoke (rxvt_term *term, hook_type htype, ...);
56			};
57
58			extern struct rxvt_perl_interp rxvt_perl;
59
60			#else
61	root	1.2	# define PERL_INVOKE(args) false
62	root	1.1	#endif
63
64			#endif
65