// $Source$
// $Revision$
// $Date$

/*
 * Модуль для обработки константных выражений.
 */


/*
 * Инициализация.
 */
$func Init-Consts = ;

/*
 * Сделать из константного выражения STATIC форму ASAIL.
 */
$func Create-Static expr = t.static-form;

/*
 * Получить по STATIC-форме изначальное выражение.
 */
$func Get-Static t.static-form = expr;

/*
 * Скомпилировать накопленные константные выражения и выдать получившийся
 * ASAIL-код.
 */
$func Comp-Consts = e.ASAIL-consts;