// $Source$
// $Revision$
// $Date$

$func? Var? expr = ;
$func Set-Var e.info t.var = ;
$func? Get-Var t.key t.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.vars)*/ e.Re;

$func? Generated-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;

$func? ?? t.name e.key = e.val;

$func Strip-STVE expr = expr;

//!$func Set-Var t.name (e.key) (e.val) = ;

$func Store-Vars e.vars = e.vars;

$func Declare-Vars s.type e.vars = e.decls;

//!$func? Declared? t.var = ;

//!$func? Instantiated? t.var = ;

$func Instantiate-Vars e.vars = ;

$func Norm-Vars (e.vars) e.Snt = (e.vars) e.Snt;