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

Last change on this file since 1201 was 1201, checked in by orlov, 17 years ago
  • Jumping into the wrong place on $fail is fixed.
  • Variable naming scheme is improved a little bit.
  • More unused code is throwed away.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 778 bytes
Line 
1// $Source$
2// $Revision: 1201 $
3// $Date: 2003-08-13 22:59:18 +0000 (Wed, 13 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 Create-Int-Var (e.prefix) t.var e.expr = t.int-var e.int-assign;
20
21$func Vars e.expr = e.vars;
22
23$func Gener-Vars (e.format) e.prefix = e.Re;
24
25$func Gener-Err-Var = t.var;
26
27$func Gener-Subst-Vars (e.format) e.prefix = e.Re;
28
29$func? Substitutable-Var? e.Re = ;
30
31$func Gener-Var-Assign t.var e.generated-var = ;
32
33$func Gener-Var-Names e.expr-with-unspecified-var-names = e.expr-with-resolved-var-names;
34
35$func Gener-Var-Indices s.num (e.Format) e.prefix = e.Re s.max;
36
Note: See TracBrowser for help on using the repository browser.