X-Git-Url: http://git.indexdata.com/?p=idzebra-moved-to-github.git;a=blobdiff_plain;f=recctrl%2Fperlread.h.in;h=c153d4ef31842a3c750ef028c3d3462614848ef8;hp=2a5c606eb47bbdf359c947fb825faa6c1d6ec92c;hb=8ee402d79e37344b08c2b54ad45b50e8327a6c03;hpb=191ceffa0af0cc1048ef11a1bf92fece3210c879

diff --git a/recctrl/perlread.h.in b/recctrl/perlread.h.in
index 2a5c606..c153d4e 100644
--- a/recctrl/perlread.h.in
+++ b/recctrl/perlread.h.in
@@ -6,3 +6,27 @@
 #define PERL_XS_INIT @PERL_XS_INIT@
 
 @PERL_XS_INIT_INCLUDE@
+
+#define GRS_PERL_MODULE_NAME_MAXLEN 255
+
+#include <data1.h>
+
+/* Context information for the filter */
+struct perl_context {
+    PerlInterpreter *perli;
+    PerlInterpreter *origi;
+    int perli_ready;
+    char filterClass[GRS_PERL_MODULE_NAME_MAXLEN];
+    SV *filterRef;
+    
+    int (*readf)(void *, char *, size_t);
+    off_t (*seekf)(void *, off_t);
+    off_t (*tellf)(void *);
+    void (*endf)(void *, off_t);
+    
+    void *fh;
+    data1_handle dh;
+    NMEM mem;
+    data1_node *res;
+    char type[GRS_PERL_MODULE_NAME_MAXLEN];
+};