package abstrasy.pcfx;
import abstrasy.Heap;
import abstrasy.Node;
import abstrasy.PCoder;
import abstrasy.SELF;
import abstrasy.ASymbol;
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_mixin extends PCFx {
public PCFx_mixin() {
}
private Heap getHeap(Node cnode) throws Exception {
if (cnode.isPattern()) {
// c'est une classe alors on crée l'espace de noms de l'objet...
return (Heap)Node.createDelegableFrom(cnode,null).getExternal();
}
else {
// c'est un objet, on récupère alors son espace de noms...
return (Heap)cnode.getExternal();
}
}
/**
* eval
*
* @param startAt Node
* @return Node
* @throws Exception
*
* @todo Implémenter cette méthode abstrasy.PCFx
*/
public Node eval(Node startAt) throws Exception {
/**
* On doit pouvoir étendre l'objet courent...
*/
if (SELF.get()==null) {
throw new InterpreterException(StdErrors.Object_required);
}
/**
* forme (mixin ...)
*/
startAt.isGoodArgsCnt(2);
Node cnode = startAt.getSubNode(1, Node.TYPE_NAMESPACE);
/**
* récupère l'espace de noms de l'élément...
*/
Heap spacename = (Heap)cnode.getExternal();
/**
* récupère les mixins possibles...
*/
ArrayList<?>[] mixins = Heap.getMixins(spacename);
/**
* prendre la liste des symboles et leur valeurs respectives...
*/
ArrayList<String> symbols = (ArrayList<String>)mixins[0];
ArrayList<Node> values = (ArrayList<Node>) mixins[1];
/**
* importer les éléments possibles
*/
ASymbol symbol;
for (int i = 0; i < symbols.size(); i++) {
/**
* composer le symbole dans la forme Self:<symbole>...
*/
symbol = new ASymbol(PCoder.selfing(symbols.get(i)));
/**
* tester s'il y a collision...
*
* S'il y a collision, une exception est déclenchée.
* Un mixin ne peut pas être utilisé pour surdéfinir.
*/
if (Heap.exists(symbol))
throw new InterpreterException(StdErrors.extend(StdErrors.Symbol_already_exists, symbol.getStr()));
/**
* si tout va bien, on ajoute le mixin qui correspond...
*
* La protection minimum (deref).
*
* Attention dans le cas d'une utilisation parallèle:
* -------------------------------------------------
* La Node.FUNCTION(méthode) renvoyée est affectée du Heap courant. Le souci, c'est que si la même
* méthode est appelée par 2 processus différents en même temps, à partir de 2 objets différents,
* a quel heap est attachée la méthode alors ?...
*
* Le deref est vraiment une protection minimum dans ce cas.
*
*/
Heap.defv(symbol, values.get(i).deref());
}
/**
* on termine ici pour cette forme...
*/
return null;
}
}