ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.h
Revision: 1.2
Committed: Mon Jan 2 16:04:34 2006 UTC (18 years, 4 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.1: +1 -1 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     HOOK_LOAD,
22    
23     HOOK_INIT,
24     HOOK_RESET,
25     HOOK_START,
26     HOOK_DESTROY,
27    
28     HOOK_SEL_BEGIN,
29     HOOK_SEL_EXTEND,
30     HOOK_SEL_MAKE,
31     HOOK_SEL_GRAB,
32    
33     HOOK_FOCUS_IN,
34     HOOK_FOCUS_OUT,
35    
36     HOOK_VIEW_CHANGE,
37     HOOK_SCROLL_BACK,
38     HOOK_TTY_ACTIVITY,
39    
40     HOOK_REFRESH_BEGIN,
41     HOOK_REFRESH_END,
42    
43     HOOK_NUM,
44     };
45    
46     struct rxvt_perl_interp
47     {
48     rxvt_perl_interp ();
49     ~rxvt_perl_interp ();
50    
51     bool should_invoke[HOOK_NUM];
52    
53     void init ();
54     bool invoke (rxvt_term *term, hook_type htype, ...);
55     };
56    
57     extern struct rxvt_perl_interp rxvt_perl;
58    
59     #else
60 root 1.2 # define PERL_INVOKE(args) false
61 root 1.1 #endif
62    
63     #endif
64