package scheme2.visitor;

import scheme2.*;

class HelpGetLen implements IListAlgo
{
   private int _accLen;

   HelpGetLen(int acc)
   {
      _accLen = acc;
   }

	/**
	 * @param host 
	 * @param input 
	 * @return 
	 */
	public Object forEmpty(AListFW host, Object input)
	{
		return new Integer (_accLen);
	}

	/**
	 * @param host 
	 * @param input 
	 * @return 
	 */
	public Object forNonEmpty(AListFW host, Object input)
	{
      _accLen++;
		return host.getRest ().execute (this, null);
	}
}