Question

我最近发现了VTD-XML方法对XML解析的强大功能，主要是它的速度。具体来说，我已经构建了C版本2.10（也有Java，C ++和C＃实现）。

我的目标很简单：我想使用VTD-XML从XML中提取数据进行解析，并使用Perl处理数据。简单的方法可能是使用我制作的C程序转储数据，并通过管道将它们发送到Perl程序。也许不优雅，但它有效。

另一种不太简单的方法是使用Perl程序，它使用Inline :: C调用C数据收集器子例程。

所以我开始研究Inline :: C并设法做基本的事情，我需要使用Perl C API函数将数据从C子程序传递回Perl。当我在Inline :: C控件下的C源代码中编写C collector子例程时，在编译阶段会出现问题。

有这样的符号冲突：bind（）在socket.h（Perl）和autoPilot.h（VTD-XML）中定义。可以避免符号冲突将VTD-XML构建为具有显式导出映射的共享库（gcc -Wl，-version-script = foo.map）......这是正确的方法吗？还有更好的方法吗？

Answer 1

我确实通过添加一个间接层实现了我的目标：可怕，因为在我看来它是有效的。

首先，我创建了一个包含VTD-XML API的共享库。构建这个共享对象时，我必须避免全局范围污染，只导出所需的符号。

然后我构建了另一个共享库。第二个共享库隐藏了VTD-XML API，应该通过Inline :: C从Perl中使用。在这个共享对象中，我使用了libvtd.so部分公开的API编写了一些函数。

这个想法看起来像这样：

Perl -> Inline::C dynamic loader -> wrapper_API.so -> libvtd.so

主要问题来自共享库的运行时加载和符号冲突/解决。

以下是我构建libvtd.so的方法，使所谓的wrapper_API.so可以轻松使用它。

不幸的是，VTD-XML没有构建libvtd.so共享对象，因此我必须自己构建它，将几个.o目标文件与gcc链接在一起：

gcc -shared -fPIC -Wl,-soname,libvtd.so.2.10 -Wl,--version-script=vtd-xml.map \
-o libvtd.so.2.10 libvtd.o arrayList.o fastIntBuffer.o fastLongBuffer.o \
contextBuffer.o vtdNav.o vtdGen.o autoPilot.o XMLChar.o XMLModifier.o intHash.o \
 bookMark.o indexHandler.o transcoder.o elementFragmentNs.o

使用链接器选项-Wl,--version-script=vtd-xml.map调整符号可见性，其中映射文件为：

{
    global:
        the_exception_context;
        toString;
        getText;
        getCurrentIndex;
        toNormalizedString;
        toElement;
        toElement2;
        createVTDGen;
        setDoc;    
        parse;
        getNav;
        freeVTDGen;
        freeVTDNav;
        getTokenCount;
    local:
        *;  
};

全局（“导出”）符号位于global:部分下，而本地下的cat *表示所有其他符号仅在本地已知。

所有对象模块都来自VTD-XML发行版，但libvtd.o除外：需要此自定义对象来解决异常处理库cexept.h的问题。 libvtd.c只有两行代码。

#include "customTypes.h"
struct exception_context the_exception_context[ 1 ];

在编译阶段，我必须调整CFLAGS来制作位置无关代码（gcc -fPIC选项），以便制作共享对象。

readelf工具可用于检查符号可见性：

readelf --syms libvtd.so.2.10

Symbol table '.dynsym' contains 35 entries:
   Num:    Value          Size Type    Bind   Vis      Ndx Name
   ...
   280: 000000000000d010   117 FUNC    LOCAL  DEFAULT   12 writeIndex
   281: 000000000003c5d0   154 FUNC    LOCAL  DEFAULT   12 setCursorPosition
   282: 000000000003c1f0    56 FUNC    LOCAL  DEFAULT   12 resetIntHash
   ...
   331: 0000000000004f50  3545 FUNC    GLOBAL DEFAULT   12 toElement
   332: 00000000000071e0   224 FUNC    GLOBAL DEFAULT   12 getText
   333: 000000000000d420   114 FUNC    GLOBAL DEFAULT   12 freeVTDGen
   ...
   339: 000000000000b600   731 FUNC    GLOBAL DEFAULT   12 toElement2
   340: 000000000000e650   120 FUNC    GLOBAL DEFAULT   12 getNav
   341: 0000000000025750 70567 FUNC    GLOBAL DEFAULT   12 parse

wrapperAPI.so由几个使用VTD-XML API及其自定义类型的函数组成，但只接受和返回标准C类型和/或结构。包装器直接来自以前的独立C程序。

如何在Perl中使用带有Inline :: C的VTD-XML？

1 个答案: