ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

arvo: updates neo, builds with +glass

Browse Source
This commit is contained in:
Joe Bryan 2020-01-24 10:21:56 -08:00
parent 282c4a4232
commit d17856243e
1 changed files with 68 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
pkg/arvo/neo/arvo.hoon
View File

@ -1,4 +1,3 @@
::BROKEN needs span/twig renaming at least
!: :: /sys/arvo
:: :: %reference/2
:: %arvo: arvo microkernel.
@ -23,12 +22,15 @@
eny/@uvJ :: entropy
sky/roof :: namespace
== ::
++ beam {{p/ship q/desk r/case} s/path} :: global name
++ beak {p/ship q/desk r/case} :: garnish with beak
++ card {p/@tas q/*} :: tagged event
++ case :: version
$% {$da p/@da} :: date
{$tas p/@tas} :: label
{$ud p/@ud} :: sequence
== ::
++ cask |*(a/mold (pair mark a)) :: global data
++ cave (cask maze) :: marked untyped vase
++ chip :: standard identity
$? $giv :: given name
@ -40,7 +42,10 @@
++ desk @tas :: ship desk case spur
++ dope (pair @tas @t) :: term/unicode pair
++ duct (list wire) :: causal history
++ mark @tas :: content type
++ maze {p/* q/*} :: untyped vase
++ mill (each vase milt) :: vase+metavase
++ milt {p/* q/*} :: metavase
++ ovum (pair wire card) :: input or output
++ plum (pair term noun) :: deep file
++ ruby @pG :: 64-bit passcode
@ -96,7 +101,7 @@
:: :: ::
|%
++ evil :: evolvable state
|* {span/_span twig/_twig vase/_vase} :: injected molds
|* {type/_type hoon/_hoon vase/_vase} :: injected molds
|% ::
++ ball :: arvo vane move
$% {$give p/mill} :: vane "return"
@ -136,14 +141,14 @@
++ move (pair duct ball) :: vane move
++ worm :: compiler cache
$: nes/(set ^) :: ++nest
pay/(map (pair span twig) span) :: ++play
mit/(map (pair span twig) (pair span nock)) :: ++mint
pay/(map (pair type hoon) type) :: ++play
mit/(map (pair type hoon) (pair type nock)) :: ++mint
== ::
-- ::
++ hoof @t :: hoon source file
++ live (evil) :: modern molds
++ seed (pair (unit hoof) hoof) :: hoon/arvo boot src
++ vile (evil typo twit vise) :: old molds
++ vile (evil typo hoon vise) :: old molds
++ wasp :: arvo effect
$% {$wack p/@uvJ} :: add entropy
{$what p/(list (pair path (pair term noun)))} :: reset reptile files
@ -332,7 +337,7 @@
::
:: the caller was boot logic
::
(warp nex ((hard wasp) (wile p.q.mov)))
(warp nex ;;(wasp (wile p.q.mov)))
::
:: %pass: forward move
::
@ -440,7 +445,7 @@
$wake (pike %behn now ovo)
::
?($wack $what $whom $whim $wise)
=/ wap ((hard wasp) q.ovo)
=/ wap ;;(wasp q.ovo)
=* tea `wire`[%$ %arvo ~]
=* hen `duct`[tea [p.ovo ~]]
=* mov `move:live`[hen %give %& !>(wap)]
@ -549,7 +554,7 @@
::
:: fox: spinning vase
::
=* sam !>([hen *(list move)])
=* sam !>([hen *(list move:live)])
=^ fox sac.hax (~(open wa sac.hax) vax %spin %& sam)
|%
:: :: ++abet:spin:va-plow:
@ -600,8 +605,8 @@
=/ yet !>(tea)
=/ sam ^- mill
?- -.hil
$& [%& (slop yet p.hil)]
$| [%| [[%cell p.yet p.p.hil] [q.yet q.p.hil]]]
%& [%& (slop yet p.hil)]
%| [%| [[%cell p.yet p.p.hil] [q.yet q.p.hil]]]
==
=^ nex sac.hax (~(call wa sac.hax) fox %take sam)
abet(fox nex)
@ -683,7 +688,7 @@
::
:: send vanes `[%boot ~]` card, in alphabetical order
::
=/ fal (sort (turn (~(tap by van.mal)) |=({term *} +<-)) aor)
=/ fal (sort (turn ~(tap by van.mal) |=({term *} +<-)) aor)
|- ^+ +>.^$
?~ fal +>.^$
=. +>.^$ $(fal t.fal)
@ -694,8 +699,8 @@
^- card
=. sac.hax (~(neat wa sac.hax) -:!>(*card) hil)
?- -.hil
$| ((hard card) q.p.hil)
$& ((hard card) q.p.hil)
%| ;;(card q.p.hil)
%& ;;(card q.p.hil)
==
:: :: ++wilt:le
++ wilt :: deep file as source
@ -752,11 +757,11 @@
:: print new entries
::
~? !=(~ use.dev)
[%what-old (turn (~(tap by use.dev) ~) |=({path *} +<-))]
[%what-old (turn ~(tap by use.dev) |=({path *} +<-))]
~? !=(~ new.dev)
[%what-new (~(tap in new.dev) ~)]
[%what-new ~(tap in new.dev)]
~? !=(~ use.dev)
[%what-del (turn (~(tap by del.dev) ~) |=({path *} +<-))]
[%what-del (turn ~(tap by del.dev) |=({path *} +<-))]
::
:: just adopt user changes, which have no systems impact
::
@ -799,7 +804,7 @@
:: can use the new kernel
::
run.gut :_ run.gut
`move:live`[hen %give %& !>([%what (~(tap by del.dev))])]
`move:live`[hen %give %& !>([%what ~(tap by del.dev)])]
::
:: delete kernel source file from deep
:: storage, so that install causes vane upgrade,
@ -820,7 +825,7 @@
zus/(unit hoof)
vat/(list (pair term hoof))
==
=< [lul zus (~(tap by van))]
=< [lul zus ~(tap by van)]
::
:: lul: shared structures
:: zus: shared library
@ -839,7 +844,7 @@
:: zyr: all system file replacements
:: van: accumulated upgrades
::
=/ zyr (~(tap by del.dev))
=/ zyr ~(tap by del.dev)
=| van/(map @tas hoof)
|- ^+ van
?^ zyr
@ -868,11 +873,11 @@
%- ~(gas by van)
%+ skip
^- (list (pair term hoof))
%+ turn (~(tap by van.mal))
%+ turn ~(tap by van.mal)
|= {way/term vax/vase}
[way (wilt (~(got by fat.rep) [%neo %van way ~]))]
|= {way/term src/hoof}
(~(has in van) way)
(~(has by van) way)
.
:: upgrade %lull, vane shared structures
::
@ -933,7 +938,7 @@
::
:: specialize span to actual card stem
::
=^ hex sac (~(spec wa sac) vax)
=^ hex sac (~(sped wa sac) vax)
?+ -.q.hex ~|(%bad-move !!)
$give
=. sac (~(neat wa sac) -:!>([%give *card]) %& hex)
@ -962,7 +967,7 @@
::
:: specialize span to actual card data
::
=^ hex sac (~(spec wa sac) vax)
=^ hex sac (~(sped wa sac) vax)
=^ hip sac (~(nell wa sac) p.hex)
?> hip
?. ?=($meta -.q.hex)
@ -978,12 +983,12 @@
=^ hip sac (~(nell wa sac) p.tiv)
?> hip
=^ typ sac (~(slot wa sac) 2 tiv)
=. sac (~(neat wa sac) -:!>(*span) %& hex)
=. sac (~(neat wa sac) -:!>(*type) %& hex)
::
:: support for meta-meta-cards has been removed
::
[[%| (^ q.tiv)] sac]
--
-- :: me
--
:: :: ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: (4) interface
@ -1040,7 +1045,7 @@
=/ bec ^- beak
:+ (slav %p i.t.pax)
(slav %tas i.t.t.pax)
((hard case) (slay i.t.t.t.pax))
;;(case (slay i.t.t.t.pax))
=* tyl t.t.t.t.pax
=/ nut (~(peek le now sys) lyc cyr bec tyl)
?~ nut ~
@ -1072,11 +1077,11 @@
::
:: no reboot; produce output and current core
::
$& [`(list ovum)`p.new +>.$]
%& [`(list ovum)`p.new +>.$]
::
:: reboot; produce loop result from new kernel
::
$| ~(boot le now sys)
%| ~(boot le now sys)
==
:: :: ++wish
++ wish :: compute, 20