Package org.asturlinux.frade.currin.program.type

Examples of org.asturlinux.frade.currin.program.type.CurrinRef.evaluate()

28
29
30
31
32
33
34
35
36
37
38
  logger.debug("Primitive 62 62 ");

  CurrinRef action1 = (CurrinRef)_param_refs.get(0);
  //evaluateSubExpr(m, action1);
  while (!action1.inHNF() ) {
      action1.evaluate(m);
  }
  CurrinRef action2 = (CurrinRef)_param_refs.get(1);
  //evaluateSubExpr(m, action2);
  while (!action2.inHNF() ) {
      action2.evaluate(m);
View Full Code Here
33
34
35
36
37
38
39
40
41
42
43
      action1.evaluate(m);
  }
  CurrinRef action2 = (CurrinRef)_param_refs.get(1);
  //evaluateSubExpr(m, action2);
  while (!action2.inHNF() ) {
      action2.evaluate(m);
  }

  m.setResult( new CurrinRef(new CurrinConstr("EMPTY", new Vector())));
    }
View Full Code Here
27
28
29
30
31
32
33
34
35
36
37
  CurrinRef first_op = (CurrinRef)_param_refs.get(0);
  CurrinRef second_op = (CurrinRef)_param_refs.get(1);

  first_op.evaluate(m);
  second_op.evaluate(m);

  int a = ((CurrinInt)first_op.getReference()).getValue();
  int b = ((CurrinInt)second_op.getReference()).getValue();

  m.setResult( new CurrinRef(new CurrinInt(a - b)));
View Full Code Here
19
20
21
22
23
24
25
26
27
28
29
  logger.debug("Running Enter instruction");
  Memory mem = m.getContextStack().currentContext().getMemory();
  CurrinRef cr = mem.getElementAt(_what);
  if ( cr == null )
      logger.debug("Chungo");
  cr.evaluate(m);
  m.setResult(cr);

    }

    public void debug() {
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.