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

Last change on this file since 1231 was 1231, checked in by orlov, 17 years ago
  • Fixed $iter compilation.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 807 bytes
Line 
1// $Source$
2// $Revision: 1231 $
3// $Date: 2003-08-15 13:30:23 +0000 (Fri, 15 Aug 2003) $
4
5$func? Var? expr = ;
6$func Set-Var e.info t.var = ;
7$func? Get-Var t.key e.var = e.val;
8$func Set-Var- e = e;
9
10$func Vars-Copy-State = t.vars;
11$func Vars-Set-State t.vars = ;
12
13$func Init-Vars = ;
14
15//! $func New-Vars e = ;
16$func Vars-Print e = e;
17$func Vars-Decl e = e;
18
19$func Vars-Reset e.vars = ;
20
21$func Create-Int-Var (e.prefix) t.var e.expr = t.int-var e.int-assign;
22
23$func Vars e.expr = e.vars;
24
25$func Gener-Vars (e.format) e.prefix = e.Re;
26
27$func Gener-Err-Var = t.var;
28
29$func Gener-Subst-Vars (e.format) e.prefix = e.Re;
30
31$func? Substitutable-Var? e.Re = ;
32
33$func Gener-Var-Assign t.var e.generated-var = ;
34
35$func Gener-Var-Names e.expr-with-unspecified-var-names = e.expr-with-resolved-var-names;
36
37$func Gener-Var-Indices s.num (e.Format) e.prefix = e.Re s.max;
38
Note: See TracBrowser for help on using the repository browser.