ada

1热度

2回答

package Bird_Package is type Bird_Type is tagged private; procedure Init(A_Bird : out Bird_Type; Name : in String); function Name(A_Bird : in Bird_Type) return String; function

1热度

1回答

转换ada.Containers.Vector到阵列

如果我已经定义的阵列型等 type Integer_Array is array(Natural range <>) of Integer; ，还可以使用封装Ada.Containers.Vectors作为 package Integer_Vectors is new Ada.Containers.Vectors( Element_Type => Integer, Index

0热度

2回答

是否有任何用Java编写的ADA解析器？

我期待解析ADA代码并使用Java构建AST。我的看法是，用Java编写的解析器几乎可以解析所有的编程语言，但经过几天的研究，我还没有发现任何东西。我发现的唯一有前途的工具是Adacore的libadalang（https://github.com/AdaCore/libadalang）。但是，这只能为Ada和Python提供api（尽管在自述文件中提到了Java）。你有什么建议吗？如果没有使

0热度

1回答

抑制Ada限制

是否可以抑制源的特定部分中的ada限制？例如，如果我已经在高层定义了“编译指示限制（No_Dynamic_Priorities）”的使用，但是希望在我知道我所做的事情安全的地方忽略此限制，是否可以抑制此限制所以编译器不再抱怨？

0热度

1回答

在我的GPS工具菜单中OS Shell不能切换，我如何启用它？

我是Ada的新手，我安装了GPS。我希望看到OS Shell，但它是灰色的。我所能找到的只是它与文件shell.py有关，但我无法在我的GPS文件夹中的任何位置找到它。谁能帮我吗？

0热度

1回答

如何在ada包中声明任务？

我正在尝试编写一个课程。在规范中，任务不能有任何程序或功能。我必须使用包名称来访问任务。我怎么能这样做呢？我可以简单地写一些东西沿 package hello is task sample is... end sample; end hello;

-1热度

2回答

如何获得这个通用包编译

我有程序，它正在阅读的通用包，但我不知道该怎么做关于上下文条款获取数字打印和/或读入从文件。在现在的客户端程序中，我已经知道Element_Type应该是一个整数，但是我所有的声明都是type元素，当没有Ada.Element_text_IO时，我怎么做这件事？请让我知道，我一直坚持了一段时间。客户端程序 WITH Ada.Text_IO; WITH Ada.Integer_Text_IO;

1热度

2回答

如何在Ada中创建UDP客户端

我正在使用Ada进行UDP通信。该代码必须将一些数据发送给另一个将要处理它的主机。我试图发送初始消息来开始通信，但它不起作用。我的客户代码如下： with GNAT.Sockets; use GNAT.Sockets; with Ada.Text_IO; with Ada.Exceptions; use Ada.Exceptions; procedure Client_Send is

1热度

2回答

使用Ada.Text_IO.Integer_IO

我试着写下面的程序： with Ada.Text_IO; procedure Main is type T is range 0 .. 18; package IO is new Ada.Text_IO.Integer_IO (T); begin IO.Put (1); end Main; 但是当我尝试编译，我得到以下错误信息： main.adb:

0热度

3回答

比较枚举值

我想遍历数组并检查当前数组索引是否为枚举值。该阵列以及枚举被定义如下： type Option is (None, A, B, C, D); type Votes is array(Option) of Natural; Zero_Option_Distribution: constant Votes := (others => 0); Votes_Distribution: Votes