Пример #1
0
 public static Term execute(Process proc, Module m, Instruction i, List params) {
   Integer source1 = i.arg(1).toArg(proc).toInteger();
   Integer source2 = i.arg(2).toArg(proc).toInteger();
   Integer unit = i.arg(3).toArg(proc).toInteger();
   Integer result = source1.add(source2.multiply(unit));
   Term destination = i.arg(4);
   if (destination.isXRegister()) {
     proc.setX(destination.toRegisterIndex(), result);
     return null;
   } else {
     throw new Error("Not implemented: " + i);
   }
 }
Пример #2
0
 public static Term execute(Process proc, Module m, Instruction i, List params) {
   Tuple tuple = i.arg(0).toArg(proc).toTuple();
   List dst = i.arg(2).toList();
   while (dst.length() > 0) {
     Integer arity = dst.head().toInteger();
     dst = dst.tail();
     Term lbl = dst.head();
     if (tuple.arity() == arity.toInt()) {
       return lbl;
     }
     dst = dst.tail();
   }
   return i.arg(1);
 }
Пример #3
0
 public static Term execute(Process process, Module m, Instruction i, List params) {
   return i.arg(1);
 }