Compare commits
2 Commits
ae6ad34364
...
aba77569ac
Author | SHA1 | Date | |
---|---|---|---|
|
aba77569ac | ||
|
223823ea68 |
4
package-lock.json
generated
4
package-lock.json
generated
|
@ -1,12 +1,12 @@
|
|||
{
|
||||
"name": "@ludus/ludus-js-pure",
|
||||
"version": "0.1.15",
|
||||
"version": "0.1.16",
|
||||
"lockfileVersion": 3,
|
||||
"requires": true,
|
||||
"packages": {
|
||||
"": {
|
||||
"name": "@ludus/ludus-js-pure",
|
||||
"version": "0.1.15",
|
||||
"version": "0.1.16",
|
||||
"license": "GPL-3.0",
|
||||
"devDependencies": {
|
||||
"shadow-cljs": "^2.26.0",
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
{
|
||||
"name": "@ludus/ludus-js-pure",
|
||||
"version": "0.1.15",
|
||||
"version": "0.1.16",
|
||||
"description": "A Ludus interpreter in a pure JS function.",
|
||||
"type": "module",
|
||||
"main": "build/ludus.mjs",
|
||||
|
|
|
@ -49,15 +49,37 @@
|
|||
(set (out :draw) (post :draw))
|
||||
(-> out j/encode string))
|
||||
|
||||
(comment
|
||||
# (do
|
||||
# (comment
|
||||
(do
|
||||
(def source `
|
||||
match :foo with {
|
||||
:bar -> :baz
|
||||
:baz -> :quux
|
||||
"thing {foo}" -> "worste"
|
||||
42 -> 23
|
||||
fn strip_punctuation {
|
||||
("{x},{y}") -> strip_punctuation ("{x}{y}")
|
||||
("{x}.{y}") -> strip_punctuation ("{x}{y}")
|
||||
("{x};{y}") -> strip_punctuation ("{x}{y}")
|
||||
("{x}:{y}") -> strip_punctuation ("{x}{y}")
|
||||
("{x}?{y}") -> strip_punctuation ("{x}{y}")
|
||||
("{x}!{y}") -> strip_punctuation ("{x}{y}")
|
||||
(x) -> x
|
||||
}
|
||||
|
||||
fn trim_left {
|
||||
(" {x}") -> trim_left ("{x}")
|
||||
("\n{x}") -> trim_left ("{x}")
|
||||
("\t{x}") -> trim_left ("{x}")
|
||||
(x) -> x
|
||||
}
|
||||
|
||||
fn trim_right {
|
||||
("{x} ") -> trim_right ("{x}")
|
||||
("{x}\n") -> trim_right ("{x}")
|
||||
("{x}\t") -> trim_right ("{x}")
|
||||
(x) -> x
|
||||
}
|
||||
|
||||
fn trim (x) -> do x > trim_left > trim_right
|
||||
|
||||
trim_left ("
|
||||
foo")
|
||||
`)
|
||||
(def out (-> source
|
||||
ludus
|
||||
|
|
Loading…
Reference in New Issue
Block a user