package abstrasy.pcfx;
import abstrasy.ASymbol;
import abstrasy.Heap;
import abstrasy.Interpreter;
import abstrasy.Node;
import abstrasy.interpreter.InterpreterException;
import abstrasy.interpreter.StdErrors;
/**
* 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_forward extends PCFx {
public PCFx_forward() {
}
private static final Node invoker() throws Exception {
/*
* création de l'expression temporaire...
*/
Node inode = new Node();
/*
* Récupération de argv.
*
* Il faut au moins un élément et argv doit être une liste...
*/
Node argv = Heap.getv(ASymbol.SYMBOL_ARGV);
argv.requireNodeType(Node.TYPE_CLIST);
argv.isGoodArgsLength(false, 1);
inode.appendChildsOf(argv);
/*
* Le premier élément peut être quoté... Si c'est le cas, il faut le rendre évaluable...
*/
Node f=argv.getSubNode(0, Node.TYPE_QSYMBOL).deref().letQuoted(false).getSymbolicValue();
inode.setElementAt(f, 0);
/*
* on évalue...
*/
return inode.exec(true);
}
private static final Node invoker(Node methode) throws Exception {
/*
* création de l'expression temporaire...
*/
Node inode = new Node();
/*
* ajoute la méthode...
*/
if(methode.isFunction())
// fonction
inode.addElement(methode);
else
// 'symbole
inode.addElement(methode.deref().letQuoted(false).getSymbolicValue());
/*
* 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: (forward) : -> (return (invoke (select-first argv) (select-rest argv)) )
* (forward 'Methode) : -> (return (invoke 'Methode argv))
* (forward fonction) : -> (return (invoke fonction argv))
*/
startAt.isGoodArgsCnt(1,2);
Interpreter interpreter = Interpreter.mySelf();
if ((!interpreter.isTerminalNode()) || interpreter.getCallerSignature() == 0) {
// il ne devrait pas y avoir de signature GUID = 0...
// si c'est le cas, c'est que qu'aucune fonction n'a été appelée...
throw new InterpreterException(StdErrors.Delegate_misplaced);
}
/*
* wrapper->forwarding en fonction de la forme syntaxique utilisée...
*/
Node oldWrapper=interpreter.getWrapperFunction();
interpreter.setWrapperFunction(interpreter.getThisFunction());
Node rnode = null;
if(startAt.size()==2){
rnode=invoker(startAt.getSubNode(1,Node.TYPE_FUNCTION|Node.TYPE_QSYMBOL));
}
else{
rnode=invoker();
}
interpreter.setWrapperFunction(oldWrapper);
/*
* s'il y a un résultat... Return...
*/
if (rnode != null) {
try {
Heap.setRETURN(rnode);
}
catch (Exception ex) {
throw new InterpreterException(StdErrors.Delegate_return_register_error);
}
}
/*
* terminer comme !return...
*/
if (interpreter.getBreakCode() != Interpreter.BREAKCODE_TAIL) {
interpreter.setBreakCode(Interpreter.BREAKCODE_RETURN);
}
return null;
}
}