Package jp.ac.kobe_u.cs.prolog.lang

Examples of jp.ac.kobe_u.cs.prolog.lang.JavaObjectTerm

48
49
50
51
52
53
54
55
56
57
    engine.setB0();
    Term a1;
    a1 = arg1;

    a1 = a1.dereference();
    if (!a1.unify(new JavaObjectTerm(engine), engine.trail)) {
      return engine.fail();
    }
    return cont;
  }
View Full Code Here
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
  public Predicate exec(Prolog engine) {
    engine.setB0();
    Term a1;
    a1 = arg1;

    if (!a1.unify(new JavaObjectTerm(this), engine.trail)) {
      return engine.fail();
    }
    Predicate code = cont;
    int B = engine.stack.top();
    outOfScope = false;
    outOfLoop = false;
    engine.trail.add(new OutOfLoop(this));

    try {
      main_loop: while (true) {
        while (engine.exceptionRaised == 0) {
          // TODO check if this is correctly removed?
          // if (engine.control.thread == null)
          // break main_loop;
          if (outOfLoop) {
            break main_loop;
          }
          code = code.exec(engine);
        }
        switch (engine.exceptionRaised) {
        case 1: // halt/0
          break main_loop;
        case 2: // freeze/2
          throw new SystemException("freeze/2 is not supported yet");
          // Do something here
          // engine.exceptionRaised = 0 ;
          // break
        default:
          break main_loop;
        }
      }
    } catch (PrologException e) {
      if (outOfScope) {
        throw e;
      }
      engine.setException(engine.copy(e.getMessageTerm()));
      engine.cut(B);
      return engine.fail();
    } catch (Exception e) {
      if (outOfScope) {
        throw new JavaException(e);
      }
      engine.setException(new JavaObjectTerm(e));
      engine.cut(B);
      return engine.fail();
    }
    return code;
  }
View Full Code Here
117
118
119
120
121
122
123
124
          throw new RepresentationException(this, 0, "character");
        }
      }
      return cont;
    } catch (IOException e) {
      throw new TermException(new JavaObjectTerm(e));
    }
  }
View Full Code Here
115
116
117
118
119
120
121
122
          engine.trail)) {
        return engine.fail();
      }
      return cont;
    } catch (IOException e) {
      throw new TermException(new JavaObjectTerm(e));
    }
  }
View Full Code Here
101
102
103
104
105
106
107
108
109
110
111
      pArgs = ((StructureTerm) a1).args();
      jArgs = new Object[arity];
      for (int i = 0; i < arity; i++) {
        pArgs[i] = pArgs[i].dereference();
        if (!pArgs[i].isJavaObject()) {
          pArgs[i] = new JavaObjectTerm(pArgs[i]);
        }
        jArgs[i] = pArgs[i].toJava();
      }
      for (Constructor constr : constrs) {
        if (checkParameterTypes(constr.getParameterTypes(), pArgs)) {
View Full Code Here
143
144
145
146
147
148
149
150
  private Term toPrologTerm(Object obj) {
    if (Term.instanceOfTerm(obj)) {
      return (Term) obj;
    } else {
      return new JavaObjectTerm(obj);
    }
  }
View Full Code Here
116
117
118
119
120
121
122
123
          engine.trail)) {
        return engine.fail();
      }
      return cont;
    } catch (IOException e) {
      throw new TermException(new JavaObjectTerm(e));
    }
  }
View Full Code Here
109
110
111
112
113
114
115
116
      if (!a2.unify(new IntegerTerm(c), engine.trail)) {
        return engine.fail();
      }
      return cont;
    } catch (IOException e) {
      throw new TermException(new JavaObjectTerm(e));
    }
  }
View Full Code Here
50
51
52
53
54
55
56
57
58
59
60
61
62
63
    engine.setB0();
    Term a1;
    a1 = arg1;
    a1 = a1.dereference();
    if (a1.isVariable()) {
      ((VariableTerm) a1).bind(new JavaObjectTerm(engine
          .getCurrentOutput()), engine.trail);
    } else if (a1.isJavaObject()) {
      if (!a1.unify(new JavaObjectTerm(engine.getCurrentOutput()),
          engine.trail)) {
        return engine.fail();
      }
    } else {
      throw new IllegalDomainException(this, 1, "stream", a1);
View Full Code Here
119
120
121
122
123
124
125
126
  private Term toPrologTerm(Object obj) {
    if (Term.instanceOfTerm(obj)) {
      return (Term) obj;
    } else {
      return new JavaObjectTerm(obj);
    }
  }
View Full Code Here
TOP

Related Classes of jp.ac.kobe_u.cs.prolog.lang.JavaObjectTerm

  • jp.ac.kobe_u.cs.prolog.builtin.PRED_$begin_exception_1
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_$get_hash_manager_1
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_$get_stream_manager_1
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_close_2
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_current_engine_1
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_current_input_1
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_current_output_1
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_get_2
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_get_byte_2
  • jp.ac.kobe_u.cs.prolog.builtin.PRED_get_char_2
    • 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.