mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-07 07:30:23 +03:00
Parvo compiles; hoon with ++wa fixes.
This commit is contained in:
C. Guy Yarvin
parent
fb961dc90e
commit
714b753f24
@ -9566,20 +9566,21 @@
|
|||||||
=* key [%keep [[%& 2] ~] [[[%& 6] ~] [%$ 3]] ~]
|
=* key [%keep [[%& 2] ~] [[[%& 6] ~] [%$ 3]] ~]
|
||||||
=^ dor +>+<.$ (slap vax [%limb nam])
|
=^ dor +>+<.$ (slap vax [%limb nam])
|
||||||
=^ mes +>+<.$ (slot 6 dor)
|
=^ mes +>+<.$ (slot 6 dor)
|
||||||
=^ hip ?- -.som
|
=^ hip +>+<.$
|
||||||
%& (nest p.mes p.p.som)
|
?- -.som
|
||||||
%| (nets p.mes -.p.som)
|
$& (nest p.mes p.p.som)
|
||||||
==
|
$| (nets p.mes -.p.som)
|
||||||
|
==
|
||||||
?> hip
|
?> hip
|
||||||
[p.dor q.dor(+6 +7.som)]
|
[[p.dor q.dor(+6 +7.som)] +>+<.$]
|
||||||
::
|
::
|
||||||
++ neat :: type compliance
|
++ neat :: type compliance
|
||||||
|= {typ/span som/(each vase ^)}
|
|= {typ/span som/(each vase ^)}
|
||||||
^- worm
|
^- worm
|
||||||
=^ hip +>+<.$
|
=^ hip +>+<.$
|
||||||
?- -.som
|
?- -.som
|
||||||
%& (nest typ p.p.som)
|
$& (nest typ p.p.som)
|
||||||
%| (nets typ -.p.som)
|
$| (nets typ -.p.som)
|
||||||
==
|
==
|
||||||
?> hip
|
?> hip
|
||||||
+>+<.$
|
+>+<.$
|
||||||
|
|||||||
207
sys/parv.hoon
207
sys/parv.hoon
@ -187,7 +187,7 @@
|
|||||||
?> hip
|
?> hip
|
||||||
=^ den sac (~(slot wa sac) 2 vax)
|
=^ den sac (~(slot wa sac) 2 vax)
|
||||||
=^ yat sac (~(slot wa sac) 3 vax)
|
=^ yat sac (~(slot wa sac) 3 vax)
|
||||||
=. sac (~(neat wa sac) -:!>(*duct) %& p.den)
|
=. sac (~(neat wa sac) -:!>(*duct) %& den)
|
||||||
?> hip
|
?> hip
|
||||||
=^ del sac (refine-ball yat)
|
=^ del sac (refine-ball yat)
|
||||||
[[(duct q.den) del] sac]
|
[[(duct q.den) del] sac]
|
||||||
@ -201,8 +201,7 @@
|
|||||||
=^ hex sac (~(spec wa sac) vax)
|
=^ hex sac (~(spec wa sac) vax)
|
||||||
?+ -.q.hex ~|(%bad-move !!)
|
?+ -.q.hex ~|(%bad-move !!)
|
||||||
$give
|
$give
|
||||||
=. sac (~(neat wa sac) -:!>([%give *card]) %& p.hex)
|
=. sac (~(neat wa sac) -:!>([%give *card]) %& hex)
|
||||||
?> hip
|
|
||||||
::
|
::
|
||||||
:: yed: vase containing card
|
:: yed: vase containing card
|
||||||
:: hil: card as mill
|
:: hil: card as mill
|
||||||
@ -212,8 +211,7 @@
|
|||||||
[[%give hil] sac]
|
[[%give hil] sac]
|
||||||
::
|
::
|
||||||
$pass
|
$pass
|
||||||
=. sac (~(neat wa sac) -:!>([%pass *path *term *card]) %& p.hex)
|
=. sac (~(neat wa sac) -:!>([%pass *path *term *card]) %& hex)
|
||||||
?> hip
|
|
||||||
::
|
::
|
||||||
:: yed: vase containing card
|
:: yed: vase containing card
|
||||||
:: hil: card as mill
|
:: hil: card as mill
|
||||||
@ -245,7 +243,7 @@
|
|||||||
=^ hip sac (~(nell wa sac) p.tiv)
|
=^ hip sac (~(nell wa sac) p.tiv)
|
||||||
?> hip
|
?> hip
|
||||||
=^ typ sac (~(slot wa sac) 2 tiv)
|
=^ typ sac (~(slot wa sac) 2 tiv)
|
||||||
=. sac (~(neat wa sac) -:!>(*span) %& p.hex)
|
=. sac (~(neat wa sac) -:!>(*span) %& hex)
|
||||||
::
|
::
|
||||||
:: support for meta-meta-cards has been removed
|
:: support for meta-meta-cards has been removed
|
||||||
::
|
::
|
||||||
@ -347,7 +345,6 @@
|
|||||||
==
|
==
|
||||||
:: :: ++va:le
|
:: :: ++va:le
|
||||||
++ va :: vane engine
|
++ va :: vane engine
|
||||||
=, hax
|
|
||||||
|_ $: :: way: vane name, eg `%ames`
|
|_ $: :: way: vane name, eg `%ames`
|
||||||
:: vax: vane, or vane builder if `off.mal`
|
:: vax: vane, or vane builder if `off.mal`
|
||||||
::
|
::
|
||||||
@ -391,14 +388,13 @@
|
|||||||
::
|
::
|
||||||
=* kys `vase`[-:!>(*roof) sky]
|
=* kys `vase`[-:!>(*roof) sky]
|
||||||
=* sam (slop !>(now) (slop !>(eny) kys))
|
=* sam (slop !>(now) (slop !>(eny) kys))
|
||||||
=^ wok sac (~(open wa sac) vax %plow %& sam)
|
=^ wok sac.hax (~(open wa sac.hax) vax %plow %& sam)
|
||||||
|%
|
|%
|
||||||
:: :: ++doze:va-plow:va:le
|
:: :: ++doze:va-plow:va:le
|
||||||
++ doze :: next wakeup
|
++ doze :: next wakeup
|
||||||
^- (unit @da)
|
^- (unit @da)
|
||||||
=^ pro sac (~(slap wa sac) wok [%limb %doze])
|
=^ pro sac.hax (~(slap wa sac.hax) wok [%limb %doze])
|
||||||
=^ hip sac (~(nest wa sac) -:!>(*(unit @da)))
|
=. sac.hax (~(neat wa sac.hax) -:!>(*(unit @da)) %& pro)
|
||||||
?> hip
|
|
||||||
((unit @da) q.pro)
|
((unit @da) q.pro)
|
||||||
:: :: ++scry:va-plow:va:le
|
:: :: ++scry:va-plow:va:le
|
||||||
++ scry :: internal peek
|
++ scry :: internal peek
|
||||||
@ -416,9 +412,8 @@
|
|||||||
:: pro: namespace output
|
:: pro: namespace output
|
||||||
::
|
::
|
||||||
=/ yeb !>([lyc car bem])
|
=/ yeb !>([lyc car bem])
|
||||||
=^ pro sac (~(call wa sac) wok %scry %& yeb)
|
=^ pro sac.hax (~(call wa sac.hax) wok %scry %& yeb)
|
||||||
=. sac (~(neat wa sac) -:!>([*mark *vase]) %& p.pro)
|
=. sac.hax (~(neat wa sac.hax) -:!>([*mark *vase]) %& pro)
|
||||||
?> hip
|
|
||||||
::
|
::
|
||||||
:: detect unit cases
|
:: detect unit cases
|
||||||
::
|
::
|
||||||
@ -427,8 +422,8 @@
|
|||||||
::
|
::
|
||||||
:: dat: vase of [mark vase]
|
:: dat: vase of [mark vase]
|
||||||
::
|
::
|
||||||
=^ dat sac (~(slot wa sac) 7 pro)
|
=^ dat sac.hax (~(slot wa sac.hax) 7 pro)
|
||||||
`[(mark -.q.dat) +.q.dat]
|
``[(mark -.q.dat) (^ +.q.dat)]
|
||||||
:: :: ++spin:va-plow:va:le
|
:: :: ++spin:va-plow:va:le
|
||||||
++ spin :: causal action
|
++ spin :: causal action
|
||||||
|= hen/duct
|
|= hen/duct
|
||||||
@ -436,40 +431,40 @@
|
|||||||
:: fox: spinning vase
|
:: fox: spinning vase
|
||||||
::
|
::
|
||||||
=* sam !>([hen *(list move)])
|
=* sam !>([hen *(list move)])
|
||||||
=^ fox sac (~(open wa sac) vax %spin %& sam)
|
=^ fox sac.hax (~(open wa sac.hax) vax %spin %& sam)
|
||||||
|%
|
|%
|
||||||
:: :: ++abet:spin:va-plow:
|
:: :: ++abet:spin:va-plow:
|
||||||
++ abet :: integrate
|
++ abet :: integrate
|
||||||
^- {(list move) _..va}
|
^+ ..va
|
||||||
::
|
::
|
||||||
:: vom: vase of (list move)
|
:: vom: vase of (list move)
|
||||||
:: moz: actual output list (inverted order)
|
:: moz: actual output list (inverted order)
|
||||||
:: zax: new vase core
|
:: zax: new vase core
|
||||||
::
|
::
|
||||||
=^ vom sac (~(slot me sac) 13 fox)
|
=^ vom sac.hax (~(slot wa sac.hax) 13 fox)
|
||||||
=^ moz sac (~(refine-moves me sac) vom)
|
=^ moz sac.hax (~(refine-moves me sac.hax) vom)
|
||||||
=^ zax sac (~(slot me sac) 31 fox)
|
=^ zax sac.hax (~(slot wa sac.hax) 31 fox)
|
||||||
::
|
%= va-abet
|
||||||
:: save new vane core
|
vax zax
|
||||||
::
|
run.gut
|
||||||
:_ va-abet(vax zax)
|
%+ weld
|
||||||
::
|
%+ turn moz
|
||||||
:: invert raw moves
|
|= mov/move:live
|
||||||
::
|
?. ?=($pass -.q.mov) mov
|
||||||
%+ turn `(list move:live)`(flop moz)
|
::
|
||||||
::
|
:: append vane label to pass return address
|
||||||
:: append vane label to pass return address
|
::
|
||||||
::
|
mov(p.q [way p.q.mov])
|
||||||
|= mov/move:live
|
run.gut
|
||||||
?. ?=($pass -.mov) mov
|
==
|
||||||
mov(p [way p.mov])
|
|
||||||
:: :: ++call:spin:va-plow:
|
:: :: ++call:spin:va-plow:
|
||||||
++ call :: pass forward
|
++ call :: pass forward
|
||||||
|= $: :: hil: logical argument
|
|= $: :: hil: logical argument
|
||||||
::
|
::
|
||||||
hil/mill
|
hil/mill
|
||||||
==
|
==
|
||||||
=^ nex sac (~(call me sac) fox %call hil)
|
^+ ..va
|
||||||
|
=^ nex sac.hax (~(call wa sac.hax) fox %call hil)
|
||||||
abet(fox nex)
|
abet(fox nex)
|
||||||
:: :: ++take:spin:va-plow:
|
:: :: ++take:spin:va-plow:
|
||||||
++ take :: pass backward
|
++ take :: pass backward
|
||||||
@ -479,17 +474,17 @@
|
|||||||
tea/wire
|
tea/wire
|
||||||
hil/mill
|
hil/mill
|
||||||
==
|
==
|
||||||
^+ +>
|
^+ ..va
|
||||||
:: yet: return address as vase
|
:: yet: return address as vase
|
||||||
:: sam: whole sample as mill
|
:: sam: whole sample as mill
|
||||||
::
|
::
|
||||||
=/ yet !>(tea)
|
=/ yet !>(tea)
|
||||||
=/ sam ^- mill
|
=/ sam ^- mill
|
||||||
?- -.hil
|
?- -.hil
|
||||||
%& [%& (slop yet p.hil)]
|
$& [%& (slop yet p.hil)]
|
||||||
%| [%| [[%cell p.yet p.p.hil] [q.yet q.p.hil]]]
|
$| [%| [[%cell p.yet p.p.hil] [q.yet q.p.hil]]]
|
||||||
==
|
==
|
||||||
=^ nex sac (~(call me sac) fox %take sam)
|
=^ nex sac.hax (~(call wa sac.hax) fox %take sam)
|
||||||
abet(fox nex)
|
abet(fox nex)
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
@ -535,7 +530,7 @@
|
|||||||
++ warp :: arvo effect
|
++ warp :: arvo effect
|
||||||
|= {hen/duct wap/wasp}
|
|= {hen/duct wap/wasp}
|
||||||
^+ +>
|
^+ +>
|
||||||
?+ -.wap !!
|
?- -.wap
|
||||||
$what (what hen p.wap)
|
$what (what hen p.wap)
|
||||||
$whim +>(nym.rep p.wap)
|
$whim +>(nym.rep p.wap)
|
||||||
$wise +>(roy.rep p.wap)
|
$wise +>(roy.rep p.wap)
|
||||||
@ -557,7 +552,7 @@
|
|||||||
::
|
::
|
||||||
=. van.mal
|
=. van.mal
|
||||||
%- ~(run by van.mal)
|
%- ~(run by van.mal)
|
||||||
|=(vane ~(va-settle va +<))
|
|=(vase (slam +< !>(our)))
|
||||||
::
|
::
|
||||||
:: boot vanes in alphabetical order
|
:: boot vanes in alphabetical order
|
||||||
::
|
::
|
||||||
@ -565,7 +560,7 @@
|
|||||||
|- ^+ +>.^$
|
|- ^+ +>.^$
|
||||||
?~ fal +>.^$
|
?~ fal +>.^$
|
||||||
=. +>.^$ $(fal t.fal)
|
=. +>.^$ $(fal t.fal)
|
||||||
(emit [hen %pass [%$ %arvo ~] i.fal %& !>[%init ~])
|
(emit [hen %pass [%$ %arvo ~] i.fal %& !>([%init ~])])
|
||||||
:: :: ++wile:le
|
:: :: ++wile:le
|
||||||
++ wile :: mill as card
|
++ wile :: mill as card
|
||||||
|= hil/mill
|
|= hil/mill
|
||||||
@ -773,7 +768,7 @@
|
|||||||
++ call :: forward to vane
|
++ call :: forward to vane
|
||||||
|= {hen/duct way/term hil/mill}
|
|= {hen/duct way/term hil/mill}
|
||||||
^+ +>
|
^+ +>
|
||||||
abet:(call:(spin way hen) hil)
|
(call:(spin way hen) hil)
|
||||||
:: :: ++grow:le
|
:: :: ++grow:le
|
||||||
++ grow :: hardcoded prefixes
|
++ grow :: hardcoded prefixes
|
||||||
|= lay/term
|
|= lay/term
|
||||||
@ -810,79 +805,7 @@
|
|||||||
++ take
|
++ take
|
||||||
|= {hen/duct way/term tea/wire hil/mill}
|
|= {hen/duct way/term tea/wire hil/mill}
|
||||||
^+ +>
|
^+ +>
|
||||||
abet:(take:(spin way hen) tea hil)
|
(take:(spin way hen) tea hil)
|
||||||
:: :: ++velo
|
|
||||||
++ velo :: full reboot
|
|
||||||
|= $: :: hun: hoon.hoon source
|
|
||||||
:: arv: arvo.hoon source
|
|
||||||
::
|
|
||||||
hun/(unit hoof)
|
|
||||||
arv/hoof
|
|
||||||
==
|
|
||||||
^- *
|
|
||||||
::
|
|
||||||
:: compile the hoon.hoon source with the current compiler
|
|
||||||
::
|
|
||||||
~& [%hoon-compile `@p`(mug hun)]
|
|
||||||
=+ raw=(ride %noun hun)
|
|
||||||
::
|
|
||||||
:: activate the new compiler gate
|
|
||||||
::
|
|
||||||
=+ cop=.*(0 +.raw)
|
|
||||||
::
|
|
||||||
:: find the hoon version number of the new kernel
|
|
||||||
::
|
|
||||||
=+ nex=(@ .*(cop q:(~(mint ut p.raw) %noun [%limb %hoon])))
|
|
||||||
?> |(=(nex hoon) =(+(nex) hoon))
|
|
||||||
::
|
|
||||||
:: if we're upgrading language versions, recompile the compiler
|
|
||||||
::
|
|
||||||
=> ?: =(nex hoon)
|
|
||||||
[hot=`*`raw .]
|
|
||||||
~& [%hoon-compile-upgrade nex]
|
|
||||||
=+ hot=.*(cop(+< [%noun hun]) -.cop)
|
|
||||||
.(cop .*(0 +.hot))
|
|
||||||
::
|
|
||||||
:: extract the hoon core from the outer gate
|
|
||||||
::
|
|
||||||
=+ hoc=.*(cop [0 7])
|
|
||||||
::
|
|
||||||
:: compute the span of the hoon.hoon core
|
|
||||||
::
|
|
||||||
=+ hyp=-:.*(cop(+< [-.hot '+>']) -.cop)
|
|
||||||
::
|
|
||||||
:: compile arvo
|
|
||||||
::
|
|
||||||
~& [%compile-arvo `@p`(mug hyp) `@p`(mug van)]
|
|
||||||
=+ rav=.*(cop(+< [hyp van]) -.cop)
|
|
||||||
::
|
|
||||||
:: create the arvo kernel
|
|
||||||
::
|
|
||||||
=+ arv=.*(hoc +.rav)
|
|
||||||
::
|
|
||||||
:: extract the arvo core from the outer gate
|
|
||||||
::
|
|
||||||
=+ voc=.*(arv [0 7])
|
|
||||||
::
|
|
||||||
:: compute the span of the arvo.hoon core
|
|
||||||
::
|
|
||||||
=+ vip=-:.*(cop(+< [-.rav '+>']) -.cop)
|
|
||||||
::
|
|
||||||
:: entry gate: ++load for the normal case, ++come for upgrade
|
|
||||||
::
|
|
||||||
=+ gat=.*(voc +:.*(cop(+< [vip ?:(=(nex hoon) 'load' 'come')]) -.cop))
|
|
||||||
::
|
|
||||||
:: sample: [entropy actions vases]
|
|
||||||
::
|
|
||||||
=+ sam=[eny ova q.niz]
|
|
||||||
::
|
|
||||||
:: call into the new kernel
|
|
||||||
::
|
|
||||||
=+ out=.*(gat(+< sam) -.gat)
|
|
||||||
::
|
|
||||||
:: tack a reset notification onto the product
|
|
||||||
::
|
|
||||||
[[[~ %vega ~] ((list ovum) -.out)] +.out]
|
|
||||||
:: :: ++work:le
|
:: :: ++work:le
|
||||||
++ work :: main loop
|
++ work :: main loop
|
||||||
=* ken .
|
=* ken .
|
||||||
@ -949,53 +872,3 @@
|
|||||||
==
|
==
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
:: :: ::
|
|
||||||
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: (3) outer core
|
|
||||||
:: :: ::
|
|
||||||
|%
|
|
||||||
++ come
|
|
||||||
|= {@ (list ovum) pone} :: 11
|
|
||||||
^- {(list ovum) _+>}
|
|
||||||
~& %hoon-come
|
|
||||||
=^ rey +>+ (^come +<)
|
|
||||||
[rey +>.$]
|
|
||||||
++ keep |=(* (^keep ((hard {@da path}) +<))) :: 4
|
|
||||||
++ load |= {@ (list ovum) pane} :: 86
|
|
||||||
^- {(list ovum) _+>}
|
|
||||||
~& %hoon-load
|
|
||||||
=^ rey +>+ (^load +<)
|
|
||||||
[rey +>.$]
|
|
||||||
++ peek |=(* (^peek ((hard {@da path}) +<))) :: 87
|
|
||||||
++ poke |= * :: 42
|
|
||||||
^- {(list ovum) *}
|
|
||||||
=> .(+< ((hard {now/@da ovo/ovum}) +<))
|
|
||||||
=^ ova +>+ (^poke now ovo)
|
|
||||||
|- ^- {(list ovum) *}
|
|
||||||
?~ ova
|
|
||||||
[~ +>.^$]
|
|
||||||
?: ?=($verb -.q.i.ova)
|
|
||||||
$(ova t.ova, lac !lac)
|
|
||||||
?: ?=($veer -.q.i.ova)
|
|
||||||
$(ova t.ova, +>+.^$ (veer now q.i.ova))
|
|
||||||
?: ?=($velo -.q.i.ova)
|
|
||||||
(fall (velo now t.ova ({@ @} +.q.i.ova)) [~ +>.^$])
|
|
||||||
?: ?=(?($init $veal) -.q.i.ova)
|
|
||||||
=+ avo=$(ova t.ova, +>+.^$ (boot (@ +.q.i.ova)))
|
|
||||||
[[i.ova -.avo] +.avo]
|
|
||||||
?: ?=($mass -.q.i.ova)
|
|
||||||
=+ avo=$(ova t.ova)
|
|
||||||
:_ +.avo
|
|
||||||
:_ -.avo
|
|
||||||
%= i.ova
|
|
||||||
q.q
|
|
||||||
:- %userspace
|
|
||||||
:- %|
|
|
||||||
:~ hoon+`pit
|
|
||||||
zuse+`mast
|
|
||||||
hoon-cache+`p.niz
|
|
||||||
q.q.i.ova
|
|
||||||
dot+`.
|
|
||||||
==
|
|
||||||
==
|
|
||||||
=+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])
|
|
||||||
++ wish |=(* (^wish ((hard @ta) +<))) :: 20
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user