source: to-imperative/trunk/compiler/rfp_vars.rfi @ 694

Last change on this file since 694 was 694, checked in by orlov, 18 years ago
  • Added parentheses around t.label int the LABEL form in ASAIL.
  • Corrected Expr-variables defenitions.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 817 bytes
Line 
1// $Source$
2// $Revision: 694 $
3// $Date: 2003-04-29 02:04:27 +0000 (Tue, 29 Apr 2003) $
4
5$func Vars-Copy-State = t.vars;
6$func Vars-Set-State t.vars = ;
7
8$func Init-Vars = ;
9
10$func New-Vars e = ;
11$func Vars-Print e = e;
12$func Vars-Decl e = e;
13
14$func Vars e.expr = e.vars;
15
16$func Gener-Vars (e.format) e.prefix = /*(e.vars)*/ e.Re;
17
18$func? Generated-Var? e.Re = ;
19
20$func Gener-Var-Assign t.var e.generated-var = ;
21
22$func Gener-Var-Names e.expr-with-unspecified-var-names = e.expr-with-resolved-var-names;
23
24$func Gener-Var-Indices s.num (e.Format) e.prefix = e.Re s.max;
25
26$func? ?? t.name e.key = e.val;
27
28$func Strip-STVE expr = expr;
29
30$func Set-Var t.name (e.key) (e.val) = ;
31
32$func Store-Vars e.vars = e.vars;
33
34$func Declare-Vars s.type e.vars = e.decls;
35
36$func? Declared? t.var = ;
37
38$func Instantiate-Vars e.vars = ;
39
40$func Norm-Vars (e.vars) e.Snt = (e.vars) e.Snt;
41
Note: See TracBrowser for help on using the repository browser.