1 #define PERL_NO_GET_CONTEXT
11 return PerlIO_getc(io);
15 xfread(char *buf, size_t size, size_t n, PerlIO *io)
18 int i = PerlIO_read(io, buf, n * size);
25 freadpv(U32 len, void *data, XPV *pv)
28 New(666, pv->xpv_pv, len, char);
29 PerlIO_read((PerlIO*)data, (void*)pv->xpv_pv, len);
31 pv->xpv_cur = len - 1;
35 byteloader_filter(pTHXo_ int idx, SV *buf_sv, int maxlen)
38 OP *saveroot = PL_main_root;
39 OP *savestart = PL_main_start;
43 bs.pfgetc = (int(*) (void*))xgetc;
44 bs.pfread = (int(*) (char*,size_t,size_t,void*))xfread;
45 bs.pfreadpv = freadpv;
52 PL_eval_start = PL_main_start;
54 o = newSVOP(OP_CONST, 0, newSViv(1));
55 PL_eval_root = newLISTOP(OP_LINESEQ, 0, PL_main_root, o);
56 PL_main_root->op_next = o;
57 PL_eval_root = newUNOP(OP_LEAVEEVAL, 0, PL_eval_root);
58 o->op_next = PL_eval_root;
60 PL_main_root = saveroot;
61 PL_main_start = savestart;
67 MODULE = ByteLoader PACKAGE = ByteLoader
74 filter_add(byteloader_filter, NULL);
79 filter_del(byteloader_filter);