8

我是一个 XS 初学者，我正在考虑更改现有的 XS 模块，该模块大量使用 15 年以上的底层 C 库（实际上该模块基本上只是粘到这个库）。问题是我希望能够使用 PerlIO 字符串技巧，例如：

open($fh, '<', \$string);

然后传递$fh到库所期望的 XS 胶水FILE。问题是 XS 有：

int
_parse (entry_ref, filename, file, preserve=FALSE)
    SV *    entry_ref;
    char *  filename;
    FILE *  file;
    boolean preserve;

我认为它需要是：

PerlIO *  file;

这当然行不通，因为它必须有更多的东西。当我查看_parse库中的代码时，结果如下：

AST * bt_parse_entry (FILE *    infile,
                      char *    filename,
                      btshort    options,
                      boolean * status)
{
   AST *         entry_ast = NULL;
   static int *  err_counts = NULL;
   static FILE * prev_file = NULL;

再次与FILE类型。现在我必须开始的基本问题是 - 在不改变库的情况下这是否可能？也就是说，我可以通过更改 XS 从字符串 PerlIO 行为中获取伪文件句柄吗？

4

1 回答 1

3

Perl API 提供PerlIO_exportFILE()（实现）可以将带有文件描述符的 PerlIO 句柄转换为 stdioFILE指针。由于PerlIO::Scalar是没有文件描述符的“内存中”文件句柄，因此转换无法成功。传递句柄的唯一可移植方式是PerlIO::Scalar将其刷新到临时文件中。不太便携的方法是使用支持回调的 stdio，例如 BSD 实现funopen(3)。

于 2013-06-09T20:57:39.303 回答