// $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;

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



$func? Flat? e.Re = ;



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

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