import clojure.lang.RT;
import clojure.lang.Compiler;
 
import clojure.lang.Var;
 
import java.io.IOException;
import java.io.StringReader;
 
public class SampleClojure{
	public static void main(String[] args){
		// TODO Auto-generated method stub
		// Test embed clojure
		System.out.println("Sample: Clojure");
 
		String code = "(ns user) (defn foo [a b] (str a \" -- \" b))";
		Compiler.load(new StringReader(code));
		//System.out.println(System.getProperties());
		try {
			Compiler.loadFile("src/hello.clj");
 
			Var foo = RT.var("user", "foo");
			Var koo = RT.var("user", "koo");
			Var change = RT.var("user", "change");
			Var qoo = RT.var("user", "qoo"); 
 
			Object result = foo.invoke("hi", "Albert");
			System.out.println(result);
 
			Object re = koo.invoke();
			System.out.println(re);
			change.invoke("Michael");
 
			Object re2 = koo.invoke();
			System.out.println(re2);
			qoo.invoke();
		} catch (IOException e) {
			e.printStackTrace();
		}
	}
}

(ns clj_sample.core
  (:gen-class)
  (:require [clojure.string :as string]))
 
(def sql "AND add_time>=unix_timestamp('$startTm')
          AND add_time<unix_timestamp('$endTm')
          AND add_time>=unix_timestamp('$startTm')
          AND add_time<unix_timestamp('$endTm')")
(def params [["$startTm" "2010-1-1"]
             ["$endTm" "2012-2-17"]])
 
(defn -main [& args]
  (println (reduce #(clojure.string/replace %1 (first %2) (second %2))
                   (cons sql params))))

(ns sample.core
  (:gen-class)
  (:import (
           (org.quartz CronTrigger JobDetail Scheduler SchedulerException Trigger)
           (org.quartz.impl StdSchedulerFactory)
           (org.quartz TriggerBuilder)
           (org.quartz JobBuilder)
 
           (org.quartz SimpleScheduleBuilder)
           (org.quartz CronScheduleBuilder)
           )
  )
 
;;  实际执行的任务
(defn run-import-process
  []
  (println "running import process...")) 
 
(def scheduler* (atom nil)) 
 
(deftype ImportJob []
  org.quartz.Job
  (execute [this context] (run-import-process))) 
 
(defn start-import-manager
  []
  (let [scheduler (StdSchedulerFactory/getDefaultScheduler)
        trigger (TriggerBuilder/newTrigger)
        job (JobBuilder/newJob ImportJob)] 
 
    (reset! scheduler* scheduler)
    (.scheduleJob scheduler
                  (.build (.withIdentity job "job1" "import"))
                  (.build (.withSchedule (.startNow (.withIdentity trigger "trigger 1" "import")) (CronScheduleBuilder/cronSchedule "*/3 * * * * ?"))))
 
    (.start scheduler)))
 
(defn stop-import-manager
  [& [wait?]]
  (if wait?
    (.shutdown @scheduler* true)
    (.shutdown @scheduler*))) 
 
(defn -main [& args]
   (start-import-manager))

(lambda (features)
  (flet ((enable (x)
           (pushnew x features))
         (disable (x)
           (setf features (remove x features))))
    ;; Threading support.
    (enable :sb-thread)
    (enable :SB-XREF-FOR-INTERNALS)
    (enable :sb-doc)
    (enable :sb-test)
    (enable :sb-unicode)
    (enable :sb-eval)
    (enable :sb-source-locations)
    (enable :sb-xref-for-internals)
    (enable :sb-core-compression)))

dig(0).
dig(1).
dig(2).
dig(3).
dig(4).
dig(5).
dig(6).
dig(7).
dig(8).
dig(9).
 
num_array(A, B, C, D, E, F, G):-
    A = 4, dig(B), dig(C), dig(D), dig(E), dig(F), dig(G).
 
pretty(A, B, C, D, E, F, G):-
    num_array(A, B, C, D, E, F, G),
    B is A + 1,
    C is B + 1,
    A = D,
    B = E,
    C = F.
 
pretty(A, B, C, D, E, F, G):-
    num_array(A, B, C, D, E, F, G),
    C is B + 1,
    D is C + 1,
    B = E,
    C = F,
    D = G.
pretty(A, B, C, D, E, F, G):-
    num_array(A, B, C, D, E, F, G),
    B is A - 1,
    C is B - 1,
    A = D,
    B = E,
    C = F.
 
pretty(A, B, C, D, E, F, G):-
    num_array(A, B, C, D, E, F, G),
    C is B - 1,
    D is C - 1,
    B = E,
    C = F,
    D = G.
 
main:-
    pretty(A, B, C, D, E, F, G),
    writef("%t%t%t%t%t%t%t\n", [A, B, C, D, E, F, G]),fail.