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.19 by root, Mon Jan 16 08:29:57 2006 UTC vs.
Revision 1.29 by root, Tue Jun 30 07:31:24 2020 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) \
10 ( (htype) == HOOK_INIT \
11 || (htype) == HOOK_DESTROY \
12 || (htype) == HOOK_REFRESH_BEGIN \
13 || (htype) == HOOK_REFRESH_END \
14 || perl.should_invoke [htype])
15# define HOOK_INVOKE(args) rxvt_perl.invoke args
16 9
17#include "rxvt.h" 10#define SHOULD_INVOKE(htype) \
11 ( (htype) == HOOK_INIT \
12 || (htype) == HOOK_DESTROY \
13 || (htype) == HOOK_REFRESH_BEGIN \
14 || (htype) == HOOK_REFRESH_END \
15 || perl.should_invoke [htype])
16#define HOOK_INVOKE(args) rxvt_perl.invoke args
18 17
19enum data_type { 18enum data_type {
20 DT_END, // no further arguments 19 DT_END, // no further arguments
21 DT_INT, 20 DT_INT,
22 DT_LONG, 21 DT_LONG,
23 DT_STR, // 0-terminates string 22 DT_STR, // 0-terminated string
24 DT_STR_LEN, // string + length 23 DT_STR_LEN, // string + length
24 DT_WCS_LEN, // wchar_t* + length
25 DT_WCS_LEN, // wstring + length 25 DT_LCS_LEN, // long* + length
26 DT_XEVENT, 26 DT_XEVENT,
27}; 27};
28 28
29enum hook_type { 29enum hook_type {
30# define def(sym) HOOK_ ## sym, 30# define def(sym) HOOK_ ## sym,
… …
36struct rxvt_perl_term 36struct rxvt_perl_term
37{ 37{
38 void *self; 38 void *self;
39 unsigned long grabtime; 39 unsigned long grabtime;
40 uint8_t should_invoke[HOOK_NUM]; 40 uint8_t should_invoke[HOOK_NUM];
41
42 // this object must be zero-initialised
43 rxvt_perl_term ()
44 {
45 should_invoke [HOOK_INIT] =
46 should_invoke [HOOK_DESTROY] = 1;
47 }
41}; 48};
42 49
43struct rxvt_perl_interp 50struct rxvt_perl_interp
44{ 51{
45 char **perl_environ; 52 char **perl_environ;
46 53
54 #if 0 // see rxvtperl.xs
47 ~rxvt_perl_interp (); 55 ~rxvt_perl_interp ();
56 #endif
48 57
49 void init (); 58 void init ();
59 void init (rxvt_term *term);
60 void eval (const char *str);
50 bool invoke (rxvt_term *term, hook_type htype, ...); 61 bool invoke (rxvt_term *term, hook_type htype, ...);
51 void line_update (rxvt_term *term); 62 void line_update (rxvt_term *term);
63 void selection_finish (rxvt_selection *sel, char *data, unsigned int len);
64 void usage (rxvt_term *term, int type);
65
66 enum
67 {
68 RESOURCE_AVAILABLE = 1, // whether the option is valid
69 RESOURCE_ARG = 2 // whether the option eats the next arg
70 };
71 uint8_t parse_resource (rxvt_term *term, const char *name, bool arg, bool longopt, bool flag, const char *value);
52}; 72};
53 73
54extern struct rxvt_perl_interp rxvt_perl; 74extern struct rxvt_perl_interp rxvt_perl;
55 75
56#else 76#else
77
57# define SHOULD_INVOKE(htype) false 78#define SHOULD_INVOKE(htype) false
58# define HOOK_INVOKE(args) false 79#define HOOK_INVOKE(args) false
80
59#endif 81#endif
60 82
61#endif 83#endif
62 84

Diff Legend

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