Я исхожу из C/C++ во встроенных системах, и все время внутри функции мы используем статическую переменную, чтобы значение сохранялось во время вызовов.
В Аде кажется, что это делается только с эквивалентом статических переменных на уровне файла. Есть ли эквивалент Ады.
C++:
function Get_HW_Counter() {
static int count = 0;
return ++count;
}
Ада: ??
Переменные уровня пакета.
Обратите внимание, что пакеты не обязательно находятся на уровне файлов; вы даже можете создать и использовать пакет, локальный для подпрограммы, если хотите. Одним из способов использования пакета является создание объекта и всех методов, воздействующих на него (одноэлементный шаблон); сохранение всех деталей объекта в тайне.
Если мое понимание С++ не слишком заржавело, близким эквивалентом будет:
package HW_Counter is
function Get_Next;
private
count : natural := 0; -- one way of initialising
-- or integer, allowing -ve counts for compatibility with C++
end HW_Counter;
и это все, что нужно видеть покупателю пакета.
package body HW_Counter is
function Get_Next return natural is
begin
count := count + 1;
return count;
end Get_Next;
begin -- alternative package initialisation part
count := 0;
end HW_Counter;
И использование, как правило, будет
C := HW_Counter.get_next;
