mirror of
https://github.com/urbit/shrub.git
synced 2024-11-29 14:57:12 +03:00
50782bd1c9
* research-constitution: (120 commits) removes obsolete doccords-style comments Revert "fixy uno~by, other vor-based code duplication" Implement argon2. Use face over lark when available. Implement blake2b. Use ++rep over ++can when we can Use ++rev over ++swp, for safety. Clean up base58 en/decoding Rename secp point serialization arms Add HMAC-SHA1 Put +=byts to use Restructure and complete BIP32 core Fix bug in RIPEMD-160 implementation. BIP32 key derivation logic. Messy, in dire need of restructuring. Fix bug in HMAC implementation. SHA-1 re-implementation, can account for leading zeroes. Converting points on curve to un/compressed numbers. RIPEMD-160 implementation. Start work on BIP32 support. Library file includes wrappers for the SHA family to make it take and produce sane byte order data, and a new HMAC implementation that depends on it. Also includes @belisarius222's secp256k1 implementation, plus experimental (and broken) support for other secp variants. Add ++rev to bit arithmetic, for reversing block order while accounting for leading zeroes. ...
637 lines
24 KiB
Plaintext
637 lines
24 KiB
Plaintext
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
|
:::::: :::::: Postface ::::::
|
|
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
|
=> +7
|
|
~> %slog.[0 leaf+"%arvo-assembly"]
|
|
=- ~> %slog.[0 leaf+"%arvo-assembled"]
|
|
-
|
|
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
|
:::::: :::::: volume 3, Arvo models and skeleton ::::::
|
|
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
|
=>
|
|
|%
|
|
++ arch {fil/(unit @uvI) dir/(map @ta $~)} :: fundamental node
|
|
++ arvo (wind {p/term q/mill} mill) :: arvo card
|
|
++ beam {{p/ship q/desk r/case} s/path} :: global name
|
|
++ beak {p/ship q/desk r/case} :: garnish with beak
|
|
++ bone @ud :: opaque duct
|
|
++ case :: version
|
|
$% {$da p/@da} :: date
|
|
{$tas p/@tas} :: label
|
|
{$ud p/@ud} :: sequence
|
|
== ::
|
|
++ desk @tas :: ship desk case spur
|
|
++ cage (cask vase) :: global metadata
|
|
++ cask |*(a/mold (pair mark a)) :: global data
|
|
++ cuff :: permissions
|
|
$: p/(unit (set monk)) :: can be read by
|
|
q/(set monk) :: caused or created by
|
|
== ::
|
|
++ curd {p/@tas q/*} :: typeless card
|
|
++ duct (list wire) :: causal history
|
|
++ hypo |*(a/mold (pair type a)) :: type associated
|
|
++ hobo |* a/mold :: kiss wrapper
|
|
$? $% {$soft p/*} ::
|
|
== ::
|
|
a ::
|
|
== ::
|
|
++ kirk (unit (set monk)) :: audience
|
|
++ lens :: observation core
|
|
$_ ^? ::
|
|
|% ++ u *(unit (unit $~)) :: existence
|
|
++ v *(unit (unit cage)) :: full history
|
|
++ w *(unit (unit (unit cage))) :: latest diff
|
|
++ x *(unit (unit cage)) :: data at path
|
|
++ y *(unit (unit arch)) :: directory
|
|
++ z *(unit (unit cage)) :: current subtree
|
|
-- ::
|
|
++ marc :: structured mark
|
|
$@ mark :: plain mark
|
|
$% {$tabl p/(list (pair marc marc))} :: map
|
|
== ::
|
|
++ mark @tas :: content type
|
|
++ mash |=(* (mass +<)) :: producing mass
|
|
++ mass $~ [%$ [%& ~]] :: memory usage
|
|
(pair cord (each noun (list mash))) ::
|
|
++ mill (each vase milt) :: vase+metavase
|
|
++ milt {p/* q/*} :: metavase
|
|
++ monk (each ship {p/@tas q/@ta}) :: general identity
|
|
++ muse {p/@tas q/duct r/arvo} :: sourced move
|
|
++ move {p/duct q/arvo} :: arvo move
|
|
++ ovum {p/wire q/curd} :: typeless ovum
|
|
++ pane (list {p/@tas q/vase}) :: kernel modules
|
|
++ pone (list {p/@tas q/vise}) :: kernel modules old
|
|
++ ship @p :: network identity
|
|
++ sink (trel bone ship path) :: subscription
|
|
++ sley $- {* (unit (set monk)) term beam} :: namespace function
|
|
(unit (unit cage)) ::
|
|
++ slyd $- {* (unit (set monk)) term beam} :: super advanced
|
|
(unit (unit (cask))) ::
|
|
++ slyt $-({* *} (unit (unit))) :: old namespace
|
|
++ vile :: reflexive constants
|
|
$: typ/type :: -:!>(*type)
|
|
duc/type :: -:!>(*duct)
|
|
pah/type :: -:!>(*path)
|
|
mev/type :: -:!>([%meta *vase])
|
|
== ::
|
|
++ wind :: new kernel action
|
|
|* {a/mold b/mold} :: forward+reverse
|
|
$% {$pass p/path q/a} :: advance
|
|
{$slip p/a} :: lateral
|
|
{$give p/b} :: retreat
|
|
== ::
|
|
++ wire path :: event pretext
|
|
--
|
|
=>
|
|
~% %hex +> ~
|
|
|%
|
|
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
|
:: section 3bE, Arvo core ::
|
|
::
|
|
++ sloy
|
|
!:
|
|
|= sod/slyd
|
|
^- slyt
|
|
|= {ref/* raw/*}
|
|
=+ pux=((soft path) raw)
|
|
?~ pux ~
|
|
?. ?=({@ @ @ @ *} u.pux) ~
|
|
=+ :* hyr=(slay i.u.pux)
|
|
fal=(slay i.t.u.pux)
|
|
dyc=(slay i.t.t.u.pux)
|
|
ved=(slay i.t.t.t.u.pux)
|
|
tyl=t.t.t.t.u.pux
|
|
==
|
|
?. ?=({$~ $$ $tas @} hyr) ~
|
|
?. ?=({$~ $$ $p @} fal) ~
|
|
?. ?=({$~ $$ $tas @} dyc) ~
|
|
?. ?=(^ ved) ~
|
|
=+ ron=q.p.u.hyr
|
|
=+ bed=[[q.p.u.fal q.p.u.dyc (case p.u.ved)] (flop tyl)]
|
|
=+ bop=(sod ref ~ ron bed)
|
|
?~ bop ~
|
|
?~ u.bop [~ ~]
|
|
[~ ~ +.q.u.u.bop]
|
|
::
|
|
++ vent :: vane core
|
|
|= {lal/@tas vil/vile bud/vase sew/(pair worm vase)}
|
|
~% %vent +>+ ~
|
|
|%
|
|
++ ruck :: update vase
|
|
|= {pax/path txt/@ta}
|
|
^+ +>
|
|
=- ?:(?=(%| -.res) ((slog p.res) +>.$) p.res)
|
|
^= res %- mule |.
|
|
=+ arg=[~2000.1.1 0 =>(~ |~(* ~))]
|
|
=+ rig=(slym q.sew arg)
|
|
=+ gen=(rain pax txt)
|
|
=+ rev=(slym (slap bud gen) bud)
|
|
=+ syg=(slym rev arg)
|
|
~| %load-lost
|
|
+>.^$(q.sew (slam (slap syg [%limb %load]) (slap rig [%limb %stay])))
|
|
::
|
|
++ wink :: deploy
|
|
|= {now/@da eny/@ ski/slyd}
|
|
=+ rig=(slym q.sew +<) :: activate vane
|
|
~% %wink +>+> ~
|
|
|%
|
|
++ doze
|
|
|= {now/@da hen/duct}
|
|
^- (unit @da)
|
|
((hard (unit @da)) q:(slym (slap rig [%limb %doze]) +<))
|
|
::
|
|
++ slid
|
|
|= {hed/mill tal/mill}
|
|
^- mill
|
|
?: &(?=(%& -.hed) ?=(%& -.tal))
|
|
[%& (slop p.hed p.tal)]
|
|
[%| [%cell p.p.hed p.p.tal] [q.p.hed q.p.tal]]
|
|
::
|
|
++ slix
|
|
|= hil/mill
|
|
^- mill
|
|
?- -.hil
|
|
%& [%& (slop [typ.vil p.p.hil] p.hil)]
|
|
%| [%| [%cell typ.vil p.p.hil] p.hil]
|
|
==
|
|
::
|
|
++ slur :: call gate on
|
|
|= {gat/vase hil/mill}
|
|
^- (unit (pair vase worm))
|
|
=+ sam=(slot 6 gat)
|
|
=+ ^= hig
|
|
?- -.hil
|
|
%& (~(nest wa p.sew) p.sam p.p.hil)
|
|
%| (~(nets wa p.sew) p.sam p.p.hil)
|
|
==
|
|
?.(-.hig ~ `[(slym gat +>.hil) +.hig])
|
|
::
|
|
++ slur-a ~/(%slur-a |=({gat/vase hil/mill} =+(%a (slur gat hil))))
|
|
++ slur-b ~/(%slur-b |=({gat/vase hil/mill} =+(%b (slur gat hil))))
|
|
++ slur-c ~/(%slur-c |=({gat/vase hil/mill} =+(%c (slur gat hil))))
|
|
++ slur-d ~/(%slur-d |=({gat/vase hil/mill} =+(%d (slur gat hil))))
|
|
++ slur-e ~/(%slur-e |=({gat/vase hil/mill} =+(%e (slur gat hil))))
|
|
++ slur-f ~/(%slur-f |=({gat/vase hil/mill} =+(%f (slur gat hil))))
|
|
++ slur-g ~/(%slur-g |=({gat/vase hil/mill} =+(%g (slur gat hil))))
|
|
++ slur-j ~/(%slur-j |=({gat/vase hil/mill} =+(%j (slur gat hil))))
|
|
++ slur-z ~/(%slur-z |=({gat/vase hil/mill} =+(%z (slur gat hil))))
|
|
::
|
|
++ slur-pro :: profiling slur
|
|
~/ %slur-pro
|
|
|= {lal/@tas gat/vase hil/mill}
|
|
?+ lal (slur-z gat hil)
|
|
$a (slur-a gat hil)
|
|
$b (slur-b gat hil)
|
|
$c (slur-c gat hil)
|
|
$d (slur-d gat hil)
|
|
$e (slur-e gat hil)
|
|
$f (slur-f gat hil)
|
|
$g (slur-g gat hil)
|
|
$j (slur-j gat hil)
|
|
==
|
|
::
|
|
++ song :: reduce metacard
|
|
~/ %song ::
|
|
|= mex/vase :: mex: vase of card
|
|
^- (unit (pair mill worm)) ::
|
|
=^ hip p.sew (~(nell wa p.sew) p.mex) ::
|
|
?. hip ~ :: a card is a cell
|
|
?. ?=($meta -.q.mex) `[[%& mex] p.sew] :: ordinary card
|
|
=^ tiv p.sew (~(slot wa p.sew) 3 mex) ::
|
|
=^ hip p.sew (~(nell wa p.sew) p.tiv) ::
|
|
?. hip ~ :: a vase is a cell
|
|
=^ vax p.sew (~(slot wa p.sew) 2 tiv) ::
|
|
=^ hip p.sew (~(nest wa p.sew) typ.vil p.vax) ::
|
|
?. hip ~ :: vase head is type
|
|
%+ biff ::
|
|
=+ mut=(milt q.tiv) :: card type, value
|
|
|- ^- (unit (pair milt worm)) ::
|
|
?. ?=({$meta p/* q/milt} q.mut) `[mut p.sew] :: ordinary metacard
|
|
=^ hip p.sew (~(nets wa p.sew) mev.vil p.mut)::
|
|
?. hip ~ :: meta-metacard
|
|
$(mut +.q.mut) :: descend into meta
|
|
|=(a/(pair milt worm) `[[%| p.a] q.a]) :: milt to mill
|
|
::
|
|
++ sump :: vase to move
|
|
~/ %sump
|
|
|= wec/vase
|
|
^- (unit (pair move worm))
|
|
%+ biff ((soft duct) -.q.wec)
|
|
|= a/duct
|
|
%+ bind
|
|
=- ?- -.har
|
|
%| ~& [%dead-card p.har] ~ :: XX properly log?
|
|
%& (some p.har)
|
|
==
|
|
^= har ^- (each (pair arvo worm) term)
|
|
=^ caq p.sew (~(spot wa p.sew) 3 wec)
|
|
?+ q.caq [%| (cat 3 %funk (@tas q.caq))]
|
|
::
|
|
{$pass p/* q/@tas r/{p/@tas q/*}}
|
|
%- (bond |.([%| p.r.q.caq]))
|
|
%+ biff ((soft @) q.q.caq)
|
|
|= lal/@tas
|
|
?. ((sane %tas) lal) ~
|
|
%+ biff ((soft path) p.q.caq)
|
|
|= pax/path
|
|
=^ yav p.sew (~(spot wa p.sew) 15 caq)
|
|
%+ bind (song yav)
|
|
|= {hil/mill vel/worm}
|
|
[%& [%pass pax lal hil] vel]
|
|
::
|
|
{$give p/{p/@tas q/*}}
|
|
%- (bond |.([%| p.p.q.caq]))
|
|
=^ yav p.sew (~(spot wa p.sew) 3 caq)
|
|
%+ bind (song yav)
|
|
|= {hil/mill vel/worm}
|
|
[%& [%give hil] vel]
|
|
::
|
|
{$slip p/@tas q/{p/@tas q/*}}
|
|
%- (bond |.([%| p.q.q.caq]))
|
|
%+ biff ((soft @) p.q.caq)
|
|
|= lal/@tas
|
|
?. ((sane %tas) lal) ~
|
|
=^ yav p.sew (~(spot wa p.sew) 7 caq)
|
|
%+ bind (song yav)
|
|
|= {hil/mill vel/worm}
|
|
[%& [%slip lal hil] vel]
|
|
==
|
|
|=(b/(pair arvo worm) [`move`[a p.b] q.b])
|
|
::
|
|
++ said :: vase to (list move)
|
|
|= vud/vase
|
|
|- ^- (pair (list move) worm)
|
|
?: =(~ q.vud) [~ p.sew]
|
|
=^ hed p.sew (~(slot wa p.sew) 2 vud)
|
|
=^ tal p.sew (~(slot wa p.sew) 3 vud)
|
|
=^ mov p.sew (need (sump hed))
|
|
=^ moz p.sew $(vud tal)
|
|
[[mov moz] p.sew]
|
|
::
|
|
++ scry :: read namespace
|
|
~/ %scry
|
|
|= $: fur/(unit (set monk))
|
|
ren/@t
|
|
bed/beam
|
|
==
|
|
^- (unit (unit (cask)))
|
|
:: ~& [%arvo-scry ren bed]
|
|
=+ ^= old
|
|
:* fur
|
|
ren
|
|
[%& p.bed]
|
|
q.bed
|
|
`coin`[%$ r.bed]
|
|
(flop s.bed)
|
|
==
|
|
^- (unit (unit (cask)))
|
|
=+ pro=(slym (slap rig [%limb %scry]) old)
|
|
?~ q.pro ~
|
|
?~ +.q.pro [~ ~]
|
|
=+ dat=(slot 7 pro)
|
|
[~ ~ (mark -.q.dat) +.q.dat]
|
|
::
|
|
++ soar :: scrub vane
|
|
|= sev/vase
|
|
^- vase
|
|
?: &(=(-.q.q.sew -.q.sev) =(+>.q.q.sew +>.q.sev))
|
|
q.sew :: unchanged, use old
|
|
sev(+<.q [*@da *@ =>(~ |~(* ~))]) :: clear to stop leak
|
|
::
|
|
++ swim
|
|
~/ %swim
|
|
|= $: org/@tas
|
|
pux/(unit wire)
|
|
hen/duct
|
|
hil/mill
|
|
==
|
|
^- {{p/(list move) q/worm} q/vase}
|
|
:: ~& [%swim-wyt `@ud`~(wyt in p.sew)]
|
|
=+ ^= pru
|
|
?~ pux
|
|
~| [%swim-call-vane lal ({term $~} +.p.hil)]
|
|
=^ vax p.sew (~(slap wa p.sew) rig [%limb %call])
|
|
%^ slur-pro lal vax
|
|
(slid [%& duc.vil hen] (slix hil))
|
|
~| [%swim-take-vane lal ({term $~} +.p.hil)]
|
|
=^ vax p.sew (~(slap wa p.sew) rig [%limb %take])
|
|
%^ slur-pro lal vax
|
|
;: slid
|
|
[%& pah.vil u.pux]
|
|
[%& duc.vil hen]
|
|
(slix (slid [%& [%atom %tas `org] org] hil))
|
|
==
|
|
?~ pru
|
|
~& [%swim-lost lal (@tas +>-.hil)]
|
|
[[~ p.sew] q.sew]
|
|
=^ pro p.sew (need pru)
|
|
=^ moz p.sew (~(slap wa p.sew) pro [%limb %p])
|
|
=^ vem p.sew (~(slap wa p.sew) pro [%limb %q])
|
|
[(said moz) (soar vem)]
|
|
--
|
|
--
|
|
::
|
|
++ vint :: create vane
|
|
|= {lal/@tas vil/vile bud/vase pax/path txt/@ta} ::
|
|
=- ?:(?=(%| -.res) ((slog p.res) ~) (some p.res))
|
|
^= res %- mule |.
|
|
=+ gen=(rain pax txt)
|
|
~& [%vane-parsed `@p`(mug gen)]
|
|
=+ pro=(vent lal vil bud *worm (slym (slap bud gen) bud))
|
|
~& [%vane-compiled `@p`(mug pro)]
|
|
pro
|
|
::
|
|
++ viol :: vane tools
|
|
|= but/type
|
|
^- vile
|
|
=+ pal=|=(a/@t ^-(type (~(play ut but) (vice a))))
|
|
:* typ=(pal '$:type')
|
|
duc=(pal '$:duct')
|
|
pah=(pal '$:path')
|
|
mev=(pal '$:{$meta $vase}')
|
|
==
|
|
::
|
|
++ is :: operate in time
|
|
|= {vil/vile eny/@ bud/vase niz/(pair worm (list {p/@tas q/vase}))}
|
|
|_ now/@da
|
|
++ beck
|
|
^- slyd
|
|
|= {* fur/(unit (set monk)) ron/term bed/beam}
|
|
^- (unit (unit (cask)))
|
|
=> .(fur ?^(fur fur `[[%& p.bed] ~ ~])) :: XX heinous
|
|
=+ lal=(end 3 1 ron)
|
|
=+ ren=(@t (rsh 3 1 ron))
|
|
|- ^- (unit (unit (cask)))
|
|
?~ q.niz ~
|
|
?. =(lal p.i.q.niz) $(q.niz t.q.niz)
|
|
%- scry:(wink:(vent lal vil bud p.niz q.i.q.niz) now (shax now) ..^$)
|
|
[fur ren bed]
|
|
::
|
|
++ dink :: vase by char
|
|
|= din/@tas ^- vase
|
|
?~(q.niz !! ?:(=(din p.i.q.niz) q.i.q.niz $(q.niz t.q.niz)))
|
|
::
|
|
++ dint :: input routing
|
|
|= hap/path ^- @tas
|
|
?+ hap !!
|
|
{@ $ames *} %a
|
|
{@ $boat *} %c
|
|
{@ $newt *} %a
|
|
{@ $sync *} %c
|
|
{@ $term *} %d
|
|
{@ $http *} %e
|
|
{@ $behn *} %b
|
|
==
|
|
::
|
|
++ doos :: sleep until
|
|
|= hap/path ^- (unit @da)
|
|
=+ lal=(dint hap)
|
|
(doze:(wink:(vent lal vil bud p.niz (dink lal)) now 0 beck) now [hap ~])
|
|
::
|
|
++ hurl :: start loop
|
|
|= {lac/? ovo/ovum}
|
|
~? &(!lac !=(%belt -.q.ovo)) [%unix -.q.ovo p.ovo]
|
|
^- {p/(list ovum) q/(pair worm (list {p/@tas q/vase}))}
|
|
?> ?=(^ p.ovo)
|
|
%+ kick lac
|
|
:~ :* i.p.ovo
|
|
~
|
|
:^ %pass t.p.ovo
|
|
(dint p.ovo)
|
|
:+ %&
|
|
[%cell [%atom %tas `%soft] %noun]
|
|
[%soft q.ovo]
|
|
==
|
|
==
|
|
::
|
|
++ race :: take
|
|
|= {org/@tas lal/@tas pux/(unit wire) hen/duct hil/mill ves/vase}
|
|
^- {p/{p/(list move) q/worm} q/vase}
|
|
=+ ven=(vent lal vil bud [p.niz ves])
|
|
=+ win=(wink:ven now (shax now) beck)
|
|
(swim:win org pux hen hil)
|
|
::
|
|
++ fire :: execute
|
|
|= {org/term lal/term pux/(unit wire) hen/duct hil/mill}
|
|
?: &(?=(^ pux) ?=($~ hen))
|
|
[[[[lal u.pux] (curd +>.hil)]~ ~] niz]
|
|
=+ naf=q.niz
|
|
|- ^- {{p/(list ovum) q/(list muse)} _niz}
|
|
?~ naf [[~ ~] [p.niz ~]]
|
|
?. =(lal p.i.naf)
|
|
=+ tuh=$(naf t.naf)
|
|
[-.tuh [+<.tuh [i.naf +>.tuh]]]
|
|
=+ fiq=(race org lal pux hen hil q.i.naf)
|
|
[[~ (turn p.p.fiq |=(a/move [lal a]))] [q.p.fiq [[p.i.naf q.fiq] t.naf]]]
|
|
::
|
|
++ jack :: dispatch card
|
|
|= {lac/? gum/muse}
|
|
^- {{p/(list ovum) q/(list muse)} _niz}
|
|
:: =. lac |(lac ?=(?(%g %f) p.gum))
|
|
:: =. lac &(lac !?=($b p.gum))
|
|
%+ fire
|
|
p.gum
|
|
?- -.r.gum
|
|
$pass
|
|
~? &(!lac !=(%$ p.gum))
|
|
:^ %pass [p.gum p.q.r.gum]
|
|
[(@tas +>-.q.q.r.gum) p.r.gum]
|
|
q.gum
|
|
[p.q.r.gum ~ [[p.gum p.r.gum] q.gum] q.q.r.gum]
|
|
::
|
|
$give
|
|
?> ?=(^ q.gum)
|
|
?. ?=(^ i.q.gum)
|
|
~& [%jack-bad-duct q.gum]
|
|
~& [%jack-bad-card +>-.p.r.gum]
|
|
!!
|
|
~? &(!lac |(!=(%blit +>-.p.r.gum) !=(%d p.gum)))
|
|
[%give p.gum (@tas +>-.p.r.gum) `duct`q.gum]
|
|
[i.i.q.gum [~ t.i.q.gum] t.q.gum p.r.gum]
|
|
::
|
|
$slip
|
|
~? !lac [%slip p.gum (@tas +>-.q.p.r.gum) q.gum]
|
|
[p.p.r.gum ~ q.gum q.p.r.gum]
|
|
==
|
|
::
|
|
++ kick :: new main loop
|
|
|= {lac/? mor/(list muse)}
|
|
=| ova/(list ovum)
|
|
|- ^- {p/(list ovum) q/(pair worm (list {p/@tas q/vase}))}
|
|
?~ mor [(flop ova) niz]
|
|
=^ nyx niz (jack lac i.mor)
|
|
$(ova (weld p.nyx ova), mor (weld q.nyx t.mor))
|
|
--
|
|
--
|
|
=+ pit=`vase`!>(.) ::
|
|
=+ bud=pit :: becomes tang
|
|
:: =+ vil=(viol p.bud) :: cached reflexives
|
|
=+ vil=(viol p.bud) :: cached reflexives
|
|
=| $: lac/? :: laconic bit
|
|
eny/@ :: entropy
|
|
niz/(pair worm (list {p/@tas q/vase})) :: modules
|
|
== ::
|
|
=< |%
|
|
++ 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}) +<))
|
|
?: =(%verb -.q.ovo)
|
|
[~ +>.$(lac !lac)]
|
|
?: ?=($veer -.q.ovo)
|
|
[~ +>.$(+ (veer now q.ovo))]
|
|
=^ 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))
|
|
?: ?=($vega -.q.i.ova)
|
|
%+ fall
|
|
(vega now t.ova (path +<.q.i.ova) (path +>.q.i.ova))
|
|
[~ +>.^$]
|
|
?: ?=($mass -.q.i.ova)
|
|
=+ avo=$(ova t.ova)
|
|
:_ +.avo
|
|
:_ -.avo
|
|
%= i.ova
|
|
q.q
|
|
:- %userspace
|
|
:- %|
|
|
:~ hoon+`pit
|
|
zuse+`bud
|
|
hoon-cache+`p.niz
|
|
q.q.i.ova
|
|
dot+`.
|
|
==
|
|
==
|
|
=+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])
|
|
++ wish |=(* (^wish ((hard @ta) +<))) :: 20
|
|
--
|
|
|%
|
|
++ come :: load incompatible
|
|
|= {yen/@ ova/(list ovum) nyf/pone}
|
|
^+ [ova +>]
|
|
(load yen ova (turn nyf |=({a/@tas b/vise} [a (slim b)])))
|
|
::
|
|
++ keep :: wakeup delay
|
|
|= {now/@da hap/path}
|
|
=> .(+< ((hard {now/@da hap/path}) +<))
|
|
(~(doos (is vil eny bud niz) now) hap)
|
|
::
|
|
++ load :: load compatible
|
|
|= {yen/@ ova/(list ovum) nyf/pane}
|
|
^+ [ova +>]
|
|
=: eny yen
|
|
q.niz nyf
|
|
==
|
|
|- ^+ [ova +>.^$]
|
|
?~ ova
|
|
[~ +>.^$]
|
|
?: ?=($verb -.q.i.ova)
|
|
$(ova t.ova, lac !lac)
|
|
?: ?=($veer -.q.i.ova)
|
|
$(ova t.ova, +>.^$ (veer *@da q.i.ova))
|
|
=+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])
|
|
::
|
|
++ peek :: external inspect
|
|
|= {now/@da hap/path}
|
|
^- (unit)
|
|
?~ hap [~ hoon-version]
|
|
=+ rob=((sloy ~(beck (is vil eny bud niz) now)) [151 %noun] hap)
|
|
?~ rob ~
|
|
?~ u.rob ~
|
|
[~ u.u.rob]
|
|
::
|
|
++ poke :: external apply
|
|
|= {now/@da ovo/ovum}
|
|
=. eny (mix eny (shaz now))
|
|
:: ~& [%poke -.q.ovo]
|
|
^- {(list ovum) _+>}
|
|
=^ zef niz
|
|
(~(hurl (is vil eny bud niz) now) lac ovo)
|
|
[zef +>.$]
|
|
::
|
|
++ veke :: build new kernel
|
|
|= {now/@da hap/path zup/path}
|
|
^- *
|
|
=- ?:(?=(%& -.res) p.res ((slog p.res) ~))
|
|
^= res %- mule |.
|
|
=+ pax=(weld hap `path`[%hoon ~])
|
|
=+ wax=(weld zup `path`[%hoon ~])
|
|
~& [%vega-start-hoon hap]
|
|
=+ src=((hard @t) (need (peek now cx+pax)))
|
|
=+ arv=((hard @t) (need (peek now cx+wax)))
|
|
=+ gen=(rain hap src)
|
|
~& %vega-parsed
|
|
=+ one=(~(mint ut %noun) %noun gen)
|
|
~& %vega-compiled
|
|
~& [%vega-arvo zup]
|
|
=+ two=(~(mint ut p.one) %noun (rain zup arv))
|
|
~& %vega-minted
|
|
.*(0 [7 q.one q.two])
|
|
::
|
|
++ vega :: reboot kernel
|
|
|= {now/@da ova/(list ovum) hap/path zup/path}
|
|
^- (unit {p/(list ovum) q/*})
|
|
=- ?:(?=(%| -.res) ((slog p.res) ~) `p.res)
|
|
^= res %- mule |.
|
|
=+ ken=(veke now hap zup)
|
|
~& [%vega-kernel `@ux`(mug ken)]
|
|
=+ ^= nex
|
|
=+ gat=.*(ken .*(ken [0 87]))
|
|
(need ((hard (unit @)) .*([-.gat [[now ~] +>.gat]] -.gat)))
|
|
~& [%vega-compiled hoon-version nex]
|
|
?> (lte nex hoon-version)
|
|
=+ gat=.*(ken .*(ken [0 ?:(=(nex hoon-version) 86 11)]))
|
|
=+ sam=[eny ova q.niz]
|
|
=+ raw=.*([-.gat [sam +>.gat]] -.gat)
|
|
=+ yep=((list ovum) -.raw)
|
|
[[[~ %vega hap] yep] +.raw]
|
|
::
|
|
++ veer :: install vane/tang
|
|
|= {now/@da fav/curd}
|
|
=> .(fav ((hard {$veer lal/@ta pax/path txt/@t}) fav))
|
|
=- ?:(?=(%| -.res) ((slog p.res) +>.$) p.res)
|
|
^= res %- mule |.
|
|
?: =(%$ lal.fav)
|
|
~& [%tang pax.fav `@p`(mug txt.fav)]
|
|
=+ gen=(rain pax.fav txt.fav)
|
|
=+ vax=(slap pit gen)
|
|
+>.^$(bud vax)
|
|
%_ +>.^$
|
|
q.niz
|
|
|- ^+ q.niz
|
|
?~ q.niz
|
|
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
|
|
=+ vin=(vint lal.fav vil bud pax.fav txt.fav)
|
|
?~ vin
|
|
q.niz
|
|
[[lal.fav q.sew:u.vin] q.niz]
|
|
?. =(lal.fav p.i.q.niz)
|
|
[i.q.niz $(q.niz t.q.niz)]
|
|
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
|
|
:_ t.q.niz
|
|
:- p.i.q.niz
|
|
q.sew:(ruck:(vent lal.fav vil bud [p.niz q.i.q.niz]) pax.fav txt.fav)
|
|
==
|
|
::
|
|
++ wish :: external compute
|
|
|= txt/@
|
|
q:(slap bud (ream txt))
|
|
--
|
|
|