mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 11:08:45 +03:00
138 lines
3.6 KiB
Plaintext
138 lines
3.6 KiB
Plaintext
::
|
|
|%
|
|
++ test
|
|
$% [%marks ~]
|
|
[%cores p=path]
|
|
[%hoons p=path]
|
|
[%names p=path]
|
|
==
|
|
--
|
|
::
|
|
|%
|
|
++ join
|
|
|= {a/cord b/(list cord)}
|
|
?~ b ''
|
|
(rap 3 |-([i.b ?~(t.b ~ [a $(b t.b)])]))
|
|
--
|
|
::
|
|
=, gall
|
|
=, ford
|
|
=, format
|
|
|_ {bowl $~}
|
|
++ peek _~
|
|
++ report-error
|
|
|= [a=spur b=(each cage tang)] ^- tang
|
|
=/ should-fail (~(get by failing) (flop a))
|
|
?- -.b
|
|
%&
|
|
?~ should-fail ~
|
|
:~ leaf+"warn: expected failure, {<`tape`u.should-fail>}"
|
|
leaf+"warn: built succesfully"
|
|
(sell q.p.b)
|
|
==
|
|
::
|
|
%|
|
|
?^ should-fail
|
|
~[>[%failed-known `tape`(weld "TODO: " u.should-fail)]<]
|
|
(flop p.b)
|
|
==
|
|
::
|
|
++ made-a-core
|
|
|= {a/spur @uvH b/gage}
|
|
:_ +>.$
|
|
?> ?=([%tabl [(each) (each)] ~] b)
|
|
%- (slog (report-error a p.i.p.b))
|
|
=/ nex/(list spur)
|
|
=<(p ;;(,[%& %cont * p=(list spur)] q.i.p.b))
|
|
?~ nex ~&(%cores-tested ~)
|
|
[ost (build-core nex)]~
|
|
::
|
|
++ build-core
|
|
|= [a=spur b=(list spur)]
|
|
~& >> (flop a)
|
|
:^ %exec a-core+a our
|
|
%- some
|
|
^- bilk
|
|
:- now-beak
|
|
:~ %tabl
|
|
[[%core now-beak a] [%$ %cont !>(b)]]
|
|
==
|
|
::
|
|
++ poke-noun
|
|
|= a=test
|
|
:_ +>
|
|
?- -.a
|
|
%hoons ~&((list-hoons p.a) ~)
|
|
%cores [ost (build-core [- +]:(list-hoons p.a))]~
|
|
%names ~&((list-names p.a) ~)
|
|
%marks !! ::TODO restore historical handler
|
|
==
|
|
::
|
|
++ list-names
|
|
|= a/path ^- (list term)
|
|
=/ hon (list-hoons a)
|
|
%+ turn hon
|
|
|= b=spur
|
|
(join '-' (slag 1 (flop b)))
|
|
::
|
|
++ list-hoons
|
|
|= a/path ^- (list spur)
|
|
=/ sup (flop a)
|
|
~& [%findining-hoons under=a]
|
|
|- ^- (list spur)
|
|
%- zing
|
|
%+ turn
|
|
=- (sort ~(tap by -) aor)
|
|
dir:.^(arch %cy (en-beam now-beak sup))
|
|
|= [a=knot ~] ^- (list spur)
|
|
=. sup [a sup]
|
|
=/ ded (~(get by skip-completely) (flop sup))
|
|
?^ ded
|
|
~&(> [(flop sup) %skipped `tape`u.ded] ~)
|
|
?~ [fil:.^(arch %cy (en-beam now-beak [%hoon sup]))]
|
|
^$
|
|
~& (flop sup)
|
|
[sup ^$]
|
|
::
|
|
++ now-beak %_(byk r [%da now])
|
|
++ skip-completely
|
|
^~ ^- (map path tape)
|
|
%- my :~ ::TODO don't hardcode
|
|
:- /ren/test-tree "recursive"
|
|
:- /sys "generally out of scope"
|
|
::
|
|
:- /app/gh "hangs for some reason"
|
|
:- /mar/gh "hangs for some reason"
|
|
:- /app/twit "slow and/or crash"
|
|
:- /gen/twit "slow and/or crash"
|
|
:- /mar/twit "slow and/or crash"
|
|
==
|
|
::
|
|
++ failing
|
|
^~ ^- (map path tape)
|
|
%- my :~ ::TODO don't hardcode
|
|
::
|
|
:- /app/pipe "wants 'flavor:hall' to exist"
|
|
:- /gen/capitalize "wants unicode-data/txt"
|
|
::
|
|
:- /lib/down-jet/parse "// nonsense"
|
|
:- /lib/down-jet/rend "// nonsense"
|
|
:- /lib/hood/kiln "ford can't handle surs from libs"
|
|
:- /lib/sole "ford can't handle surs from libs"
|
|
:- /lib/hall "ford can't handle surs from libs"
|
|
:- /lib/twitter "ford can't handle surs from libs"
|
|
:- /ren/css "not meant to be called outside /web/pack"
|
|
:- /ren/js "not meant to be called outside /web/pack"
|
|
:- /ren/rss-xml "uses /$"
|
|
:- /ren/run "not meant to be called except on a (different) hoon file"
|
|
:- /ren/tree/body "uses ren/tree"
|
|
:- /ren/tree/head "uses /$"
|
|
:- /ren/tree/json "uses /$"
|
|
:- /ren/urb "uses ren/tree"
|
|
:- /ren/urb/tree "uses ren/tree"
|
|
:- /sys/arvo "BROKEN"
|
|
:- /sys/vane/jael "expects our"
|
|
:- /sys/vane/xmas "expects our"
|
|
==
|
|
--
|