generated from calcit-lang/dylib-workflow
-
Notifications
You must be signed in to change notification settings - Fork 0
/
compact.cirru
52 lines (51 loc) · 2.02 KB
/
compact.cirru
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
{} (:package |fswatch)
:configs $ {} (:init-fn |fswatch.test/main!) (:reload-fn |fswatch.test/reload!) (:version |0.0.3)
:modules $ []
:entries $ {}
:files $ {}
|fswatch.core $ %{} :FileEntry
:defs $ {}
|fswatch! $ %{} :CodeEntry (:doc |)
:code $ quote
defn fswatch! (options cb)
&call-dylib-edn-fn (get-dylib-path "\"/dylibs/libcalcit_fswatch") "\"fswatch" options cb
:ns $ %{} :CodeEntry (:doc |)
:code $ quote
ns fswatch.core $ :require
fswatch.$meta :refer $ calcit-dirname
fswatch.util :refer $ get-dylib-path
|fswatch.test $ %{} :FileEntry
:defs $ {}
|main! $ %{} :CodeEntry (:doc |)
:code $ quote
defn main! () $ fswatch!
{} (:path "\"sandbox") (:duration 1000)
fn (event) (println event)
|reload! $ %{} :CodeEntry (:doc |)
:code $ quote
defn reload! $
|run-tests $ %{} :CodeEntry (:doc |)
:code $ quote
defn run-tests () (println "\"%%%% test for lib") (println calcit-filename calcit-dirname)
:ns $ %{} :CodeEntry (:doc |)
:code $ quote
ns fswatch.test $ :require
fswatch.core :refer $ fswatch!
fswatch.$meta :refer $ calcit-dirname calcit-filename
|fswatch.util $ %{} :FileEntry
:defs $ {}
|get-dylib-ext $ %{} :CodeEntry (:doc |)
:code $ quote
defmacro get-dylib-ext () $ case-default (&get-os) "\".so" (:macos "\".dylib") (:windows "\".dll")
|get-dylib-path $ %{} :CodeEntry (:doc |)
:code $ quote
defn get-dylib-path (p)
str (or-current-path calcit-dirname) p $ get-dylib-ext
|or-current-path $ %{} :CodeEntry (:doc |)
:code $ quote
defn or-current-path (p)
if (blank? p) "\"." p
:ns $ %{} :CodeEntry (:doc |)
:code $ quote
ns fswatch.util $ :require
fswatch.$meta :refer $ calcit-dirname calcit-filename