Examples of CurrinConstr

Examples of org.asturlinux.frade.currin.program.type.CurrinConstr

36
37
38
39
40
41
42
  //evaluateSubExpr(m, action2);
  while (!action2.inHNF() ) {
      action2.evaluate(m);
  }

  m.setResult( new CurrinRef(new CurrinConstr("EMPTY", new Vector())));
    }
View Full Code Here

Examples of org.asturlinux.frade.currin.program.type.CurrinConstr

31
32
33
34
35
36
37
  char printme = ((CurrinChar)_char_to_print.getReference()).getChar();
  Logger logger = Logger.getLogger("RuntimeLogger");
  logger.debug("Primitive put char: " + printme );
  System.out.print(printme);
  System.out.flush();
  m.setResult( new CurrinRef(new CurrinConstr("EMPTY", new Vector())));
    }
View Full Code Here

Examples of org.asturlinux.frade.currin.program.type.CurrinConstr

32
33
34
35
36
37
38
  String printme = _str_to_print.print();
  Logger logger = Logger.getLogger("RuntimeLogger");
  logger.debug("Primitive put str: " + printme );
  System.out.print(printme);
  System.out.flush();
  m.setResult( new CurrinRef(new CurrinConstr("EMPTY", new Vector())));
    }
View Full Code Here

Examples of org.asturlinux.frade.currin.program.type.CurrinConstr

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
  second_op = evaluateSubExpr(m, second_op);

  Memory mem = m.getContextStack().currentContext().getMemory();

  if ( first_op.equals(second_op,mem)) {
      m.setResult(new CurrinRef(new CurrinConstr("prelude__EQ",
                   new Vector() )));

  } else {
      if ( first_op.gt(second_op) )
    m.setResult(new CurrinRef(new CurrinConstr("prelude__GT",
                 new Vector())));
      else
    m.setResult(new CurrinRef(new CurrinConstr("prelude__LT",
                 new Vector())));
  }
    }
View Full Code Here

Examples of org.asturlinux.frade.currin.program.type.CurrinConstr

25
26
27
28
29
30
31
32
33
34
35
  _memory = new Memory();

  if ( function.getNumberOfParameters() != running_params.size()) {
     
      if ( function.getName().endsWith("IO") ) {
    CurrinRef cr = new CurrinRef(new CurrinConstr("empty",
                    new Vector()));
    running_params.add(cr);
      } else
    throw new InterpreterException("ERROR: Function "
                 + function.getName()
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.