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

Examples of org.openquark.cal.internal.runtime.lecc.RTValue.evaluate()

139
140
141
142
143
144
145
146
147
148
149
          // Cal.Core.Prelude.Cons
          // Decompose data type to access members.
          RTValue listTail = $case1.get_tail();

          acc = (acc + 1);
          list = listTail.evaluate($ec);
          continue TRLoop;
        }

        default: {
          return
View Full Code Here
80
81
82
83
84
85
86
87
88
89
90
    RTRecordValue $recordCase1 =
      ((RTRecordValue)(java.lang.Object)accum.evaluate($ec));
    RTValue path = $recordCase1.getOrdinalFieldValue(1);
    RTValue reachesEnd = $recordCase1.getOrdinalFieldValue(2);

    if (reachesEnd.evaluate($ec).getBooleanValue()) {
      return accum;
    } else {
      return
        RTRecordValue.makeTupleRecord(
          new RTValue[] {new TYPE_List.CAL_Cons(vertexNum, path), new RTFullApp.General._2._L(Equals_Int.$instance, vertexNum, endVertexNum)});
View Full Code Here
48
49
50
51
52
53
54
55
56
57
58
    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return
      f2S(
        ((Collection)(java.lang.Object)
          javaCollection$L.evaluate($ec).getOpaqueValue()),
        RTValue.lastRef(
          elementMappingFunction,
          elementMappingFunction = null),
        $ec);
  }
View Full Code Here
45
46
47
48
49
50
51
52
53
54
55
    // 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
98
99
100
101
102
103
104
105
106
107
108
    RTRecordValue $recordCase1 =
      ((RTRecordValue)(java.lang.Object)accum.evaluate($ec));
    RTValue path = $recordCase1.getOrdinalFieldValue(1);
    RTValue isCycle = $recordCase1.getOrdinalFieldValue(2);

    if (isCycle.evaluate($ec).getBooleanValue()) {
      return accum;
    } else {
      TYPE_Maybe $case2;

      switch (($case2 = (((TYPE_Maybe)(java.lang.Object)Find_Index.$instance.f2S(new RTPartialApp._2._1(_lambda__find_Cycle_Internal__1.$instance, vertexNum), path.evaluate($ec), $ec).evaluate($ec)))).getOrdinalValue()) {
View Full Code Here
52
53
54
55
56
57
58
59
60
61
62
    // Arguments
    RTValue x$L = $rootNode.getArgValue();

    // Release the fields in the root node to open them to garbage collection
    $rootNode.clearMembers();
    return f1S(x$L.evaluate($ec).getOrdinalValue(), $ec);
  }

  /**
   * f1L
   * This method implements the function logic of the CAL function Cal.Core.Prelude.signumInt
View Full Code Here
45
46
47
48
49
50
51
52
53
54
55
    // 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
186
187
188
189
190
191
192
193
194
195
196
      RTData.CAL_Boolean.make(
        Is_Just.$instance.fUnboxed1S(
          letVar_maybeStartVertexNum.evaluate($ec),
          $ec) &&
        (Is_Just.$instance.fUnboxed1S(
          letVar_maybeEndVertexNum.evaluate($ec),
          $ec) &&
        Contains_Edge_Internal.$instance.fUnboxed4S(
          $dictvarCal_Core_Prelude_Eq_23,
          graph,
          Contains_Edge.startVertexNum$6$def_Lazy(
View Full Code Here
231
232
233
234
235
236
237
238
239
240
241
    return
      Is_Just.$instance.fUnboxed1S(
        letVar_maybeStartVertexNum.evaluate($ec),
        $ec) &&
      (Is_Just.$instance.fUnboxed1S(
        letVar_maybeEndVertexNum.evaluate($ec),
        $ec) &&
      Contains_Edge_Internal.$instance.fUnboxed4S(
        $dictvarCal_Core_Prelude_Eq_23,
        graph,
        Contains_Edge.startVertexNum$6$def_Lazy(
View Full Code Here
42
43
44
45
46
47
48
49
50
51
52
    // 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).getOrdinalValue(), $ec);
  }

  /**
   * f1L
   * This method implements the function logic of the CAL function Cal.Core.Prelude.intToDouble
View Full Code Here
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.