package abstrasy.pcfx;
import abstrasy.ASymbol;
import abstrasy.Heap;
import abstrasy.Node;
import abstrasy.PCoder;
import abstrasy.interpreter.InterpreterException;
import abstrasy.interpreter.StdErrors;
import java.util.ArrayList;
/**
* 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_adapt extends PCFx {
public PCFx_adapt() {
}
/**
* eval
*
* @param startAt Node
* @return Node
* @throws Exception
* @todo Implémenter cette méthode abstrasy.PCFx
*/
public Node eval(Node startAt) throws Exception {
/**
* formes:
*
* (adapt delegable) :
* Ajoute dans l'espace de noms courant les méthodes inlines qui permettent
* d'appeler les méthodes publiques de l'objet.
*
* (adapt delegable 'prefix) :
* Effectue la même chose mais en préfixant les symboles à l'aide du préfix
* indiqué.
*
* Option scope:
* ------------
* Avec l'option scope, l'adapatateur est déclaré dans la portée locale (l'objet scope courant):
*
* (adapt scope delegable)
* (adapt scope delegable 'prefix)
*
* On notera que delegable est un objet delegable.
* La liaison est réalisée de façon synonyme (le lien est réalisé sur le contenant).
* Il n'est donc pas nécessaire de fournir un symbole.
*/
startAt.isGoodArgsCnt(2,3,4);
boolean optScope = startAt.elementAt(1).getSymbolicValue().isPCode(PCoder.PC_SCOPE);
int argsOffset=optScope ? 1:0;
Node vObject = startAt.getSubNode(++argsOffset, Node.VTYPE_DELEGABLE);
String prefix="";
if(argsOffset+1<startAt.size()){
prefix=startAt.getSubNode(++argsOffset, Node.TYPE_QSYMBOL).getSymbol().getStr();
if (prefix.indexOf(PCoder.SEP) >= 0)
throw new InterpreterException(StdErrors.Local_symbol_required);
}
ArrayList<String> symboles = Node.VDelegable.slotsOf(vObject);
for(int i=0;i<symboles.size();i++){
String symb=symboles.get(i);
if(Heap.getv(vObject, new ASymbol(PCoder.selfing(symb))).isFunction()){
Node fx=Node.createInlineFunction(Node.createLazy().append(vObject).append(Node.createQSymbol(symb)));
Heap.defv(new ASymbol(optScope ? (prefix+symb):PCoder.selfing(prefix+symb)), fx);
}
}
return null;
}
}