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.10 by root, Fri Jan 6 03:40:19 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_STRING_LEN, 24 DT_STR_LEN, // string + length
20 DT_USTRING_LEN, 25 DT_WCS_LEN, // wchar_t* + length
26 DT_LCS_LEN, // long* + length
21 DT_XEVENT, 27 DT_XEVENT,
22}; 28};
23 29
24enum hook_type { 30enum hook_type {
25# define def(sym) HOOK_ ## sym, 31# define def(sym) HOOK_ ## sym,
26# include "hookinc.h" 32# include "hookinc.h"
27# undef def 33# undef def
28 HOOK_NUM, 34 HOOK_NUM,
29}; 35};
30 36
37struct rxvt_perl_term
38{
39 void *self;
40 unsigned long grabtime;
41 uint8_t should_invoke[HOOK_NUM];
42};
43
31struct rxvt_perl_interp 44struct rxvt_perl_interp
32{ 45{
33 rxvt_perl_interp (); 46 char **perl_environ;
47
34 ~rxvt_perl_interp (); 48 ~rxvt_perl_interp ();
35 49
36 bool should_invoke[HOOK_NUM]; 50 void init (rxvt_term *term);
37
38 void init ();
39 bool invoke (rxvt_term *term, hook_type htype, ...); 51 bool invoke (rxvt_term *term, hook_type htype, ...);
40 void line_update (rxvt_term *term); 52 void line_update (rxvt_term *term);
41}; 53};
42 54
43extern struct rxvt_perl_interp rxvt_perl; 55extern struct rxvt_perl_interp rxvt_perl;
44 56
45#else 57#else
46# define SHOULD_INVOKE(htype) false 58# define SHOULD_INVOKE(htype) false
47# define PERL_INVOKE(args) false 59# define HOOK_INVOKE(args) false
48#endif 60#endif
49 61
50#endif 62#endif
51 63

Diff Legend

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