/*
 *  Copyright (C) 2011 The Animo Project
 *  http://animotron.org
 *
 *  This program is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public License
 *  as published by the Free Software Foundation; either version 3
 *  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 Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
package org.animotron.statement.operator;

import javolution.util.FastSet;
import org.animotron.manipulator.OnQuestion;
import org.animotron.manipulator.PFlow;
import org.animotron.manipulator.QCAVector;
import org.neo4j.graphdb.Node;
import org.neo4j.graphdb.Relationship;

import java.util.List;
import java.util.Set;

/**
 * Operation 'THIS'. Reference to the closest instance in PFlow.
 * 
 * @author <a href="mailto:shabanovd@gmail.com">Dmitriy Shabanov</a>
 * @author <a href="mailto:gazdovsky@gmail.com">Evgeny Gazdovsky</a>
 */
public class THIS extends Operator implements Reference, Evaluable {

	public static final THIS _ = new THIS();

	private THIS() { super("this"); }
	
	private static boolean debug = true;
	
    @Override
	public OnQuestion onCalcQuestion() {
		return question;
	}
	
	private OnQuestion question = new OnQuestion() {

		@Override
		public void onMessage(final PFlow pf) {
			
			Relationship op = pf.getOP();
			
			final Set<Node> thes = new FastSet<Node>(); 
			for (QCAVector theNode : AN.getREFs(pf, pf.getVector())) {
				thes.add(theNode.getAnswer().getEndNode());
			}

			Utils.debug(THIS._, op, thes);
			
			if (!Utils.results(pf)) {
				search(pf, thes, pf.getVector().getContext());
			}
			pf.done();
		}
	};
	
	private boolean search(final PFlow pf, final Set<Node> thes, List<QCAVector> cs) {
		if (cs != null) {
			for (QCAVector c : cs) {
				//if (debug) System.out.println(c);
				Relationship toCheck = c.getQuestion();
				if (toCheck.isType(AN._)) {
					if (thes.contains( Utils.getByREF(toCheck).getEndNode() )) {
						if (debug) System.out.println("answer "+c.getUnrelaxedAnswer());
						pf.sendAnswer(new QCAVector(pf.getOP(), c.getUnrelaxedAnswer(), c.getContext()));
						return true;
					}
				}
				if (search(pf, thes, c.getContext()))
					return true;
			}
		}
		return false;
	}
}
@@ -1002,16 +1002,145 @@
 Vector;%0A
+import org.animotron.statement.query.ALL;%0Aimport org.animotron.statement.query.ANY;%0Aimport org.animotron.statement.query.PREFER;%0A
 import o
@@ -2430,16 +2430,94 @@
 pe(AN._)
+ %7C%7C toCheck.isType(ALL._) %7C%7C toCheck.isType(ANY._) %7C%7C toCheck.isType(PREFER._)
 ) %7B%0A%09%09%09%09
@@ -2673,34 +2673,32 @@
 wer(
-new QCAVector(pf.getOP(), 
+pf.getVector().answered(
 c.ge

fix THIS