使用DynaLoader.pm在Perl中加载Ada共享对象

Question

长时间听众,第一次来电.我知道这是一个有点模糊的问题,不要期望太多.:-)

我有以下Ada文件:

greeter.ads

package Greeter is
    procedure Hello;
end Greeter;

greeter.adb

with Ada.Text_IO; use Ada.Text_IO;
package body Greeter is
    procedure Hello is
    begin
        Put_Line ("Hello, world!");
    end Hello;
end Greeter;

并将它们编译成这样的共享对象:

gnatmake -z -fPIC greeter.adb
gcc -shared -o libgreeter.so greeter.o

编译好了.nm显示以下符号:

$ nm -D libgreeter.so 
                 w _Jv_RegisterClasses
0000000000201028 A __bss_start
                 w __cxa_finalize
                 w __gmon_start__
                 U __gnat_eh_personality
0000000000201028 A _edata
0000000000201038 A _end
00000000000006a8 T _fini
0000000000000520 T _init
                 U ada__text_io__put_line__2
0000000000201018 D greeter_E
000000000000063c T greeter__hello

现在我尝试在Perl中加载该共享对象:

#!/usr/bin/env perl

use 5.014;
use strict;
use warnings;

#BEGIN { $ENV{PERL_DL_DEBUG} = 1 };

package Greeter
{
    use constant ADADIR => '/usr/lib/gcc/x86_64-linux-gnu/4.4/rts-native/adalib/';
    use constant OURDIR => do { (my $f = __FILE__) =~ s{[^/]+$}//; $f || "." };

    require DynaLoader;
    our @ISA = 'DynaLoader';

    my $runtime = DynaLoader::dl_load_file(
        ADADIR.'/libgnat.so',
    ) or die DynaLoader::dl_error();

    my $gep = DynaLoader::dl_find_symbol(
        $runtime,
        '__gnat_eh_personality',
    ) or die DynaLoader::dl_error();

    my $libref = DynaLoader::dl_load_file(
        OURDIR.'/libgreeter.so',
        0x01,
    ) or die DynaLoader::dl_error();

    my $func = DynaLoader::dl_find_symbol(
        $libref,
        'greeter__hello',
    ) or die DynaLoader::dl_error();

    print $func, $/;
}

但这会爆炸出以下消息:

./libgreeter.so:未定义的符号:./greeter.pl第26行的__gnat_eh_personality.

有人有任何提示吗？有没有比我应该使用的DynaLoader更好/更容易的东西？

我有一个包含所有相关文件的存储库:

• https://bitbucket.org/tobyink/ada-perl-mashup

Answer 1

我无法帮助Perl方面(你需要5.14,Mac OS X有5.12,Debian 6有5.10).也就是说,我可以帮助构建C主库并直接链接......

GNAT构建过程非常复杂,有两种工具可以支持它,gnatmake并且gprbuild.可能(2015年9月写作)gnatmake将失去构建库的能力,因此gprbuild是更好的选择.

我认为您需要一个独立的库项目(即,一个具有控制Ada详细说明的初始化和终止操作;如果您没有初始化Ada库,您将获得SEGV或其他不良行为).你会发现在这里建立一个低点.

在greeter.gpr我写的是

project Greeter is
   for Library_Name use "greeter";
   for Library_Kind use "relocatable";
   for Library_Dir use "lib";
   for Library_Interface use ("greeter");
   for Library_Auto_Init use "true"; -- the default, I think
   for Object_Dir use ".build"; -- to keep temp objects out of the way
end Greeter;

该Library_Name属性控制库的名称; libgreeter.dylib在Mac OS X上,libgreeter.so在Linux上.

Library_Kind或者"static",该属性可以是,在这种情况下,名称将是libgreeter.a.但是,独立库必须是可重定位的.

Library_Dir您必须提供的属性(使用上面的两个)来创建库,控制库的创建位置; 在这种情况下,在lib/.

您必须提供该Library_Interface属性才能使其成为独立库,并生成控制Ada详细说明的初始化和终止操作.它们被称为library_nameinit和library_namefinal - 这里greeterinit,greeterfinal.

如果Library_Auto_Init是"false"你必须自己调用初始化和结束操作,如果"true",他们自动地管理.

好的,建立库

gprbuild -p -P greeter

(-p说"创建任何所需的输出目录",-P指定项目文件).

我建造了 greeter.c

#include <stdio.h>

extern void greeter_hello();

int main()
{
  greeter__hello();
  return 0;
}

运用

$ gcc greeter.c -o greeter -L lib -l greeter

并运行(在Linux上)使用

$ LD_LIBRARY_PATH=./lib ./greeter