Package org.openquark.cal.internal.runtime.lecc

Examples of org.openquark.cal.internal.runtime.lecc.RTValue

38
39
40
41
42
43
44
45
46
47
48
   * f
   * This method implements the function logic of the CAL function Cal.Core.Prelude.$dictCal.Core.Prelude.Num#Cal.Core.Prelude.Int
   */
  public final RTValue f(final RTResultFunction $rootNode, final RTExecutionContext $ec) throws CALExecutorException {
    // Arguments
    RTValue $i$L = $rootNode.getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return f1S($i$L.evaluate($ec).getOrdinalValue(), $ec);
  }
View Full Code Here
38
39
40
41
42
43
44
45
46
47
48
   * f
   * This method implements the function logic of the CAL function Cal.Core.Prelude.longToInt
   */
  public final RTValue f(final RTResultFunction $rootNode, final RTExecutionContext $ec) throws CALExecutorException {
    // Arguments
    RTValue $x0$L = $rootNode.getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return f1S($x0$L.evaluate($ec).getLongValue(), $ec);
  }
View Full Code Here
56
57
58
59
60
61
62
63
64
65
66
67
68
69
   * f
   * This method implements the function logic of the CAL function Cal.Core.Prelude.$equals$List
   */
  public final RTValue f(final RTResultFunction $rootNode, final RTExecutionContext $ec) throws CALExecutorException {
    // Arguments
    RTValue y = $rootNode.getArgValue();
    RTValue $currentRootNode;
    RTValue x = ($currentRootNode = $rootNode.prevArg()).getArgValue();
    RTValue $dictvarCal_Core_Prelude_Eq_54 =
      $currentRootNode.prevArg().getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return
View Full Code Here
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
        }

        case 1: {
          // Cal.Core.Prelude.Cons
          // Decompose data type to access members.
          RTValue head1 = $case1.get_head();
          RTValue tail1 = $case1.get_tail();

          TYPE_List $case3;

          switch (($case3 = (((TYPE_List)(java.lang.Object)y.getValue()))).getOrdinalValue()) {

            case 1: {
              // Cal.Core.Prelude.Cons
              // Decompose data type to access members.
              RTValue head2 = $case3.get_head();
              RTValue tail2 = $case3.get_tail();

              if ((new RTOApp3(
                $dictvarCal_Core_Prelude_Eq_54,
                _equals___List.$L1_Int_0,
                head1,
                head2)).evaluate(
                $ec).getBooleanValue()) {
                x = tail1.evaluate($ec);
                y = tail2.evaluate($ec);
                continue TRLoop;
              } else {
                return _equals___List.$L2_Boolean_false;
              }
            }
View Full Code Here
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
        }

        case 1: {
          // Cal.Core.Prelude.Cons
          // Decompose data type to access members.
          RTValue head1 = $case1.get_head();
          RTValue tail1 = $case1.get_tail();

          TYPE_List $case3;

          switch (($case3 = (((TYPE_List)(java.lang.Object)y.getValue()))).getOrdinalValue()) {

            case 1: {
              // Cal.Core.Prelude.Cons
              // Decompose data type to access members.
              RTValue head2 = $case3.get_head();
              RTValue tail2 = $case3.get_tail();

              if ((new RTOApp3(
                $dictvarCal_Core_Prelude_Eq_54,
                _equals___List.$L1_Int_0,
                head1,
                head2)).evaluate(
                $ec).getBooleanValue()) {
                x = tail1.evaluate($ec);
                y = tail2.evaluate($ec);
                continue TRLoop;
              } else {
                return false;
              }
            }
View Full Code Here
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
   * f
   * This method implements the function logic of the CAL function Cal.Core.Prelude.lessThanEqualsInt
   */
  public final RTValue f(final RTResultFunction $rootNode, final RTExecutionContext $ec) throws CALExecutorException {
    // Arguments
    RTValue $x1$L = $rootNode.getArgValue();
    RTValue $x0$L = $rootNode.prevArg().getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return
      f2S(
        $x0$L.evaluate($ec).getOrdinalValue(),
        $x1$L.evaluate($ec).getOrdinalValue(),
        $ec);
  }
View Full Code Here
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
   * f
   * This method implements the function logic of the CAL function Cal.Core.Prelude.flip
   */
  public final RTValue f(final RTResultFunction $rootNode, final RTExecutionContext $ec) throws CALExecutorException {
    // Arguments
    RTValue y = $rootNode.getArgValue();
    RTValue $currentRootNode;
    RTValue x = ($currentRootNode = $rootNode.prevArg()).getArgValue();
    RTValue f = $currentRootNode.prevArg().getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return
      f3S(
        RTValue.lastRef(f.evaluate($ec), f = null),
        RTValue.lastRef(x, x = null),
        RTValue.lastRef(y, y = null),
        $ec);
  }
View Full Code Here
47
48
49
50
51
52
53
54
55
56
57
   * f
   * This method implements the function logic of the CAL function Cal.Utilities.DirectedGraph.emptyGraph
   */
  public final RTValue f(final RTResultFunction $rootNode, final RTExecutionContext $ec) throws CALExecutorException {
    // Arguments
    RTValue $dictvarCal_Core_Prelude_Eq_46 = $rootNode.getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return
      f1S(
View Full Code Here
38
39
40
41
42
43
44
45
46
47
48
   * f
   * This method implements the function logic of the CAL function Cal.Core.Prelude.shortToInt
   */
  public final RTValue f(final RTResultFunction $rootNode, final RTExecutionContext $ec) throws CALExecutorException {
    // Arguments
    RTValue $x0$L = $rootNode.getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return f1S($x0$L.evaluate($ec).getShortValue(), $ec);
  }
View Full Code Here
38
39
40
41
42
43
44
45
46
47
48
49
   * f
   * This method implements the function logic of the CAL function Cal.Utilities.DirectedGraph.stronglyConnectedComponents
   */
  public final RTValue f(final RTResultFunction $rootNode, final RTExecutionContext $ec) throws CALExecutorException {
    // Arguments
    RTValue graph = $rootNode.getArgValue();
    RTValue $dictvarCal_Core_Prelude_Eq_50 =
      $rootNode.prevArg().getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return
View Full Code Here
TOP

Related Classes of org.openquark.cal.internal.runtime.lecc.RTValue

  • org.openquark.cal.internal.runtime.lecc.functions.RTArbitraryRecordPrimitive
  • org.openquark.cal.internal.runtime.lecc.functions.RTBuildListPrimitive
  • org.openquark.cal.internal.runtime.lecc.functions.RTBuildRecordPrimitive
  • org.openquark.cal.internal.runtime.lecc.functions.RTCoArbitraryRecordPrimitive
  • org.openquark.cal.internal.runtime.lecc.functions.RTCompareRecord
  • org.openquark.cal.internal.runtime.lecc.functions.RTEqualsRecord
  • org.openquark.cal.internal.runtime.lecc.functions.RTNotEqualsRecord
  • org.openquark.cal.internal.runtime.lecc.functions.RTRecordFromJListPrimitive
  • org.openquark.cal.internal.runtime.lecc.functions.RTRecordFromJMapPrimitive
  • org.openquark.cal.internal.runtime.lecc.functions.RTShowRecord
    • 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.