lispptrarray.java

来自「计算机代数系统」· Java 代码 · 共 39 行

package net.sf.yacas;


/** \class LispPtrArray is similar to LispPtr, but implements an array
 *  of pointers to objects.
 */
class LispPtrArray 
{
  public LispPtrArray(int aSize,LispObject aInitialItem)
	{
    iArray = new LispPtr[aSize];
    iSize = aSize;
    int i;
    for(i=0;i<aSize;i++)
    {
      iArray[i] = new LispPtr();
      iArray[i].Set(aInitialItem);
    }
  }
  void GrowTo(int aNewSize)
	{
	  //TODO FIXME
	}
    public int Size()
	{
	  return iSize;
	}
	public LispPtr GetElement(int aItem)
	{
	  return iArray[aItem];
	}
	public void SetElement(int aItem,LispObject aObject)
	{
	  iArray[aItem].Set(aObject);
	}
    int iSize;
    LispPtr iArray[];
}