arvo: kelvin version type

This commit is contained in:
Ted Blackman 2021-07-02 17:40:55 -04:00
parent bfb9419d22
commit 6a1cbf8894

View File

@ -165,6 +165,7 @@
:: $vile: reflexive constants :: $vile: reflexive constants
:: $waif: arvo task, from anywhere :: $waif: arvo task, from anywhere
:: $wasp: arvo task, from Outside :: $wasp: arvo task, from Outside
:: $weft: kelvin version, tag and number
:: $worm: compiler cache :: $worm: compiler cache
:: $wisp: arvo task, larval stage :: $wisp: arvo task, larval stage
:: $wynn: kelvin stack :: $wynn: kelvin stack
@ -269,6 +270,7 @@
[%wack p=@uvJ] [%wack p=@uvJ]
[%wyrd p=vere] [%wyrd p=vere]
== ==
+$ weft [lal=@tas num=@ud]
+$ worm +$ worm
$: :: +nest, +play, and +mint $: :: +nest, +play, and +mint
:: ::
@ -281,7 +283,7 @@
$>(?(%wack %wyrd) wasp) $>(?(%wack %wyrd) wasp)
[%whom p=ship] [%whom p=ship]
== ==
+$ wynn (list (pair term @ud)) +$ wynn (list weft)
-- => -- =>
:: ::
~% %hex ..ut ~ ~% %hex ..ut ~
@ -364,10 +366,10 @@
|= kel=wynn |= kel=wynn
^- ? ^- ?
?: =(~ kel) & ?: =(~ kel) &
=^ las=(pair term @ud) kel kel =^ las=weft kel kel
|- ^- ? |- ^- ?
?~ kel & ?~ kel &
?& (gte q.las q.i.kel) ?& (gte num.las num.i.kel)
$(las i.kel, kel t.kel) $(las i.kel, kel t.kel)
== ==
:: +need: require kelvins :: +need: require kelvins
@ -384,7 +386,7 @@
~_ :+ %rose ~_ :+ %rose
[" " ~ ~] [" " ~ ~]
:~ =+ p.u.wyr :~ =+ p.u.wyr
leaf/"%{(trip p)} %{(scow %ud q)} required;" leaf/"%{(trip lal)} %{(scow %ud num)} required;"
?~ q.u.wyr ?~ q.u.wyr
leaf/"runtime missing support" leaf/"runtime missing support"
leaf/"runtime only supports %{(scow %ud u.q.u.wyr)}" leaf/"runtime only supports %{(scow %ud u.q.u.wyr)}"
@ -393,20 +395,20 @@
~> %mean.'wyrd' ~> %mean.'wyrd'
!! !!
:: ::
|- ^- (unit (pair (pair term @ud) (unit @ud))) |- ^- (unit (pair weft (unit @ud)))
?~ hav ~ ?~ hav ~
:: ::
:: fel: %&: runtime kelvin for [i.hav] :: fel: %&: runtime kelvin for [i.hav]
:: %|: no specified runtime support :: %|: no specified runtime support
:: ::
=/ fel =/ fel
|- ^- (each @ud (pair term @ud)) |- ^- (each @ud weft)
?~ run |/i.hav ?~ run |/i.hav
?:(=(p.i.hav p.i.run) &/q.i.run $(run t.run)) ?:(=(lal.i.hav lal.i.run) &/num.i.run $(run t.run))
:: ::
?- -.fel ?- -.fel
%| `[p.fel ~] %| `[p.fel ~]
%& ?.((lte p.fel q.i.hav) `[i.hav `p.fel] $(hav t.hav)) %& ?.((lte p.fel num.i.hav) `[i.hav `p.fel] $(hav t.hav))
== ==
-- --
:: ::
@ -1539,7 +1541,7 @@
%wyrd ?. (sane:wyrd kel.p.buz) %wyrd ?. (sane:wyrd kel.p.buz)
~>(%mean.'wyrd: insane' !!) ~>(%mean.'wyrd: insane' !!)
%- %+ need:wyrd kel.p.buz %- %+ need:wyrd kel.p.buz
^- (list (pair term @)) ^- wynn
:~ hoon/hoon-version :~ hoon/hoon-version
arvo/arvo arvo/arvo
lull/;;(@ud q:(slap lul.mod limb/%lull)) lull/;;(@ud q:(slap lul.mod limb/%lull))
@ -1707,7 +1709,7 @@
=. van.mod (~(run by van.mod) |=(=vane vane(worm *worm))) =. van.mod (~(run by van.mod) |=(=vane vane(worm *worm)))
:: ::
%- %+ need:wyrd kel.ver.zen %- %+ need:wyrd kel.ver.zen
^- (list (pair term @)) ^- wynn
:~ hoon/hoon-version :~ hoon/hoon-version
arvo/arvo arvo/arvo
lull/;;(@ud q:(slap lul.mod limb/%lull)) lull/;;(@ud q:(slap lul.mod limb/%lull))
@ -1799,7 +1801,7 @@
=/ lul $:u.lul =/ lul $:u.lul
=/ zus $:u.zus =/ zus $:u.zus
%- %+ need:wyrd kel.u.ver %- %+ need:wyrd kel.u.ver
^- (list (pair term @)) ^- wynn
:~ hoon/hoon-version :~ hoon/hoon-version
arvo/arvo arvo/arvo
lull/;;(@ud q:(slap lul limb/%lull)) lull/;;(@ud q:(slap lul limb/%lull))
@ -1886,7 +1888,7 @@
%wyrd ?. (sane:wyrd kel.p.wip) %wyrd ?. (sane:wyrd kel.p.wip)
~>(%mean.'wyrd: insane' !!) ~>(%mean.'wyrd: insane' !!)
%- %+ need:wyrd kel.p.wip %- %+ need:wyrd kel.p.wip
^- (list (pair term @)) ^- wynn
:* hoon/hoon-version :* hoon/hoon-version
arvo/arvo arvo/arvo
?~ lul ~ ?~ lul ~