ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.h
(Generate patch)

Comparing rxvt-unicode/src/rxvtperl.h (file contents):
Revision 1.9 by root, Fri Jan 6 01:16:58 2006 UTC vs.
Revision 1.21 by root, Wed Jan 25 00:42:21 2006 UTC

… …
4 4
5#ifndef RXVTPERL_H_ 5#ifndef RXVTPERL_H_
6#define RXVTPERL_H_ 6#define RXVTPERL_H_
7 7
8#if ENABLE_PERL 8#if ENABLE_PERL
9# define SHOULD_INVOKE(htype) rxvt_perl.should_invoke [htype] 9# define SHOULD_INVOKE(htype) \
10 ( (htype) == HOOK_INIT \
11 || (htype) == HOOK_DESTROY \
12 || (htype) == HOOK_REFRESH_BEGIN \
13 || (htype) == HOOK_REFRESH_END \
14 || perl.should_invoke [htype])
10# define HOOK_INVOKE(args) rxvt_perl.invoke args 15# define HOOK_INVOKE(args) rxvt_perl.invoke args
11 16
12#include "rxvt.h" 17#include "rxvt.h"
13 18
14enum data_type { 19enum data_type {
15 DT_END, 20 DT_END, // no further arguments
16 DT_INT, 21 DT_INT,
17 DT_LONG, 22 DT_LONG,
18 DT_STRING, 23 DT_STR, // 0-terminates string
19 DT_USTRING_LEN, 24 DT_STR_LEN, // string + length
25 DT_WCS_LEN, // wchar_t* + length
26 DT_LCS_LEN, // long* + length
20 DT_XEVENT, 27 DT_XEVENT,
21}; 28};
22 29
23enum hook_type { 30enum hook_type {
24# define def(sym) HOOK_ ## sym, 31# define def(sym) HOOK_ ## sym,
25# include "hookinc.h" 32# include "hookinc.h"
26# undef def 33# undef def
27 HOOK_NUM, 34 HOOK_NUM,
28}; 35};
29 36
37struct rxvt_perl_term
38{
39 void *self;
40 unsigned long grabtime;
41 uint8_t should_invoke[HOOK_NUM];
42};
43
30struct rxvt_perl_interp 44struct rxvt_perl_interp
31{ 45{
32 rxvt_perl_interp (); 46 char **perl_environ;
47
33 ~rxvt_perl_interp (); 48 ~rxvt_perl_interp ();
34 49
35 bool should_invoke[HOOK_NUM]; 50 void init (rxvt_term *term);
36
37 void init ();
38 bool invoke (rxvt_term *term, hook_type htype, ...); 51 bool invoke (rxvt_term *term, hook_type htype, ...);
39 void line_update (rxvt_term *term); 52 void line_update (rxvt_term *term);
40}; 53};
41 54
42extern struct rxvt_perl_interp rxvt_perl; 55extern struct rxvt_perl_interp rxvt_perl;
43 56
44#else 57#else
45# define SHOULD_INVOKE(htype) false 58# define SHOULD_INVOKE(htype) false
46# define PERL_INVOKE(args) false 59# define HOOK_INVOKE(args) false
47#endif 60#endif
48 61
49#endif 62#endif
50 63

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines