source: to-imperative/trunk/compiler/rfp_clashes.rfi @ 1146

// $Source$
// $Revision: 1146 $
// $Date: 2003-08-10 22:36:28 +0000 (Sun, 10 Aug 2003) $

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