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
20 DT_END, // no further arguments
23 DT_STR, // 0-terminated string
24 DT_STR_LEN, // string + length
25 DT_WCS_LEN, // wchar_t* + length
26 DT_LCS_LEN, // long* + length
31 # define def(sym) HOOK_ ## sym,
40 unsigned long grabtime;
41 uint8_t should_invoke[HOOK_NUM];
44 struct rxvt_perl_interp
50 void init (rxvt_term *term);
51 bool invoke (rxvt_term *term, hook_type htype, ...);
52 void line_update (rxvt_term *term);
55 extern struct rxvt_perl_interp rxvt_perl;
58 # define SHOULD_INVOKE(htype) false
59 # define HOOK_INVOKE(args) false