可以从 C++ 调用 Ada 函数吗？

发布于 2024-07-07 12:21:17 字数 127 浏览 10 评论 0 原文

我是一个完全的 Ada 新手，尽管我在高中期间已经使用 Pascal 2-3 年了。

IIRC，可以从 C/C++ 调用 Pascal 编译函数。是否可以调用过程& 从 C++ 用 Ada 编写的函数？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

回眸一遍 2024-07-14 12:21:17

根据这个旧教程，应该是可能的。

但是，如此线程，您必须小心 Ada 函数的 c++ extern "C" 定义。

回复收藏 0 原文

情徒 2024-07-14 12:21:17

以下是使用 g++/gnatmake 5.3.0 的示例：

注意：在 C++ 和 Ada 之间传递数据时要小心

ada_pkg.ads

    package Ada_Pkg is
        procedure DoSomething (Number : in Integer);
        pragma Export (C, DoSomething, "doSomething");
    end Ada_Pkg;

ada_pkg.adb

    with Ada.Text_Io;
    package body Ada_Pkg is
        procedure DoSomething (Number : in Integer) is
        begin
            Ada.Text_Io.Put_Line ("Ada: RECEIVED " & Integer'Image(Number));
        end DoSomething;
    begin
        null;
    end Ada_Pkg;

< strong>main.cpp

    /*
    TO BUILD:
    gnatmake -c ada_pkg
    g++ -c main.cpp
    gnatbind -n ada_pkg
    gnatlink ada_pkg -o main --LINK=g++ -lstdc++ main.o
    */

    #include <iostream>

    extern "C" {
        void doSomething (int data);
        void adainit ();
        void adafinal ();
    }

    int main () {
        adainit(); // Required for Ada
        doSomething(44);
        adafinal(); // Required for Ada 
        std::cout << "in C++" << std::endl;
        return 0;
    }

参考文献：

Here's an example using g++/gnatmake 5.3.0:

NOTE: Be careful when passing data between C++ and Ada

ada_pkg.ads

    package Ada_Pkg is
        procedure DoSomething (Number : in Integer);
        pragma Export (C, DoSomething, "doSomething");
    end Ada_Pkg;

ada_pkg.adb

    with Ada.Text_Io;
    package body Ada_Pkg is
        procedure DoSomething (Number : in Integer) is
        begin
            Ada.Text_Io.Put_Line ("Ada: RECEIVED " & Integer'Image(Number));
        end DoSomething;
    begin
        null;
    end Ada_Pkg;

main.cpp

    /*
    TO BUILD:
    gnatmake -c ada_pkg
    g++ -c main.cpp
    gnatbind -n ada_pkg
    gnatlink ada_pkg -o main --LINK=g++ -lstdc++ main.o
    */

    #include <iostream>

    extern "C" {
        void doSomething (int data);
        void adainit ();
        void adafinal ();
    }

    int main () {
        adainit(); // Required for Ada
        doSomething(44);
        adafinal(); // Required for Ada 
        std::cout << "in C++" << std::endl;
        return 0;
    }

References:

回复收藏 0 原文

茶底世界 2024-07-14 12:21:17

这种事情一直在做。诀窍是告诉双方在例程中使用“C”风格的调用协议。在 C++ 中，这是通过 extern "C" 声明完成的，在 Ada 方面是通过 pragma Export ("C", ...

在您最喜欢的相应参考源中查找这些内容以获取详细信息。请注意指针和参考参数！

回复收藏 0 原文

三生殊途 2024-07-14 12:21:17

是的。几年前，我写了一个简短的简单演示来证明这一点。有两个 DLL，一个用 C++ 编写，另一个用 Ada 编写。他们只是将常量添加到浮点值中。两个应用程序（一个使用 C++，一个使用 Ada）都使用了这两个 DLL。因此，C++ 调用/Ada 调用的每种可能的组合都存在。一切都很好。这是在 Windows 上运行的，无论当时的版本如何；我不记得了，但可能已经在 Linux 或 BeOS 上运行了。

现在如果我能从中找到源代码就好了......