urbit/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))
  --
--
=*(tree . .)