INTERFACE QValue;

IMPORT Quake, QCode;

CONST
  Brand = "QValue.T";

TYPE
  T = RECORD
    kind : Kind;
    int  : INTEGER;
    ref  : REFANY;
  END;

TYPE
  Kind = {    (*    int         ref     *)
    Var,      (*    Quake.ID    Binding *)
    Integer,  (*    value       ----    *)
    String,   (*    Quake.ID    ----    length <= 1024 *)
              (*    NoID        TEXT    length >  1024 *)
    Table,    (*    ------      QVTbl.T *)
    Array,    (*    ------      QVSeq.T *)
    Proc      (*    ------      Proc    *)
  };

TYPE
  Proc = REF RECORD
    info   : QCode.ProcInfo := NIL;
    env    : Scope          := NIL;
  END;

TYPE
  Scope = REF RECORD
    id         : INTEGER;
    bindings   : Binding := NIL;
    parent     : Scope   := NIL;
  END;

TYPE
  Binding = REF RECORD
    next     : Binding  := NIL;
    readonly : BOOLEAN  := FALSE;
    name     : Quake.ID := Quake.NoID;
    value    : T;
  END;

END QValue.