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

// $Source$
// $Revision: 1201 $
// $Date: 2003-08-13 22:59:18 +0000 (Wed, 13 Aug 2003) $

$func? Var? expr = ;
$func Set-Var e.info t.var = ;
$func? Get-Var t.key e.var = e.val;
$func Set-Var- e = e;

$func Vars-Copy-State = t.vars;
$func Vars-Set-State t.vars = ;

$func Init-Vars = ;

//! $func New-Vars e = ;
$func Vars-Print e = e;
$func Vars-Decl e = e;

$func Create-Int-Var (e.prefix) t.var e.expr = t.int-var e.int-assign;

$func Vars e.expr = e.vars;

$func Gener-Vars (e.format) e.prefix = e.Re;

$func Gener-Err-Var = t.var;

$func Gener-Subst-Vars (e.format) e.prefix = e.Re;

$func? Substitutable-Var? e.Re = ;

$func Gener-Var-Assign t.var e.generated-var = ;

$func Gener-Var-Names e.expr-with-unspecified-var-names = e.expr-with-resolved-var-names;

$func Gener-Var-Indices s.num (e.Format) e.prefix = e.Re s.max;