33eff7c7d8
Rename src/jolt -> stdlib (the runtime-loaded layer; jolt-core stays the seed-baked layer) and update the loader / emit-image / doc paths. Drop dead code: the spike/ experiments, the duplicate clojuredocs-export.edn (json moves to tools/), the Janet-era jolt.http binding, and the orphaned persistent_vector.clj whose ns/path didn't even match. Strip porting residue from comments and docstrings across host/chez, jolt-core, stdlib, tests, and docs: internal issue ids, "Phase N" markers, and the "vs Janet" historical exposition, leaving present-tense descriptions and the real JVM-Clojure semantic contrasts. Same pass over the corpus suite labels. The seed is unchanged (docstrings/comments aren't emitted), so the self-host fixpoint and corpus are untouched. Port tools/spec_coverage.py off the dead janet probe to bin/joltc and regenerate coverage.md; drop the dead :host/janet rule from certify.clj and regenerate the conformance profile. Add docs/host-interop.md (the JVM shims and how to register your own host class from a library) and a writing-style note in CLAUDE.md. Stabilize the four racy concurrency corpus cases (future-cancel and agent send/send-off): give the future a sleeping body and the agent a slow action, so cancel reliably catches an in-flight future and deref reliably reads the pre-update snapshot. They certify deterministically now, so drop their :flaky allowlist entries and the orphaned legend.
83 lines
2.4 KiB
Clojure
83 lines
2.4 KiB
Clojure
; Jolt Standard Library: clojure.set
|
|
; Set operations. Note: no & rest arities (evaluator limitation).
|
|
|
|
(defn union
|
|
([s1] s1)
|
|
([s1 s2] (reduce conj s2 s1)))
|
|
|
|
(defn intersection
|
|
([s1] s1)
|
|
([s1 s2]
|
|
(reduce (fn [acc item] (if (contains? s2 item) acc (disj acc item))) s1 s1)))
|
|
|
|
(defn difference
|
|
([s1] s1)
|
|
([s1 s2] (reduce disj s1 s2)))
|
|
|
|
(defn select
|
|
[pred s]
|
|
(reduce (fn [acc item] (if (pred item) acc (disj acc item))) s s))
|
|
|
|
(defn project
|
|
[xrel ks]
|
|
(set (map #(select-keys % ks) xrel)))
|
|
|
|
(defn rename-keys
|
|
[map kmap]
|
|
(reduce (fn [m [old new]]
|
|
(if (contains? map old)
|
|
(assoc m new (get map old))
|
|
m))
|
|
(apply dissoc map (keys kmap))
|
|
kmap))
|
|
|
|
(defn map-invert
|
|
[m]
|
|
(reduce (fn [acc [k v]] (assoc acc v k)) {} m))
|
|
|
|
(defn rename
|
|
[xrel kmap]
|
|
(set (map (fn [m]
|
|
(reduce (fn [acc [old new]] (if (contains? m old) (assoc acc new (get m old)) acc))
|
|
(apply dissoc m (keys kmap)) kmap)) xrel)))
|
|
|
|
(defn index
|
|
[xrel ks]
|
|
(reduce (fn [m x] (let [ik (select-keys x ks)] (assoc m ik (conj (get m ik #{}) x)))) {} xrel))
|
|
|
|
(defn join
|
|
"When passed 2 rels, returns the rel corresponding to the natural join.
|
|
When passed an additional keymap, joins on the corresponding keys."
|
|
([xrel yrel]
|
|
(if (and (seq xrel) (seq yrel))
|
|
(let [ks (intersection (set (keys (first xrel))) (set (keys (first yrel))))
|
|
[r s] (if (<= (count xrel) (count yrel)) [xrel yrel] [yrel xrel])
|
|
idx (index r ks)]
|
|
(reduce (fn [ret x]
|
|
(let [found (idx (select-keys x ks))]
|
|
(if found
|
|
(reduce (fn [acc y] (conj acc (merge y x))) ret found)
|
|
ret)))
|
|
#{} s))
|
|
#{}))
|
|
([xrel yrel km]
|
|
(let [[r s k] (if (<= (count xrel) (count yrel))
|
|
[xrel yrel (map-invert km)]
|
|
[yrel xrel km])
|
|
idx (index r (vals k))]
|
|
(reduce (fn [ret x]
|
|
(let [found (idx (rename-keys (select-keys x (keys k)) k))]
|
|
(if found
|
|
(reduce (fn [acc y] (conj acc (merge y x))) ret found)
|
|
ret)))
|
|
#{} s))))
|
|
|
|
(defn subset?
|
|
[set1 set2]
|
|
(and (<= (count set1) (count set2))
|
|
(every? #(contains? set2 %) set1)))
|
|
|
|
(defn superset?
|
|
[set1 set2]
|
|
(and (>= (count set1) (count set2))
|
|
(every? #(contains? set1 %) set2)))
|