Package org.openquark.cal.internal.machine.g

Examples of org.openquark.cal.internal.machine.g.Node

72
73
74
75
76
77
78
79
80
            throws CALExecutorException {

        //insertTextualRecordFieldPrimitive recordValue fieldName fieldValue
        NRecordValue recordValue = (NRecordValue) executor.internalEvaluate(arguments[0]);
        String fieldName = (String)executor.internalEvaluate(arguments[1]).getValue();
        Node fieldValue = arguments[2];

        return recordValue.insertRecordField(fieldName, fieldValue);
    }
View Full Code Here
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
            paramSources.add(RecordParamHelper.create(recordValue.getNthValue(i), executor));
        }
        for (int i = 0; i < nFields; ++i) {
           
            Node fieldDict = recordDict.getNthValue(i);           
            Node elem;

            if (index.getIntValue() == -1)
                elem = fieldDict;
            else
                elem = fieldDict.apply(index);
           
            //fill f's arguments using the param sources.
            for(RecordParamHelper param : paramSources) {
                elem = elem.apply(param.getNext(executor));
            }
           
            result.add(elem);
        }
       
View Full Code Here
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
                //compute "Debug.show valueDictionaryThunk xValueThunk"
                //this is just (after inlining Debug.show d = d)
                //valueDictionaryThunk xValueThunk
               
                String fieldName = fieldNames.get(i);
                Node valueDictionaryThunk = recordDictionary.getValue(fieldName);
                Node xValueThunk = x.getValue(fieldName);
                Node ap = valueDictionaryThunk.apply (xValueThunk);
               
                String apResult = (String)(executor.internalEvaluate(ap).getValue());
               
                showResult.append(apResult);
            }
           
            showResult.append(")");
           
        } else {
            showResult.append ("{");
           
            for (int i = 0; i < nFields; ++i) {
                if (i > 0) {
                    showResult.append (", ");
                }
               
                String fieldName = fieldNames.get(i);
                showResult.append(fieldName).append(" = ");
               
                //compute "Debug.show valueDictionaryThunk xValueThunk"
                //this is just (after inlining Debug.show d = d)
                //valueDictionaryThunk xValueThunk
                Node valueDictionaryThunk = recordDictionary.getValue(fieldName);
                Node xValueThunk = x.getValue(fieldName);
                Node ap = new NAp(valueDictionaryThunk, xValueThunk);
               
                String apResult = (String)(executor.internalEvaluate(ap).getValue());
               
                showResult.append(apResult);
            }
View Full Code Here
103
104
105
106
107
108
109
110
111
112
113
114
115
        final int nFields = fieldNames.size();
       
        for (int i = 0; i < nFields; ++i) {
           
            String fieldName = fieldNames.get(i);
            Node valueDictionaryThunk = recordDictionary.getValue(fieldName);
            Node xValueThunk = x.getValue(fieldName);
            Node yValueThunk = y.getValue(fieldName);
           
            //compute "Prelude.equals valueDictionaryThunk xValueThunk yValueThunk"
            //this is just (after inlining Prelude.equals d = d classMethodIndex)
            //valueDictionaryThunk classMethodIndex xValueThunk yValueThunk
           
View Full Code Here
TOP

Related Classes of org.openquark.cal.internal.machine.g.Node

  • org.openquark.cal.internal.machine.g.functions.NArbitraryRecordPrimitive
  • org.openquark.cal.internal.machine.g.functions.NBuildList
  • org.openquark.cal.internal.machine.g.functions.NBuildRecord
  • org.openquark.cal.internal.machine.g.functions.NCoArbitraryRecordPrimitive
  • org.openquark.cal.internal.machine.g.functions.NCompareRecord
  • org.openquark.cal.internal.machine.g.functions.NEqualsRecord
  • org.openquark.cal.internal.machine.g.functions.NInsertOrdinalRecordFieldPrimitive
  • org.openquark.cal.internal.machine.g.functions.NInsertTextualRecordFieldPrimitive
  • org.openquark.cal.internal.machine.g.functions.NNotEqualsRecord
  • org.openquark.cal.internal.machine.g.functions.NRecordToJListPrimitive
    • 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.