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

$table RFP-Options ;
$table RFP-Module-Subst;

$func RFP-Clear-Table s.tbl = ;

$func? RFP-Debug? = ;

$func RFP-Double-Copy s.tab = s.new-tab;

$func RFP-Double-Unbind s.tab e.keys = ;

$func RFP-Extract-Qualifiers t.Name = (e.qualifiers) e.name;

$func Del-Pragmas e.Sentence = e.Sentence;

// substitute replacements for each occurence of corresponding patterns in expr
$func Subst (e.patterns) (e.replaces) expr = expr;

// search for e.pattern in expr (in all depths).
$func? In? (e.pattern) expr = ;