ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.h
Revision: 1.3
Committed: Mon Jan 2 20:35:39 2006 UTC (18 years, 4 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.2: +2 -4 lines
Log Message:
*** empty log message ***

File Contents

# 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     };
19    
20     enum hook_type {
21 root 1.3 HOOK_INIT = 0, // special, hardcoded
22     HOOK_DESTROY = 1, // values in urxvt.pm
23 root 1.1 HOOK_RESET,
24     HOOK_START,
25    
26     HOOK_SEL_BEGIN,
27     HOOK_SEL_EXTEND,
28     HOOK_SEL_MAKE,
29     HOOK_SEL_GRAB,
30    
31     HOOK_FOCUS_IN,
32     HOOK_FOCUS_OUT,
33    
34     HOOK_VIEW_CHANGE,
35     HOOK_SCROLL_BACK,
36     HOOK_TTY_ACTIVITY,
37    
38     HOOK_REFRESH_BEGIN,
39     HOOK_REFRESH_END,
40    
41     HOOK_NUM,
42     };
43    
44     struct rxvt_perl_interp
45     {
46     rxvt_perl_interp ();
47     ~rxvt_perl_interp ();
48    
49     bool should_invoke[HOOK_NUM];
50    
51     void init ();
52     bool invoke (rxvt_term *term, hook_type htype, ...);
53     };
54    
55     extern struct rxvt_perl_interp rxvt_perl;
56    
57     #else
58 root 1.2 # define PERL_INVOKE(args) false
59 root 1.1 #endif
60    
61     #endif
62