ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 17:41:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Some arvo cleanups.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-01-05 15:38:34 -08:00
parent 37c4885cfb
commit c3e0a0394c
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
arvo/hoon.hoon
View File

@ -7341,6 +7341,7 @@
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: Postface :::::: :::::: :::::: Postface ::::::
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
!:
=+ pit=`vase`!>(.) :: =+ pit=`vase`!>(.) ::
=+ bud=pit :: becomes tang =+ bud=pit :: becomes tang
=+ vil=(vial p.bud) :: =+ vil=(vial p.bud) ::
@ -7372,6 +7373,8 @@
[~ +>.^$] [~ +>.^$]
?: ?=(%veer -.q.i.ova) ?: ?=(%veer -.q.i.ova)
$(ova t.ova, +>+.^$ (veer +.q.i.ova)) $(ova t.ova, +>+.^$ (veer +.q.i.ova))
?: ?=(%vega -.q.i.ova)
(vega now t.ova (path +.q.i.ova))
?: ?=(%volt -.q.i.ova) ?: ?=(%volt -.q.i.ova)
(volt t.ova +.q.i.ova) (volt t.ova +.q.i.ova)
=+(avo=$(ova t.ova) [[i.ova -.avo] +.avo]) =+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])
@ -7414,6 +7417,22 @@
(~(hurl (is eny vil bud fan) now) ovo) (~(hurl (is eny vil bud fan) now) ovo)
[zef +>.$] [zef +>.$]
:: ::
++ vega :: reboot kernel
|= [now=@da ova=(list ovum) hap=path]
^- [p=(list ovum) q=*]
=+ pax=(weld hap `path`[%hoon ~])
~& [%vega-start hap]
=+ src=((hard ,@t) (need (peek ~zod now cx/pax)))
=+ saz=(shax src)
=+ gen=(rain hap src)
~& %vega-parsed
=+ ken=.*(0 q:(~(mint ut %noun) %noun gen))
~& %vega-compiled
=+ gat=.*(ken .*(ken [0 86]))
=+ sam=[eny ova fan]
=+ raw=.*([-.gat [sam +>.gat]] -.gat)
[((list ovum) -.raw) +.raw]
::
++ veer :: install vane/tang ++ veer :: install vane/tang
|= * |= *
=> .(+< ((hard ,[lal=@ta pax=path txt=@t]) +<)) => .(+< ((hard ,[lal=@ta pax=path txt=@t]) +<))

2
arvo/zuse.hoon
View File

@ -1535,7 +1535,7 @@
[%thus p=@ud q=(unit hiss)] :: http request [%thus p=@ud q=(unit hiss)] :: http request
[%tory p=(list ,@t)] :: history dump [%tory p=(list ,@t)] :: history dump
[%veer p=@ta q=path r=@t] :: install vane [%veer p=@ta q=path r=@t] :: install vane
[%volo p=*] :: previous kernel [%vega p=path] :: reboot by path
[%volt p=*] :: current kernel [%volt p=*] :: current kernel
[%wait p=@da q=path] :: timer wait [%wait p=@da q=path] :: timer wait
[%wake ~] :: timer activate [%wake ~] :: timer activate