Package abstrasy.pcfx

Source Code of abstrasy.pcfx.PCFx_merge

package abstrasy.pcfx;


import abstrasy.Bytes;
import abstrasy.Hash;
import abstrasy.Node;
import abstrasy.PCoder;

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_merge extends PCFx {

    /**
     * respecte la protection de la finalité des listes.
     *
     */
    public PCFx_merge() {
    }

    /**
     * eval
     *
     * @param startAt Node
     * @return Node
     * @throws Exception
     * @todo Implémenter cette méthode abstrasy.PCFx
     */
    public Node eval(Node startAt) throws Exception {

       
        startAt.isGoodArgsLength(false, 3);
        Node arg0 = startAt.getSubNode(1, Node.TYPE_BYTES | Node.TYPE_HASH | Node.TYPE_CLIST | Node.TYPE_STRING | Node.VTYPE_DELEGABLE);
       
        /*
         * Cas où (merge objet ...)... Il s'agit d'une surcharge...
         */
       
        if(arg0.isDelegable())
                return Node.VDelegable.evalMethod(arg0, PCoder.getMethod(PCoder.PC_MERGE), startAt, 2);
       
        // autres...
       
        long qt = arg0.getQType();

        if(qt==Node.TYPE_STRING){
            // string
            String acc=arg0.getString();
            int i = 2;
            while (i < startAt.size())
                acc+=startAt.getSubNode(i++, qt).getString();
            return new Node(acc);
        }
       
        if(qt==Node.TYPE_BYTES){
            // bytes
            Bytes turtle=arg0.getBytes();
            int total_s=turtle.length();
            for(int i=2;i<startAt.size();)
                total_s+=startAt.getSubNode(i++, qt).getBytes().length();
            Bytes acc=new Bytes(total_s);
            int pc=0;
            acc.poke_bytes(pc,turtle);
            for(int i=2;i<startAt.size();){
                pc+=turtle.length();
                turtle=startAt.getSubNode(i++, qt).getBytes();
                acc.poke_bytes(pc,turtle);
            }
            return Node.createBytes(acc);
        }
       
        else if(qt==Node.TYPE_CLIST){
            // liste
            Node acc=arg0.select(0, arg0.size());
            int i = 2;
            while (i < startAt.size()){
                Node ap=startAt.getSubNode(i++, qt);
                for(int j=0;j<ap.size();j++)
                    acc.addElement(ap.elementAt(j).secure());
            }
            return acc;
        }
        else {
            // hash
            Hash my_h=arg0.getHash().copy_my_self();
            for(int i=2;i < startAt.size();i++){
                Node ap=startAt.getSubNode(i, qt);
                Hash your_h=ap.getHash();
                ArrayList<Node> kn=your_h.keys_nodes();
                int kn_size=kn.size();
                for(int j=0;j<kn_size;j++)
                    my_h.store(kn.get(j),your_h.ref(kn.get(j)).secure());
            }
            return Node.createHash(my_h);
        }

    }

}
TOP

Related Classes of abstrasy.pcfx.PCFx_merge

TOP
Copyright © 2015 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.