Skip to content

Commit 224a897

Browse files
committed
print downcased code. and other tweaks. adjust bare @ default behaviour
remove headlines in docs file. add pipe synonym to ||. add better "block names" to compiled code add visual cues to compiled code (debug)
1 parent 9d438f5 commit 224a897

File tree

12 files changed

+141
-363
lines changed

12 files changed

+141
-363
lines changed

README.md

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -194,7 +194,7 @@ Iterate a datastructure (as if with `?txpr`) and collect the matches in a new
194194

195195
### Transformer Operators - `?xpr`, `?txpr`, `?mxpr`
196196

197-
Perform operation on when pattern or condition is satisfied:
197+
Perform operation when pattern or condition is satisfied:
198198
- `(?xpr sel)`: match current value against `EXPR Selector`. Return the
199199
result if not `nil`.
200200
- `(?xpr sel hit-expr)`: match current value against `EXPR Selector`.
@@ -203,8 +203,8 @@ Perform operation on when pattern or condition is satisfied:
203203
selectors`. Evaluate `hit-expr` if not `nil`; else evaluate `miss-expr`.
204204
`_` is the matching item.
205205

206-
Recursively traverse a structure of `sequences` and `hts` and return
207-
a new value for each match:
206+
Recursively traverse a nested structure of `sequences` and `hts` and return a
207+
new value for each match:
208208
- `(?txpr sel .. tx-expr)`: recursively traverse current value and replace
209209
matches with `tx-expr`. `tx-expr` can be a function name or expression.
210210
Also traverses vectors and `ht` values.

bin/test-sh.sh

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -60,12 +60,12 @@ a='[{"v":1},{"v":1},{"v":7},{"v":100}]'
6060
r=`echo '1 x 1 x 7 x 100' |\
6161
sbcl --script ./tqn-sh.lisp -jm '(splt _ :x) int!? #((new$ :v _))'`; check;
6262

63-
a='((:V . 1))
64-
((:V . 3))'
63+
a='((:v . 1))
64+
((:v . 3))'
6565
r=`echo '1 x 3 x ' |\
6666
sbcl --script ./tqn-sh.lisp '(splt _ :x) int!? [is?] #((new$ :v _))'`; check;
6767

68-
a='#(((:V . 1)) ((:V . 1)) ((:V . 7)) ((:V . 100)))'
68+
a='#(((:v . 1)) ((:v . 1)) ((:v . 7)) ((:v . 100)))'
6969
r=`echo '1 x 1 x 7 x 100' |\
7070
sbcl --script ./tqn-sh.lisp -lm '(splt _ :x) int!? #((new$ :v _))'`; check;
7171

@@ -86,7 +86,7 @@ r=`echo '1 2' | sbcl --script ./jqn-sh.lisp -t '_'`; check;
8686
a='{"_id":1}'
8787
r=`echo '{"_id": 1}' | sbcl --script ./jqn-sh.lisp -jm '{:_id}'`; check;
8888

89-
a='((:_ID . 1))'
89+
a='((:_id . 1))'
9090
r=`echo '{"_id": 1}' | sbcl --script ./jqn-sh.lisp -lm '{:_id}'`; check;
9191

9292
a='{"_id":"65679","things":[{"id":10}]}

0 commit comments

Comments
 (0)