view release on metacpan or  search on metacpan

t/basic_syntax.clp  view on Meta::CPAN

(println (syntax `aa))

(let [a 1]
  (let [a 2
        b a]
    (println a)
    (println b)))

(def sender (fn [ & args] (println args)))

(#!"sender" "bbb")

(println #[abc ^{:abc "bb"} #[ccd]])

(println (match "(\\w)" "abc"))

(println (and true true))
(println (or true false))
(println (and true false))
(println (or false false))

(println (xml-name #[html]))

(require "xml")

(println ($ "#aa" #[html "aaaa" #[a ^{:id "aa"} "a"]]
  (fn [xml]
    #[b "aaa"])))

(println ($ "[id=aa]" #[html "aaaa" #[a ^{:id "aa"} "a"]]
  (fn [xml]
    #[b "aaa"])))

(println (object-id "aaa"))

(println (gen-sym "sym"))


(defmacro test-gen-sym []
  (let [s (gen-sym)]
    `(let [~s "aa"]
       (println ~s))))

(test-gen-sym)

(
(fn []
(catch (throw aaa "bbb") (fn [e] (println e)
(println (exception-label e))
(println (exception-message e))))))

((fn []
 (catch
  ((fn []
     (throw aaa "bbb")))
  (fn [e]
    (println e)))))

(println (env "PATH"))

(def c0 (coroutine
  (println "a")
  (coro-sleep)
  (println (coro-current))
  (println (coro-main))
  (println "d")))

(println "b")
(coro-resume c0)
(println "c")
(println (coro-current))
(coro-resume c0)