Chez Phase 1 (increment 3p): misc seq/regex gaps + bug tracking
jolt-y1zq tail:
- 0-arg (conj) -> [] and 0-arg (conj!) -> a fresh transient vector
- nth sees through a transient (like get/count/contains?)
- irregex \p{...}/\P{...} property classes translate to the seed's ASCII char
classes (regex.ss): \p{L} -> [a-zA-Z] + non-ASCII codepoints (the seed counts
UTF-8 high bytes as letters), \p{N} -> [0-9], \p{Ps} -> [([{], etc. The
translator tracks [...] nesting so a \p{} inside a class emits its content, not
a nested class.
Two pre-existing bugs found and filed (tracked, not replicated):
- jolt-x0os: the Chez emitter mangles non-ASCII string literals into invalid Chez
hex escapes (so p{L} utf-8 crashes on the input string, not the regex).
- jolt-ea9k: the seed's transient assoc! accepts odd args and assigns nil to the
trailing key (non-Clojure; plain assoc throws). The Chez host throws
(Clojure-correct); the 4 spec rows encoding the leniency are flagged in
transients-spec.janet pending the seed fix.
Parity 1493 -> 1506/2497, 0 new divergences. emit-test 291/291.
This commit is contained in:
parent
cbb0f2ab4a
commit
e51cc2e47e
7 changed files with 131 additions and 12 deletions
|
|
@ -556,6 +556,33 @@
|
|||
(ok (string "transducer -e: " src) (and (= code 0) (= out want))
|
||||
(string "chez=" out " janet=" want " | " err)))))
|
||||
|
||||
# 3u) misc seq/regex gaps (jolt-y1zq): 0-arg (conj) -> []; 0-arg (conj!) -> a
|
||||
# fresh transient vector; nth sees through a transient; and irregex \p{...} /
|
||||
# \P{...} unicode property classes translate to the seed's ASCII char classes
|
||||
# (regex.ss). Deferred: the assoc!-odd-args seed quirk (non-Clojure, trailing key
|
||||
# gets nil) and clojure.math/PI (missing ns). \p/conj!/nth run in run-prelude;
|
||||
# halt-when (overlay, exercises conj 0-arg as the transduce init) via the binary.
|
||||
(each src ["(= [] (conj))" "(= [1] (conj nil 1))"
|
||||
"(= [] (persistent! (conj!)))"
|
||||
"(= 2 (nth (transient [1 2 3]) 1))"
|
||||
"(re-matches #\"^\\p{L}+$\" \"hello\")"
|
||||
"(boolean (re-matches #\"^\\p{L}+$\" \"ab1\"))"
|
||||
"(re-seq #\"\\p{N}+\" \"a12b345\")"
|
||||
"(re-matches #\"^\\P{N}+$\" \"abc\")"
|
||||
"(re-matches #\"^\\p{Ll}\\p{Lu}$\" \"aB\")"
|
||||
"(re-matches #\"^\\p{Ps}x\\p{Pe}$\" \"(x)\")"
|
||||
# \p{} INSIDE a [...] class emits the class content, not a nested [...]
|
||||
"(= \" \" (re-matches #\"(?u)^[\\s\\p{Z}]+$\" \" \"))"]
|
||||
(let [[code out err] (run-prelude src) want (cli-oracle src)]
|
||||
(ok (string "y1zq: " src) (and (= code 0) (= out want))
|
||||
(string "chez=" out " janet=" want " | " err))))
|
||||
(when (os/stat "bin/jolt-chez")
|
||||
(each src ["(= 7 (transduce (halt-when (fn [x] (> x 5))) conj [1 2 7 3]))"
|
||||
"(= [1 2 3] (transduce (halt-when (fn [x] (> x 5))) conj [1 2 3]))"]
|
||||
(let [[code out err] (run-jolt-chez src) want (cli-oracle src)]
|
||||
(ok (string "y1zq -e: " src) (and (= code 0) (= out want))
|
||||
(string "chez=" out " janet=" want " | " err)))))
|
||||
|
||||
# 4) perf signal: emitted fib(30) in-Scheme timing (excludes Chez startup), to
|
||||
# track against the spike ceiling (hand-Scheme fib ~5ms). Informational — the
|
||||
# jolt-truthy? wrapper (~3x) and flonum modeling are known Phase-4 levers.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue