src/rxvtperl.h

   1 /*
   2  * rxvtperl.h
   3  */
   4
   5 #ifndef RXVTPERL_H_
   6 #define RXVTPERL_H_
   7
   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
  17 #include "rxvt.h"
  18
  19 enum data_type {
  20   DT_END,     // no further arguments
  21   DT_INT,
  22   DT_LONG,
  23   DT_STR,     // 0-terminates string
  24   DT_STR_LEN, // string + length
  25   DT_WCS_LEN, // wstring + length
  26   DT_XEVENT,
  27 };
  28
  29 enum hook_type {
  30 # define def(sym) HOOK_ ## sym,
  31 # include "hookinc.h"
  32 # undef def
  33   HOOK_NUM,
  34 };
  35
  36 struct rxvt_perl_term
  37 {
  38   void *self;
  39   unsigned long grabtime;
  40   uint8_t should_invoke[HOOK_NUM];
  41 };
  42
  43 struct rxvt_perl_interp
  44 {
  45   char **perl_environ;
  46
  47   ~rxvt_perl_interp ();
  48
  49   void init (rxvt_term *term);
  50   bool invoke (rxvt_term *term, hook_type htype, ...);
  51   void line_update (rxvt_term *term);
  52 };
  53
  54 extern struct rxvt_perl_interp rxvt_perl;
  55
  56 #else
  57 # define SHOULD_INVOKE(htype) false
  58 # define HOOK_INVOKE(args) false
  59 #endif
  60
  61 #endif
  62