Kawa/gnu/mapping/InheritingEnvironment.java

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

package gnu.mapping;

public class InheritingEnvironment extends SimpleEnvironment
{
  int numInherited;
  Environment[] inherited;
  int baseTimestamp;

  public InheritingEnvironment (String name, Environment parent)
  {
    super(name);
    addParent(parent);
    if (parent instanceof SimpleEnvironment)
      {
        int timestamp =  ++((SimpleEnvironment) parent).currentTimestamp;
        baseTimestamp = timestamp;
        currentTimestamp = timestamp;
      }
  }

  public final int getNumParents () { return numInherited; }
  public final Environment getParent (int index) { return inherited[index]; }

  public void addParent (Environment env)
  {
    if (numInherited == 0)
      inherited = new Environment[4];
    else if (numInherited <= inherited.length)
      {
	 Environment[] newInherited
	   = new Environment[2 * numInherited];
	 System.arraycopy(inherited, 0, newInherited, 0, numInherited);
	 inherited = newInherited;
      }
    inherited[numInherited] = env;
    numInherited++;
  }

  public NamedLocation lookupInherited (Symbol name, Object property, int hash)
  { 
    for (int i = 0;  i < numInherited;  i++)
      {
	Symbol sym = name;
	Object prop = property;
	NamedLocation loc = inherited[i].lookup(sym, prop, hash);
	if (loc != null && loc.isBound())
	  {
	    if (! (loc instanceof SharedLocation)
		|| ((SharedLocation) loc).timestamp < baseTimestamp)
	      return loc;
	  }
      }
    return null;
  }

  public NamedLocation lookup (Symbol name, Object property, int hash)
  {
    NamedLocation loc = super.lookup(name, property, hash);
    if (loc != null && loc.isBound())
      return loc;
    return lookupInherited(name, property, hash);
  }

  public synchronized NamedLocation
  getLocation (Symbol name, Object property, int hash, boolean create)
  {
    NamedLocation loc = lookupDirect(name, property, hash);
    if (loc != null && (create || loc.isBound()))
      return loc;
    if ((flags & INDIRECT_DEFINES) != 0 && create)
      loc = inherited[0].getLocation(name, property, hash, true);
    else
      loc = lookupInherited(name, property, hash);

    if (loc != null)
      {
	if (create /* && loc.getEnvironment() != this*/)
	  {
	    NamedLocation xloc = addUnboundLocation(name, property, hash);
	    if ((flags & CAN_DEFINE) == 0 && loc.isBound())
	      redefineError(name, property, xloc);
	    xloc.base = loc;
            if (loc.value == IndirectableLocation.INDIRECT_FLUIDS)
              xloc.value = loc.value;
	    else if ((flags & DIRECT_INHERITED_ON_SET) != 0)
	      xloc.value = IndirectableLocation.DIRECT_ON_SET;
	    else
	      xloc.value = null;
	    if (xloc instanceof SharedLocation)
	      ((SharedLocation) xloc).timestamp = baseTimestamp;
	    return xloc;
	  }
	else
	  return loc;
      }
    return create ? addUnboundLocation(name, property, hash) : null;
  }

  public LocationEnumeration enumerateAllLocations()
  {
    LocationEnumeration it = new LocationEnumeration(table, 1 << log2Size);
    it.env = this;
    if (inherited != null && inherited.length > 0)
      {
	it.inherited = inherited[0].enumerateAllLocations();
	it.index = 0;
      }
    return it;
  }

  protected boolean hasMoreElements (LocationEnumeration it)
  {
    if (it.inherited != null)
      {
	for (;;)
	  {
	    NamedLocation loc = it.nextLoc;
	    for (;;)
	      {
		it.inherited.nextLoc = loc;
		if (! it.inherited.hasMoreElements())
		  {
                    it.prevLoc = null;
		    it.nextLoc = it.inherited.nextLoc;
		    break;
		  }
		loc = it.inherited.nextLoc;
		if (lookup(loc.name, loc.property) == loc)
		  {
		    it.nextLoc = loc;
		    return true;
		  }
		loc = loc.next;
	      }
	    if (++it.index == numInherited)
	      break;
	    it.inherited = inherited[it.index].enumerateAllLocations();
	  }
	it.inherited = null;
	it.bindings = table;
	it.index = 1 << log2Size;
      }
    return super.hasMoreElements(it);
  }

  protected void toStringBase (StringBuffer sbuf)
  {
    sbuf.append(" baseTs:");
    sbuf.append(baseTimestamp);
    for (int i = 0;  i < numInherited; i++)
      {
	sbuf.append(" base:");
	sbuf.append(inherited[i].toStringVerbose());
      }
  }
}