Package net.sf.kpex.prolog

Examples of net.sf.kpex.prolog.Term

43
44
45
46
47
48
49
50
51
52
53
  @Override
  public int exec(Prog p)
  {
    String s = ((Const) getArg(0)).getName();
    int i = getIntArg(1);
    Term T;
    if (i == 0)
    {
      T = p.getBuiltins().toBuiltin(new Const(s));
    }
    else
View Full Code Here
39
40
41
42
43
44
45
46
47
48
49
  @Override
  public int exec(Prog p)
  {
    // IO.mes("<<"+getArg(0)+"\n"+p+p.getTrail().pprint());
    Source S = (Source) getArg(0);
    Term A = Const.the(S.getElement());
    // if(null==A) A=Const.NO;
    // else A=new Fun("the",A);
    // IO.mes(">>"+A+"\n"+p+p.getTrail().pprint());
    return putArg(1, A, p);
  }
View Full Code Here
38
39
40
41
42
43
44
45
46
47
48
  @Override
  public int exec(Prog p)
  {
    Sink s = (Sink) getArg(0);
    Term X = s.collect();
    if (null == X)
    {
      X = Const.NO;
    }
    else
View Full Code Here
42
43
44
45
46
47
48
49
   * @see net.sf.kpex.prolog.FunBuiltin#exec(net.sf.kpex.prolog.Prog)
   */
  @Override
  public int exec(Prog p)
  {
    Term T = new Int(java.lang.System.currentTimeMillis() - t0);
    return putArg(0, T, p);
  }
View Full Code Here
43
44
45
46
47
48
49
50
51
52
53
54
55
   * @see net.sf.kpex.prolog.FunBuiltin#exec(net.sf.kpex.prolog.Prog)
   */
  @Override
  public int exec(Prog p)
  {
    Term o = getArg(0);
    Term a = getArg(1);
    Term b = getArg(2);
    if (!(o instanceof Const) || !(a instanceof Num) || !(b instanceof Num))
    {
      IO.errmes("bad arithmetic operation (" + o + "): " + a + "," + b + "\nprog: " + p.toString());
    }
    String opname = ((Const) o).getName();
View Full Code Here
49
50
51
52
53
54
55
56
57
58
59
  @Override
  public int exec(Prog p)
  {
    Container container = (Container) ((JavaObject) getArg(0)).toObject();
    Component component = (Component) ((JavaObject) getArg(1)).toObject();
    Term Where = getArg(2);
    if (Where instanceof Const)
    {
      String direction = ((Const) Where).getName();
      container.add(direction, component);
    }
View Full Code Here
38
39
40
41
42
43
44
45
   * @see net.sf.kpex.prolog.FunBuiltin#exec(net.sf.kpex.prolog.Prog)
   */
  @Override
  public int exec(Prog p)
  {
    Term T = getArg(0).numberVars();
    return putArg(1, T, p);
  }
View Full Code Here
41
42
43
44
45
46
47
48
49
50
51
52
  @Override
  public int exec(Prog p)
  {
    Source S = (Source) getArg(0);
    // S.setPersistent(true);
    Term X = S.getElement();
    Term Xs = Const.NIL;
    if (null != X)
    {
      Xs = new LazyList(X, S, new Trail());
      p.getTrail().push(Xs);
    }
View Full Code Here
42
43
44
45
46
47
48
49
50
51
52
53
54
   */
  @Override
  public int exec(Prog p)
  {
    DataBase db = (DataBase) ((JavaObject) getArg(0)).toObject();
    Term X = getArg(1);
    // IO.mes("X==>"+X);
    String key = X.getKey();
    // IO.mes("key==>"+key);
    if (null == key)
    {
      return 0;
    }
View Full Code Here
60
61
62
63
64
65
66
67
    }
    int R = (int) (r * 255.0);
    int G = (int) (g * 255.0);
    int B = (int) (b * 255.0);
    Color C = new Color(R, G, B);
    Term ColorTerm = new JavaObject(C);
    return putArg(3, ColorTerm, p);
  }
View Full Code Here
TOP

Related Classes of net.sf.kpex.prolog.Term

  • net.sf.kpex.BlackBoard
  • net.sf.kpex.builtins.Arg
  • net.sf.kpex.builtins.AtKey
  • net.sf.kpex.builtins.Collect
  • net.sf.kpex.builtins.Compute
  • net.sf.kpex.builtins.Ctime
  • net.sf.kpex.builtins.DbAdd
  • net.sf.kpex.builtins.DbCollect
  • net.sf.kpex.builtins.DbRemove
  • net.sf.kpex.builtins.Discharge
    • 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.