跳转到内容

Ada 编程/关键字/use

来自维基教科书,自由的教科书

Ada. Time-tested, safe and secure.
Ada. 久经考验,安全可靠。

Use 子句

[编辑 | 编辑源代码]

Use 子句有两种版本:use_package_clause 和 use_type_clause。

在库级别

[编辑 | 编辑源代码]

此 use_package_clause 使 的内容直接可见。如果应用在库级别,它的作用范围是整个库单元。

Use 子句不会隐藏任何原本无需它就能直接可见的内容。在某个范围内生效的所有 use 子句都处于同一级别:来自不同包的两个同音异义词仍然必须作为选定组件进行命名。

with Ada.Text_IO;   use Ada.Text_IO;

procedure Hello is
begin
   Put_Line("Hello, world!");
   New_Line;
   Put_Line("I am an Ada program with package use.");
end Hello;

如果可读性是你的主要关注点,那么你应该避免使用这种 use 子句。要么使它更局部化,要么使用 use_type_clause。

在声明级别

[编辑 | 编辑源代码]

效果与上面相同,但作用范围是直接包含的声明区域。

文件:hello_world_3.adb (查看, 纯文本, 下载页面, 浏览所有)
with Ada.Text_IO;

procedure Hello is
   use Ada.Text_IO;
begin
   Put_Line("Hello, world!");
   New_Line;
   Put_Line("I am an Ada program with package use.");
end Hello;

对于类型

[编辑 | 编辑源代码]

Use 类型子句有两种版本。

use type Type_Name;

使类型的运算符直接可见。

use all type Type_Name;

使类型的基本操作直接可见。

表示子句

[编辑 | 编辑源代码]

关键字for, useat 用于表示子句。

记录表示子句指定记录的 布局 方面

枚举表示子句指定枚举类型的 编码 方面

参见 Ada 编程/表示子句

维基教科书

[编辑 | 编辑源代码]

Ada 参考手册

[编辑 | 编辑源代码]

Ada 质量和风格指南

[编辑 | 编辑源代码]


Ada 关键字
abort else new return
abs elsif not reverse
abstract (Ada 95) end null
accept entry select
access exception of separate
aliased (Ada 95) exit or some (Ada 2012)
all others subtype
and for out synchronized (Ada 2005)
array function overriding (Ada 2005)
at tagged (Ada 95)
generic package task
begin goto parallel (Ada 2022) terminate
body pragma then
if private type
case in procedure
constant interface (Ada 2005) protected (Ada 95) until (Ada 95)
is use
declare raise
delay limited range when
delta loop record while
digits rem with
do mod renames
requeue (Ada 95) xor
华夏公益教科书