mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
66 lines
1.5 KiB
Plaintext
66 lines
1.5 KiB
Plaintext
/- tree-include
|
|
!:
|
|
|%
|
|
++ extract
|
|
|= a+marl ^- tape
|
|
?~ a ~
|
|
%- weld :_ $(a t.a)
|
|
?. ?=(_:/(**) i.a)
|
|
$(a c.i.a)
|
|
v.i.a.g.i.a
|
|
::
|
|
++ getall
|
|
|= tag+(list mane)
|
|
|= ele+manx ^- marl
|
|
?: (lien tag |=(a+mane =(a n.g.ele)))
|
|
~[ele]
|
|
(zing (turn c.ele ..$))
|
|
::
|
|
++ baff |*({a+(unit) b+(trap)} ?^(a a *b))
|
|
++ find-in-tree
|
|
|* {paz+fist:jo fun+$+(* (unit))}
|
|
|= jon+json
|
|
=+ a=`(list json)`~[jon]
|
|
|^ (try)
|
|
++ try
|
|
|. ^+ *fun
|
|
?~ a ~
|
|
%+ biff (paz i.a)
|
|
|* {b+(list json) c+*} ^+ *fun
|
|
(baff (baff (fun c) try(a b)) try(a t.a))
|
|
--
|
|
::
|
|
++ map-to-json
|
|
|* {a+$+(* cord) b+$+(* json)}
|
|
|* c+(map) ^- json
|
|
~! c
|
|
(jobe (turn (~(tap by c)) |*({k+* v+*} [(a k) (b v)])))
|
|
::
|
|
++ json-front
|
|
|= a+json ^- json
|
|
=- (fall `(unit json)`- ~)
|
|
%. a
|
|
%+ find-in-tree (ot c/(ar some) gn/so ga/(om so) ~):jo
|
|
|= {nom+span atr+(map span cord)} ^- (unit json)
|
|
?. (~(has by atr) 'urb:front') ~
|
|
?> ?=($meta nom)
|
|
(biff (~(get by atr) %value) poja)
|
|
::
|
|
++ read-schem
|
|
=< (cook to-noun (cook to-tree apex))
|
|
|%
|
|
++ noun $@(term [noun noun]) :: shadow
|
|
++ data $@(term {n+@ l+noun r+data})
|
|
++ apex ;~(plug sym (star ;~(plug delim sym)))
|
|
++ delim ;~(pose (cold 0 dot) (cook lent (plus cab)))
|
|
++ to-noun |=(a+data ?@(a a [l.a $(a r.a)]))
|
|
++ to-tree
|
|
|= {acc+data a+(list {p+@u q+term})}
|
|
%+ roll a =< .(acc ^acc)
|
|
|= {{n+@u v+term} acc+data}
|
|
?@ acc [n acc v]
|
|
?: (gth n n.acc) [n (to-noun acc) v]
|
|
acc(r $(acc r.acc))
|
|
--
|
|
--
|