Package clojure.lang

Examples of clojure.lang.IFn.invoke()

247
248
249
250
251
252
253
254
255
256
257
        }
    }
   
    private Object promise() {
      IFn promise = clojure.java.api.Clojure.var("clojure.core", "promise");
      return promise.invoke();
    }

    private ILaunchConfiguration createLeiningenLaunchConfiguration(IProject project, boolean createInDebugMode) {
      String command =
          // Adding ccw/ccw.server for enabling ccw custom code completion, etc.
View Full Code Here
35
36
37
38
39
40
41
42
43
44
45
  @Test
  public void testSimpleFnOutofCoroutine() {
    RT.var("clojure.core", "require").invoke(Symbol.create("nginx.clojure.fns-for-test"));
//    System.out.println("rq cl :" + rq.getClass().getClassLoader());
    final IFn  fn = (IFn)RT.var("nginx.clojure.fns-for-test", "fn-out-of-coroutine").fn();
    fn.invoke(messages);
    assertEquals(4, messages.size());
    assertEquals("entering fn-out-of-coroutine", messages.get(0));
    for (int i = 0; i < 3; i++) {
      assertEquals("echo:" + i, messages.get(i+1));
    }
View Full Code Here
52
53
54
55
56
57
58
59
60
61
62
//    System.out.println("rq cl :" + rq.getClass().getClassLoader());
    final IFn  fn = (IFn)RT.var("nginx.clojure.fns-for-test", "simplefn").fn();
    Coroutine cr = new Coroutine(new Runnable() {
      @Override
      public void run() throws SuspendExecution {
        fn.invoke(messages);
      }
    });
   
    cr.resume();
    assertEquals(1, messages.size());
View Full Code Here
93
94
95
96
97
98
99
100
101
102
103
    for (int k = 0; k < 10; k++) {
      RT.var("clojure.core", "require").invoke(Symbol.create("nginx.clojure.fns-for-test"));
//      System.out.println("rq cl :" + rq.getClass().getClassLoader());
      final IFn  fn = (IFn)RT.var("nginx.clojure.fns-for-test", "coreduce-test").fn();
      ArrayList<Long> ma = new ArrayList<Long>();
      Coroutine cr = (Coroutine)fn.invoke(ma);
      cr.resume();
      for (int i = 0; i < 4; i++) {
        cr.resume();
      }
      assertEquals(25L, (Number)ma.get(0));
View Full Code Here
112
113
114
115
116
117
118
119
120
121
122
    IFn  cafn = (IFn)RT.var("nginx.clojure.fns-for-test", "ca").fn();
    IFn  cbfn = (IFn)RT.var("nginx.clojure.fns-for-test", "cb").fn();
    ArrayList<String> ma = new ArrayList<String>();
    Coroutine ca = (Coroutine) cafn.invoke(ma);
    ArrayList<String> mb = new ArrayList<String>();
    Coroutine cb = (Coroutine) cbfn.invoke(mb);
    ca.resume();
    cb.resume();
    assertTrue(ma.isEmpty());
    assertTrue(mb.isEmpty());
    ca.resume();
View Full Code Here
39
40
41
42
43
44
45
46
47
48
49
      final Map<String,Object> resp = new HashMap<String, Object>();
      System.out.println("test at i=" + i);
      Coroutine cr = new Coroutine(new Runnable() {
        @Override
        public void run() throws SuspendExecution {
          resp.putAll((Map)fn.invoke());
        }
      });
      cr.resume();
      Assert.assertEquals(0, resp.size());
      System.out.println("before resume");
View Full Code Here
65
66
67
68
69
70
71
72
73
74
75
    final IFn  fn = (IFn)RT.var("nginx.clojure.compojure-fns-for-test", "simple-handler").fn();
    final Map<String,Object> resp = new HashMap<String, Object>();
    Coroutine cr = new Coroutine(new Runnable() {
      @Override
      public void run() throws SuspendExecution {
        resp.putAll((Map)fn.invoke());
      }
    });
    cr.resume();
    Assert.assertEquals(0, resp.size());
    System.out.println("before resume");
View Full Code Here
52
53
54
55
56
57
58
59
60
61
62
    Boolean isPrepared =
        (Boolean) Util.bootSimpleFn("cascalog.logic.def", "prepared?").invoke(fn);

    if (isPrepared.booleanValue()) {
      Object res = fn.invoke(fp, call);

      if(res instanceof Map) {
        Map resmap = (Map) res;
        this.fn = (IFn) resmap.get(Keyword.intern("operate"));
        this.cleanupFn = (IFn) resmap.get(Keyword.intern("cleanup"));
View Full Code Here
32
33
34
35
36
37
38
39
40
41
42
        IFn obj = (IFn) ClojureIteratorUtils.eval(
                "(require '[clojure.string :as string])" +
                        "(fn [s] (string/upper-case s))"
        );

        String s = (String) obj.invoke("a");
        Assert.assertEquals("A", s);
    }

    @Test
    public void testEvalAllowsImports() {
View Full Code Here
43
44
45
46
47
48
49
50
51
        IFn obj = (IFn) ClojureIteratorUtils.eval(
                "(import '[java.util HashMap])" +
                        "(fn [] (HashMap.))"
        );

        HashMap m = (HashMap) obj.invoke();
        Assert.assertEquals(new HashMap(), m);
    }
}
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.