shrub/lib/tree.hoon

/-  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))
  --
--