source: to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_clashes.rfi @ 3600

// $Id: rfp_clashes.rfi 3600 2008-03-28 15:20:52Z yura $

$module "org.refal.plus.compiler.rfp_clashes";

$table Known_Lengths;
$table Compute_Length;
$table Unknown_Lengths;

$box Checked_Lengths;

$box Eqs;


$func Init_Clashes e.clashes = ;


//$func Reclassify-Clash t.idx = ;
$func Reclassify_Clash e = e;


$func Update_Hard_Parts = e.actions;


$func? Compose_Source = e.assign;


$func? Get_Cycle = s.split_dir (e.left) (e.right) (e.len) t.var t.left t.right;



//////////////////////////////////////

$func Get_Known_Length e.expr = e.length_of_known_part (e.unknown_vars);