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.22 by root, Sat Aug 26 06:37:11 2006 UTC vs.
Revision 1.30 by root, Sun Nov 21 23:00:48 2021 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,
… …
37struct rxvt_perl_term 36struct rxvt_perl_term
38{ 37{
39 void *self; 38 void *self;
40 unsigned long grabtime; 39 unsigned long grabtime;
41 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 }
42}; 48};
43 49
44struct rxvt_perl_interp 50struct rxvt_perl_interp
45{ 51{
46 char **perl_environ; 52 char **perl_environ;
47 53
54 #if 0 // see rxvtperl.xs
48 ~rxvt_perl_interp (); 55 ~rxvt_perl_interp ();
56 #endif
49 57
58 void init ();
50 void init (rxvt_term *term); 59 void init (rxvt_term *term);
60 void eval (const char *str);
51 bool invoke (rxvt_term *term, hook_type htype, ...); 61 bool invoke (rxvt_term *term, int htype, ...);
52 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);
53}; 72};
54 73
55extern struct rxvt_perl_interp rxvt_perl; 74extern struct rxvt_perl_interp rxvt_perl;
56 75
57#else 76#else
77
58# define SHOULD_INVOKE(htype) false 78#define SHOULD_INVOKE(htype) false
59# define HOOK_INVOKE(args) false 79#define HOOK_INVOKE(args) false
80
60#endif 81#endif
61 82
62#endif 83#endif
63 84

Diff Legend

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