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

Last change on this file since 3600 was 3600, checked in by yura, 13 years ago
  • $module is added.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 536 bytes
Line 
1// $Id: rfp_clashes.rfi 3600 2008-03-28 15:20:52Z yura $
2
3$module "org.refal.plus.compiler.rfp_clashes";
4
5$table Known_Lengths;
6$table Compute_Length;
7$table Unknown_Lengths;
8
9$box Checked_Lengths;
10
11$box Eqs;
12
13
14$func Init_Clashes e.clashes = ;
15
16
17//$func Reclassify-Clash t.idx = ;
18$func Reclassify_Clash e = e;
19
20
21$func Update_Hard_Parts = e.actions;
22
23
24$func? Compose_Source = e.assign;
25
26
27$func? Get_Cycle = s.split_dir (e.left) (e.right) (e.len) t.var t.left t.right;
28
29
30
31//////////////////////////////////////
32
33$func Get_Known_Length e.expr = e.length_of_known_part (e.unknown_vars);
34
Note: See TracBrowser for help on using the repository browser.