41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
..
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
# in turn. the array *gd-api-map* is assembled at
# compile-time and then used by the init function at
# runtime to enumerate and install the core modules.
# when core modules use a primitive, they declare their
# own *gd-api-map* which maps gensyms to the name of
# the desired primitive.
(def *gd-api-map* @{})
(defn- install [name env]
(put *gd-api-map* name env)
(when (has-key? env '*gd-api-map*)
(def gdmap (get-in env ['*gd-api-map* :value]))
(loop [[val key] :pairs gdmap
:when (safe-to-export? val)]
(def sym (symbol '-val- (bxor (hash name) (hash val))))
(put marshal-map val sym)
(put unmarshal-map sym val))
(merge-into extern-table gdmap)))
................................................................................
# macro implementations can be provided directly in janet
# and incorporated into the API image without having to
# implement anything beyond the primitive API in C
# this function is exported as part of api.jimage.
# it will be called from vm.c after initializing
# the primitive bindings
(defn init []
(print "beginning merge")
(merge-into module/cache *gd-api-map*)
(print "api loaded"))
# this is the build-time entry point, which does
# the work of assembling the modules and marshalling
# them out. it is not exported
(defn main [_ out-path]
(def env @{})
(each sym '[init marshal-map unmarshal-map]
(put env sym ((curenv) sym)))
(let [blob (marshal env extern-table)]
(with [fd (file/open out-path :w)]
(:write fd blob)))
0)
|
>
>
>
>
>
>
|
>
>
>
>
<
>
>
|
|
>
>
|
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
..
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
# in turn. the array *gd-api-map* is assembled at
# compile-time and then used by the init function at
# runtime to enumerate and install the core modules.
# when core modules use a primitive, they declare their
# own *gd-api-map* which maps gensyms to the name of
# the desired primitive.
(def *gd-api-map* @{})
(defn- dict-filter [pred dict]
(def d @{})
(loop [[k v] :pairs dict]
(when (pred k v)
(put d k v)))
d)
(defn- install [name env-raw]
(def env (dict-filter
|(and (table? $1)
(not ($1 :private)))
env-raw))
(put *gd-api-map* name env)
(when-let [b (get env '*gd-api-ext*)
ok (table? b)]
(def gdmap (get-in env ['*gd-api-ext* :value]))
(loop [[val key] :pairs gdmap
:when (safe-to-export? val)]
(def sym (symbol '-val- (bxor (hash name) (hash val))))
(put marshal-map val sym)
(put unmarshal-map sym val))
(merge-into extern-table gdmap)))
................................................................................
# macro implementations can be provided directly in janet
# and incorporated into the API image without having to
# implement anything beyond the primitive API in C
# this function is exported as part of api.jimage.
# it will be called from vm.c after initializing
# the primitive bindings
(defn init [core-env]
(print "beginning merge")
(merge-into module/cache *gd-api-map*)
(print "loaded modules, forcing imports")
(merge-into core-env (get *gd-api-map* "core"))
(print "api loaded"))
# this is the build-time entry point, which does
# the work of assembling the modules and marshalling
# them out. it is not exported
(defn main [_ out-path]
(def env @{})
(each sym '[init marshal-map unmarshal-map]
(put env sym ((curenv) sym)))
(let [blob (marshal env extern-table)]
(with [fd (file/open out-path :w)]
(:write fd blob)))
0)
|