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

$table RFP_Options ;
$table RFP_Module_Subst;

$func? IsRFP_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? IsIn (e.pattern) expr = ;

// Make refal name ('a.b.c' -> "a" "b" "c")
$func Make_Name e.origname = e.name ;

// Print refal name ("a" "b" "c" -> 'a.b.c')
$func Print_Name e.name = e.chars ;