mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
28 lines
706 B
Plaintext
28 lines
706 B
Plaintext
!:
|
|
:: /=main=/bin/install/hoon
|
|
::
|
|
=> .(-< `who=@p`-<)
|
|
|= [est=time eny=@uw]
|
|
|= ~
|
|
^- bowl
|
|
?: =(~zod who) [~ ~]
|
|
=+ bos==+(bos=(sein who) ?.(=(bos who) bos ~zod))
|
|
=+ ^= syn ^- (list ,@tas)
|
|
[%main %arvo %try ~]
|
|
:_ ~
|
|
^- (list gift)
|
|
:- [%la %leaf "updating..."]
|
|
%+ turn syn
|
|
|= des=@tas
|
|
~& [%awaiting bos]
|
|
=+ der=((hard dome) .^(%cv /(scot %p bos)/[des]/=))
|
|
~& [%awaiting who]
|
|
=+ owr=((hard dome) .^(%cv /(scot %p who)/[des]/=))
|
|
=+ sab=`saba`[bos des [0 let.der] (flop (turn hit.der |=(a=frog q.a)))]
|
|
=+ lum=(~(auld ze est owr) est %fine sab)
|
|
?~ lum
|
|
`gift`[%la %leaf "{(trip des)} failed to merge"]
|
|
?~ u.lum
|
|
`gift`[%la %leaf "{(trip des)} is up to date"]
|
|
`gift`[%ok des u.u.lum]
|