Ada语言理解:更名包的子类
创始人
2024-05-24 01:05:09
0次

在Ada语言中，一个包的名称和其所包含的子程序、对象等的名称可以不同。这是通过使用“renames”语句来实现的。例如：

package My_Package is
   function Do_Something return Boolean;
end My_Package;

package Renamed_Package renames My_Package;

在这个例子中，包My_Package中定义了一个函数Do_Something，并将其重命名为Renamed_Package中的一个子程序。现在问题是如何创建一个继承自Renamed_Package的子类？

答案是使用原始包的名称而不是重命名后的名称来定义一个子类。例如：

with Renamed_Package;

package My_Subpackage is
   type Derived_Class is new Renamed_Package.My_Package'Derived_Class
      with private;

   overriding
   function Do_Something return Boolean;
end My_Subpackage;

在这个例子中，My_Subpackage中创建了一个名为Derived_Class的子类，该子类继承自Renamed_Package.My_Package中的Derived_Class，并实现一个重写Do_Something函数的方法。请注意，在派生类型中，需要使用完整的原始包名称（My_Package）。然后，可以在实现中使用其重命名的名称（Renamed_Package）。

上一篇：Ada语言 - 如何存储由函数返回的字符串值？

下一篇：Ada语言中带有类型转换和四舍五入操作符的问题。

相关内容

热门资讯

闲鱼搜索规则与技巧 闲鱼最新特... 在闲鱼这个二手交易平台上，有很多用户都希望能够找到一些特殊的东西，比如一些罕见的收藏品、独特的手工艺...
玻璃硬盘原理图 玻璃硬盘原理 玻璃硬盘，又称为磁头悬浮硬盘（Magnetic Head Flying Disk，MHFD），是一种...
家里监控最长能保存多少天的记录... 家里监控一般保存多久 随着科技的发展，家庭监控系统已经成为了许多家庭的必备设备，它不仅可以帮助我们...
QQ音乐提示代理模式可能无法正... QQ音乐提示代理模式可能无法正常访问，如上图所示，是怎么回事呢？ 这个可能和你的网络设置有关系，首先...
别人打电话听不见我说话怎么回事... 当我们在使用手机时，可能会遇到别人打电话过来听不见声音的情况，这种情况可能是由多种原因导致的，下面我...
ps5手柄可用手机快充充电吗 ... PS5手柄，即PlayStation 5的DualSense手柄，是索尼公司为PlayStation...
华为tag有用吗 华为tag-... 华为Tag是华为手机中的一种功能，它可以帮助用户更好地管理自己的手机数据和应用，通过使用华为Tag，...
a100显卡对应的cuda版本 在进行GPU加速的编程中，CUDA是常用的架构和平台，其版本和显卡型号之间存在着一定的对应关系。本篇...
frp内网穿透配置 HTTP ... HTTP 类型的代理相比于 TCP 类型，不仅在服务端只需要监听一个额外的端口 vhost_http...
hwid是永久激活吗 hwid... HWID，全称Hardware ID，是硬件识别码的缩写，它是计算机硬件制造商为了区分每一台设备而分...