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.7 by root, Wed Jan 4 02:37:30 2006 UTC vs.
Revision 1.17 by root, Thu Jan 12 01:38:37 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]
10# define HOOK_INVOKE(args) rxvt_perl.invoke args
9 11
10#include "rxvt.h" 12#include "rxvt.h"
11
12#define PERL_INVOKE(args) rxvt_perl.invoke args
13 13
14enum data_type { 14enum data_type {
15 DT_END, 15 DT_END,
16 DT_INT, 16 DT_INT,
17 DT_LONG, 17 DT_LONG,
18 DT_STRING, 18 DT_STR,
19 DT_STR_LEN,
20 DT_WCS_LEN,
19 DT_XEVENT, 21 DT_XEVENT,
20}; 22};
21 23
22enum hook_type { 24enum hook_type {
23# define def(sym) HOOK_ ## sym, 25# define def(sym) HOOK_ ## sym,
24# include "hookinc.h" 26# include "hookinc.h"
25# undef def 27# undef def
26 HOOK_NUM, 28 HOOK_NUM,
27}; 29};
28 30
31struct rxvt_perl_term
32{
33 void *self;
34 unsigned long grabtime;
35};
36
29struct rxvt_perl_interp 37struct rxvt_perl_interp
30{ 38{
31 rxvt_perl_interp (); 39 char **perl_environ;
40
32 ~rxvt_perl_interp (); 41 ~rxvt_perl_interp ();
33 42
34 bool should_invoke[HOOK_NUM]; 43 bool should_invoke[HOOK_NUM];
35 44
36 void init (); 45 void init ();
37 bool invoke (rxvt_term *term, hook_type htype, ...); 46 bool invoke (rxvt_term *term, hook_type htype, ...);
47 void line_update (rxvt_term *term);
38}; 48};
39 49
40extern struct rxvt_perl_interp rxvt_perl; 50extern struct rxvt_perl_interp rxvt_perl;
41 51
42#else 52#else
53# define SHOULD_INVOKE(htype) false
43# define PERL_INVOKE(args) false 54# define HOOK_INVOKE(args) false
44#endif 55#endif
45 56
46#endif 57#endif
47 58

Diff Legend

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