Справочное руководство по языку Ада-83



Пример пакета работы с таблицами - часть 2


end;

function BUSY_LIST_EMPTY return BOOLEAN is ... end;

procedure EXCHANGE (FROM : in INDEX; TO : in INDEX) is ... end;

procedure INSERT (NEWJTEM : in ITEM) is begin

if FREE_LIST_EMPTY then raise TABLE_FULL; end if;

-— остальная часть кода подпрограммы INSERT end INSERT;

procedure RETRIEVE (FIRSTJTEM : out ITEM) is ... end;

begin

-— инициализация связей таблицы end TABLE_MANAGER;

Пред. 

Уровень выше  След.

7.4. ОПИСАНИЯ ЛИЧНЫХ ТИПОВ И СУБКОНСТАНТ

 

Содержание  

7.6. ПРИМЕР ПАКЕТА ОБРАБОТКИ ТЕКСТОВ




Содержание  Назад  Вперед