/*
 Dandelion, a Lisp plugin for Eclipse.
 Copyright (C) 2007 Michael Bohn

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2 of the License, or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License along
 with this program; if not, write to the Free Software Foundation, Inc.,
 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */

package de.defmacro.dandelion.internal.core.dom.parse;

import de.defmacro.dandelion.internal.core.dom.*;

/**
 * Ueberprueft eine Ordinary-Lambda-Liste.
 * @author Michael Bohn
 */
public class OrdinaryLambdaListParser
extends AbstractLambdaListParser<OrdinaryLambdaList>
{
	@Override
	public void parse0() 
	throws ParseException
	{
		nil();
		lambdaList();
	}
		
	@Override
	protected OrdinaryLambdaList constructObject() 
	{
		if(fInput.size() == 0 ||  //Test auf nil lambda-liste
				(fRequired == null && fOptional == null && fRest == null && fKey == null && fAux == null && !fAllowOtherKeys)) {
			return OrdinaryLambdaList.NIL;
		}
		
		return new OrdinaryLambdaList(fRequired, fOptional, fRest, fKey, fAllowOtherKeys, fAux);		
	}

	private void lambdaList()
	throws ParseException
	{
		if(fInput.hasNext()) {
			requiredParam();
			optionalParam();
			rest();
			keywordParam();
			auxParam(true);
		}
	}
}
