mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
Delete more apps and update the test app
This commit is contained in:
parent
8837dc8293
commit
2c4e537b72
@ -1,78 +0,0 @@
|
|||||||
|%
|
|
||||||
++ results (map mark (each vase tang))
|
|
||||||
++ show-results
|
|
||||||
=, format
|
|
||||||
|= a/results ^- json
|
|
||||||
:- %o
|
|
||||||
%- ~(run by a)
|
|
||||||
|= b/(each vase tang)
|
|
||||||
?- -.b
|
|
||||||
%& (tape:enjs (text p.b))
|
|
||||||
%| (tape:enjs (of-wall (wush 160 (flop p.b))))
|
|
||||||
==
|
|
||||||
++ wush
|
|
||||||
|= {wid/@u tan/tang} ^- wall
|
|
||||||
(zing (turn tan |=(a/tank (wash 0^wid a))))
|
|
||||||
--
|
|
||||||
::
|
|
||||||
=, gall
|
|
||||||
=, ford
|
|
||||||
|_ {bowl ~}
|
|
||||||
++ peek _~
|
|
||||||
++ peer-scry-x
|
|
||||||
|= path
|
|
||||||
[[ost %exec /all-marks our `build-marks]~ +>]
|
|
||||||
::
|
|
||||||
++ made-all-marks
|
|
||||||
|= {path @uvH a/gage}
|
|
||||||
:_ +>.$
|
|
||||||
?> ?=($tabl -.a)
|
|
||||||
=; res/results
|
|
||||||
[ost %diff [%json (show-results res)]]~
|
|
||||||
%- malt
|
|
||||||
%+ turn p.a
|
|
||||||
|= {k/gage v/gage} ^- {mark (each vase tang)}
|
|
||||||
:- ?>(?=({%& $mark * @tas} k) q.q.p.k)
|
|
||||||
?- -.v
|
|
||||||
$tabl !!
|
|
||||||
%& [%& q.p.v]
|
|
||||||
%| v
|
|
||||||
==
|
|
||||||
::
|
|
||||||
++ build-marks
|
|
||||||
^- {beak silk}
|
|
||||||
:- now-beak
|
|
||||||
:- %tabl
|
|
||||||
%+ turn (weld list-marks list-sub-marks)
|
|
||||||
|= {a/mark ~} ^- {silk silk}
|
|
||||||
:- [%$ %mark !>(a)]
|
|
||||||
[%bunt a]
|
|
||||||
::
|
|
||||||
++ poke-noun
|
|
||||||
|= *
|
|
||||||
~& have+list-marks
|
|
||||||
`+>
|
|
||||||
::
|
|
||||||
++ now-beak %_(byk r [%da now])
|
|
||||||
++ list-marks
|
|
||||||
=, space:userlib
|
|
||||||
=, format
|
|
||||||
=+ .^(arch %cy (en-beam now-beak /mar))
|
|
||||||
%+ skim ~(tap by dir)
|
|
||||||
|= {a/mark ~}
|
|
||||||
?=(^ (file (en-beam now-beak /hoon/[a]/mar)))
|
|
||||||
::
|
|
||||||
++ list-sub-marks
|
|
||||||
=, space:userlib
|
|
||||||
=, format
|
|
||||||
^- (list {mark ~})
|
|
||||||
%- zing ^- (list (list {mark ~}))
|
|
||||||
=/ top .^(arch %cy (en-beam now-beak /mar))
|
|
||||||
%+ turn ~(tap by dir.top)
|
|
||||||
|= {sub/knot ~}
|
|
||||||
=+ .^(arch %cy (en-beam now-beak /[sub]/mar))
|
|
||||||
%+ murn ~(tap by dir)
|
|
||||||
|= {a/mark ~} ^- (unit {mark ~})
|
|
||||||
?~ (file (en-beam now-beak /hoon/[a]/[sub]/mar)) ~
|
|
||||||
`[(rap 3 sub '-' a ~) ~]
|
|
||||||
--
|
|
@ -159,8 +159,6 @@
|
|||||||
:- /ren/run "not meant to be called except on a (different) hoon file"
|
:- /ren/run "not meant to be called except on a (different) hoon file"
|
||||||
:- /ren/collections "temporarily disabled"
|
:- /ren/collections "temporarily disabled"
|
||||||
:- /ren/test-gen "temporarily disabled"
|
:- /ren/test-gen "temporarily disabled"
|
||||||
:- /ren/tree/index "temporarily disabled"
|
|
||||||
:- /ren/tree/elem "temporarily disabled"
|
|
||||||
:- /ren/urb "temporarily disabled"
|
:- /ren/urb "temporarily disabled"
|
||||||
:- /ren/x-urb "temporarily disabled"
|
:- /ren/x-urb "temporarily disabled"
|
||||||
:- /ren/x-htm "temporarily disabled"
|
:- /ren/x-htm "temporarily disabled"
|
||||||
@ -174,21 +172,7 @@
|
|||||||
^~ ^- (map path tape)
|
^~ ^- (map path tape)
|
||||||
%- my :~ ::TODO don't hardcode
|
%- my :~ ::TODO don't hardcode
|
||||||
::
|
::
|
||||||
:- /app/pipe "wants 'flavor:hall' to exist"
|
|
||||||
:- /app/mark-dashboard "wants old ford"
|
|
||||||
:- /app/static "wants old ford"
|
|
||||||
:- /gen/capitalize "wants unicode-data/txt"
|
:- /gen/capitalize "wants unicode-data/txt"
|
||||||
::
|
|
||||||
:- /app/twit "depends on sur/twitter"
|
|
||||||
:- /gen/twit/as "depends on sur/twitter"
|
|
||||||
:- /gen/twit/feed "depends on sur/twitter"
|
|
||||||
:- /mar/twit/cred "depends on sur/twitter"
|
|
||||||
:- /mar/twit/feed "depends on sur/twitter"
|
|
||||||
:- /mar/twit/post "depends on sur/twitter"
|
|
||||||
:- /mar/twit/req "depends on sur/twitter"
|
|
||||||
:- /mar/twit/usel "depends on sur/twitter"
|
|
||||||
:- /lib/twitter "depends on sur/twitter"
|
|
||||||
:- /sur/twitter "crashes with new type system"
|
|
||||||
::
|
::
|
||||||
:- /gen/al "compiler types out-of-date"
|
:- /gen/al "compiler types out-of-date"
|
||||||
:- /gen/musk "compiler types out-of-date"
|
:- /gen/musk "compiler types out-of-date"
|
||||||
|
@ -1,19 +0,0 @@
|
|||||||
::
|
|
||||||
:::: /hoon/time/app
|
|
||||||
::
|
|
||||||
/? 310
|
|
||||||
|%
|
|
||||||
++ card {$wait wire @da}
|
|
||||||
--
|
|
||||||
|_ {bowl:gall ~}
|
|
||||||
++ poke-noun
|
|
||||||
|= *
|
|
||||||
:_ +>.$ :_ ~
|
|
||||||
[ost %wait /(scot %da now) +(now)]
|
|
||||||
::
|
|
||||||
++ wake
|
|
||||||
|= {wir/wire ~}
|
|
||||||
?> ?=({@ ~} wir)
|
|
||||||
~& [%took `@dr`(sub now (slav %da i.wir))]
|
|
||||||
[~ +>.$]
|
|
||||||
--
|
|
Loading…
Reference in New Issue
Block a user