Package abstrasy.pcfx

Source Code of abstrasy.pcfx.PCFx_delegate

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;
    }

}
TOP

Related Classes of abstrasy.pcfx.PCFx_delegate

TOP
Copyright © 2018 www.massapi.com. All rights reserved.
All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.