Kawa/gnu/mapping/PlainLocation.java

// Copyright (c) 2004  Per M.A. Bothner.
// This is free software;  for terms and warranty disclaimer see ./COPYING.

package gnu.mapping;

public class PlainLocation<T> extends NamedLocation<T>
{
  public PlainLocation (Symbol symbol, Object property)
  {
    super(symbol, property);
  }

  public PlainLocation (Symbol symbol, Object property, T value)
  {
    super(symbol, property);
    this.value = value;
  }

  public final T get ()
  {
    if (base != null) return base.get();
    if (value == Location.UNBOUND) throw new UnboundLocationException(this);
    return (T) value;
  }

  public final T get (T defaultValue)
  {
    return base != null ? base.get(defaultValue)
        : value == Location.UNBOUND ? defaultValue : (T) value;
  }

  public boolean isBound ()
  {
    return base != null ? base.isBound() : value != Location.UNBOUND;
  }

  public final void set (T newValue)
  {
    if (base == null)
      value = newValue;
    else if (value == DIRECT_ON_SET)
      {
	base = null;
	value = newValue;
      }
    else if (base.isConstant())
      getEnvironment().put(getKeySymbol(), getKeyProperty(), newValue);
    else
      base.set(newValue);
  }
}