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

$func RFP-Compile e.items = e.asail;


/*
 * Tables for storing different items.
 * For each table the key is item's qualified name.
 * Value is s.Linkage s.ItemType t.Pragma e.Item-Specific-Information.
 * In tables Fun and Fun? s.ItemType is &Fun and &Fun? correspondingly, and
 * e.Item-Specific-Information is empty.
 */
$table Fun;
$table Fun?;
$table Const;
$table Object;

$table Var-Tags;

// Print error or warning message
$func Print-Error s.warning-or-error? e.description t.pragma = ;


$func? Lookup-Func t.Fname = s.linkage s.tag t.pragma (e.Fin) (e.Fout);

$func Vars e.expr = e.vars;

$func Gener-Vars s.num (e.Format) e.prefix = e.Re s.max;

$func Ref-To-Var e.Snt = e.Snt;

$func? ?? t.name e.key = e.val;