Package abstrasy

Examples of abstrasy.ASymbol

57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
                     *
                     * forme : (register Symbol) : enregistrement direct (symbole local immutable).
                     *
                     */
                    startAt.requireNodeType(1,Node.TYPE_SYMBOL);
                    ASymbol symbole = startAt.elementAt(1).getSymbol();
                    /**
                     * le symbole ne peut pas être composé...
                     */
                    if (symbole.getIdsCnt()>1){
                        throw new InterpreterException(StdErrors.Invalid_symbol);
                    }
                    if (!symbole.isImmutable()) {
                        throw new InterpreterException(StdErrors.Immutable_symbol_required);
                    }
                    /**
                     * On récupère à présent la valeur...
                     */
                    Node fn = startAt.getSubNode(1, Node.VTYPE_VALUABLE);
                    /**
                     * On réalise l'enregistrement...
                     */
                    Node registry = Heap.getv(ASymbol.SYMBOL_REGISTRY);
                    synchronized(registry){
                        Heap.defv(new ASymbol(PCoder.REGISTRY+PCoder.SEP+symbole.getStr()), fn.isFinalNode() ? fn : Node.createClone(fn));
                    }
                    return null;
                }
            case 3:
                {
                    /**
                     *
                     * forme : (register 'Symbol valuable)  : enregistrement avec nom synonyme
                     *
                     */
                    ASymbol symbole = startAt.getSubNode(1, Node.TYPE_QSYMBOL).getSymbol();
                    /**
                     * le symbole ne peut pas être composé...
                     */
                    if (symbole.getIdsCnt()>1){
                        throw new InterpreterException(StdErrors.Invalid_symbol);
                    }
                    if (!symbole.isImmutable()) {
                        throw new InterpreterException(StdErrors.Immutable_symbol_required);
                    }
                    Node fn = startAt.getSubNode(2, Node.VTYPE_VALUABLE);

                    Node registry = Heap.getv(ASymbol.SYMBOL_REGISTRY);
                    synchronized(registry){
                        Heap.defv(new ASymbol(PCoder.REGISTRY+PCoder.SEP+symbole.getStr()), fn.isFinalNode() ? fn : Node.createClone(fn));
                    }
                    return null;
                }
            default:
                throw new InterpreterException(StdErrors.Argument_count_mismatch);
View Full Code Here
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
     */
        startAt.isGoodArgsCnt(2, 3);
        /**
     * début du traitement
     */
        ASymbol symbole_n = startAt.getSubNode(1, Node.TYPE_QSYMBOL).getSymbol();
        //dépréciation 2012-05-31 : Node register = null;
        if (symbole_n.getStr().charAt(0) == PCoder.REG) {
            if (symbole_n.getStr().indexOf(PCoder.SEP) < 0) {
                // seul les espace de nom sont acceptables...
                throw new InterpreterException(StdErrors.Illegal_access_to_register);
            }
        }

        //System.out.println("DEF:"+snode);
        if (startAt.size() == 2) {
            Node tmpn = Node.createNothing();
            Heap.defv(symbole_n, tmpn);
            return Node.createRef(tmpn);
        }
        else {
            // il y a une valeur d'affectation...
            Node rnode = startAt.getSubNode(2, Node.VTYPE_VALUABLE);
            /**
             * Etablissement du code de conditions pour (define 't s) :
             * 1 : s est final.
             * 2 : s est un symbole.
             * 4 : t est immutable.
             *
             * Remarque: Au niveau du Heap, si le symbole recherché est immutable,
             *           un .newRef() .setImmutable() est tjrs réalisé d'office.
             *
             * D'où la table de vérités en considérant que t est toujours un symbole:
             *
             * code | t=immutable | s=symbole | s=final | opération
             * -----+-------------+-----------+---------+----------
             *   7  |      1      |     1     |    1    | Référence
             *   6  |      1      |     1     |    0    | Clonage
             *   5  |      1      |     0     |    1    | Référence
             *   4  |      1      |     0     |    0    | Référence
             *   3  |      0      |     1     |    1    | Clonage
             *   2  |      0      |     1     |    0    | Référence
             *   1  |      0      |     0     |    1    | Clonage
             *   0  |      0      |     0     |    0    | // dépréciationnewRef (16/12/20010)
             *
             */

            boolean isImmutable=symbole_n.isImmutable();
            int code = (isImmutable ? 4: 0) + (startAt.isNodeType(2, Node.TYPE_SYMBOL) ? 2: 0) + (rnode.isFinalNode() ? 1: 0);
            //dépréciation 2012-05-31 : register=Heap.createUseOnceRegisterGlobalSymbol(isImmutable);
            /**
             * Dispatching des fonctionnalités selon le code:
             * - Référence : 7, 2, 5, 4
View Full Code Here
TOP

Related Classes of abstrasy.ASymbol

  • abstrasy.interpreter.ContextualCall
  • abstrasy.pcfx.PCFx_abstract
  • abstrasy.pcfx.PCFx_adapt
  • abstrasy.pcfx.PCFx_atomic
  • abstrasy.pcfx.PCFx_define
  • abstrasy.pcfx.PCFx_function
  • abstrasy.pcfx.PCFx_import
  • abstrasy.pcfx.PCFx_interface
  • abstrasy.pcfx.PCFx_is__register
  • abstrasy.pcfx.PCFx_is__slot
    • Copyright © 2018 www.massapicom. 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.