Ада-95. Компилятор GNAT

       

Стандартные низкоуровневые средства, пакет AdaTags


Стандартным низкоуровневым средством работы с тэговыми типами является пакет Ada.Tags.

Спецификация этого пакета, согласно стандарта, имеет следующий вид:

package Ada.Tags is

type Tag is private;

function Expanded_Name(T : Tag) return String; function External_Tag(T : Tag) return String; function Internal_Tag(External : String) return Tag;

Tag_Error : exception;

private

. . . -- стандартом не определено

end Ada.Tags;

Функция Expanded_Name возвращает полное расширенное имя типа, индефицируемого значением тэга, в виде строки (в верхнем регистре).

Результат будет зависеть от реализации компилятора, если тип описан внутри неименованного блока инструкций.

Функция External_Tag возвращает строку, которая может быть использована для внешнего представления указанного тэга.

Вызов External_Tag(S'Tag) эквивалентен обращению к атрибуту S'External_Tag.

Функция Internal_Tag возвращает тэг который соответствует указанному внешнему представлению тэга, или возбуждает исключение Tag_Error

если ни для одного из типов, в пределах раздела программы, указанная строка не является внешним представлением тэга.

Copyright (C) А.Гавва V-0.4w май 2004



Содержание раздела