package abstrasy.pcfx;
import abstrasy.ASymbol;
import abstrasy.Heap;
import abstrasy.Interpreter;
import abstrasy.Node;
/**
* Abstrasy Interpreter
*
* Copyright : Copyright (c) 2006-2012, Luc Bruninx.
*
* Concédée sous licence EUPL, version 1.1 uniquement (la «Licence»).
*
* Vous ne pouvez utiliser la présente oeuvre que conformément à la Licence.
* Vous pouvez obtenir une copie de la Licence à l’adresse suivante:
*
* http://www.osor.eu/eupl
*
* Sauf obligation légale ou contractuelle écrite, le logiciel distribué sous
* la Licence est distribué "en l’état", SANS GARANTIES OU CONDITIONS QUELLES
* QU’ELLES SOIENT, expresses ou implicites.
*
* Consultez la Licence pour les autorisations et les restrictions
* linguistiques spécifiques relevant de la Licence.
*
*
* @author Luc Bruninx
* @version 1.0
*/
public class PCFx_delegate extends PCFx {
public PCFx_delegate() {
}
private static final Node invoker(Node methode) throws Exception {
/*
* création de l'expression temporaire...
*/
Node inode = new Node();
inode.addElement(methode);
/*
* Récupération de argv.
*
* argv doit être une liste, mais ici le nombre d'éléments n'est pas important...
*/
Node argv = Heap.getv(ASymbol.SYMBOL_ARGV);
argv.requireNodeType(Node.TYPE_CLIST);
inode.appendChildsOf(argv);
/*
* on évalue...
*/
return inode.exec(true);
}
/**
* eval
*
* @param startAt Node
* @return Node
* @throws Exception
* @todo Implémenter cette méthode abstrasy.PCFx
*/
public Node eval(Node startAt) throws Exception {
/**
* formes:
* (delegate fonction) : -> (!return (invoke fonction argv))
*/
startAt.isGoodArgsCnt(2);
Interpreter interpreter = Interpreter.mySelf();
/*
* wrapper->delegating/consulting en fonction de la forme syntaxique utilisée...
*/
Node oldWrapper=interpreter.getWrapperFunction();
interpreter.setWrapperFunction(interpreter.getThisFunction());
Node rnode=invoker(startAt.getSubNode(1,Node.TYPE_FUNCTION));
interpreter.setWrapperFunction(oldWrapper);
return rnode;
}
}