urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-15 04:22:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

Stash.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-02-21 20:21:27 -08:00
parent 3a15c0411d
commit a563339d74
1 changed files with 70 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
sys/parv.hoon
View File

@ -114,11 +114,30 @@
== :: == ::
-- :: -- ::
++ live (evil) :: modern molds ++ live (evil) :: modern molds
++ vane :: vane mockup ++ vane :: vane definition
$_ ^? $_ ^? :: totally decorative
=| |%
|_ ++ load |=(old/* +>)
++ stay ^-(* !!)
++ work
|_ bait
++ doze *@da
++ scry roof
++ spin
|_ $: hen/duct
moz/(list move:live)
==
++ call
|= {way/term hil/mill}
^+ +>
!!
++ take
|= {way/term tea/wire}
^+ +>
!!
--
--
--
++ vile (evil typo twit vise) :: old molds ++ vile (evil typo twit vise) :: old molds
++ wasp :: arvo effect ++ wasp :: arvo effect
$% {$walk ~} :: finish mammal brain $% {$walk ~} :: finish mammal brain
@ -151,7 +170,7 @@
+>(run.gut [mov run.gut]) +>(run.gut [mov run.gut])
:: :: ++pike:le :: :: ++pike:le
++ pike :: event to %pass ++ pike :: event to %pass
|= $: :: lay: event route |= $: :: way: event route
:: now: date :: now: date
:: ovo: input ovum :: ovo: input ovum
:: ::
@ -174,7 +193,7 @@
:: ::
=* hen `duct`[p.ovo ~] =* hen `duct`[p.ovo ~]
=* tea `wire`[%$ %unix ~] =* tea `wire`[%$ %unix ~]
=* mov `move`[%pass tea lay %& vax] =* mov `move`[%pass tea way %& vax]
:: ::
:: push move on stack, and work. :: push move on stack, and work.
:: ::
@ -216,49 +235,68 @@
=* mov `move`[hen %give %& !>(wap)] =* mov `move`[hen %give %& !>(wap)]
(emit mov) (emit mov)
:: ::
$belt (pike %d now ovo) $belt (pike %dill now ovo)
$blew (pike %d now ovo) $blew (pike %dill now ovo)
$born (pike %e now ovo) $born (pike %eyre now ovo)
$hail (pike %d now ovo) $hail (pike %dill now ovo)
$hear (pike %a now ovo) $hear (pike %ames now ovo)
$hook (pike %d now ovo) $hook (pike %dill now ovo)
$into (pike %c now ovo) $into (pike %clay now ovo)
$they (pike %e now ovo) $they (pike %eyre now ovo)
$this (pike %e now ovo) $this (pike %eyre now ovo)
$thus (pike %e now ovo) $thus (pike %eyre now ovo)
== ==
:: :: ++re:le
++ re ::
:: :: ++va:le :: :: ++va:le
++ va :: vane engine ++ va :: vane engine
|_ $: :: lay: short name, eg %a |_ $: :: way: vane name, eg `%ames`
:: way: long name, eg %ames :: vax: vane, or vane builder if `off.mal`
:: vax: vane or vane builder
:: ::
lay/term
way/term way/term
vax/vase vax/vase
== ==
:: :: ++va-abet:va:le :: :: ++va-abet:va:le
++ va-abet :: resolve ++ va-abet :: resolve
^+ ..va ^+ ..va
..va(van.mal (~(put by van.mal) lay [way vax])) ..va(van.mal (~(put by van.mal) way vax))
:: :: ++va-abut:va:le :: :: ++va-abut:va:le
++ va-apex :: deploy ++ va-apex :: boot or reboot
|= $: lay/term |= $: way/term
way/term
src/hoof src/hoof
== ==
^+ +> ^+ +>
=: ^lay lay =. ^way way
^way way =+ bun (~(get by van.mal) way)
==
=+ bun=(~(get by van.mal) lay)
?~ bun ?~ bun
(va-create src) (va-create src)
(va-update(vax u.bun) src) (va-update(vax u.bun) src)
:: :: ++va-active:va:le :: :: ++va-active:va:le
++ va-active :: make activated vane ++ va-work :: activated vane
|= {now |= bait
^+ ::
:: wok: working vase
::
=/ wok ^- vase
!!
|%
:: :: ++abet:va-work:va:le
++ abet ::
+>+>
:: :: ++doze:va-work:va:le
++ doze :: request wakeup at
^- (unit @da)
!!
:: :: ++scry:va-work:va:le
++ scry ::
|= $: :: lyc:
::
lyc/(unit (set ship))
car/term
bem/beam
==
--
:: :: ++va-create:va:le :: :: ++va-create:va:le
++ va-create :: compile new vase ++ va-create :: compile new vase
|= src/hoof |= src/hoof