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

Diff Legend

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