From 563b28514a0436d5c97ccc26aa34c3de5e04d869 Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Tue, 20 May 2014 10:33:59 -0700 Subject: [PATCH] Various fixes and improvements. --- arvo/hoon.hoon | 4 +++- arvo/zuse.hoon | 41 ++++++++++++++++++++++++++--------------- 2 files changed, 29 insertions(+), 16 deletions(-) diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon index 0a21b8981e..c5901a39d1 100644 --- a/arvo/hoon.hoon +++ b/arvo/hoon.hoon @@ -188,7 +188,7 @@ == :: ++ twig $& [p=twig q=twig] :: $% :: - [%$ p=axis] :: blip, empty name + [%$ p=axis] :: simple leg :: :: [%bccb p=tile] :: bunt a tile [%bccm p=tile] :: clam a tile @@ -428,6 +428,7 @@ %al al %ap ap %ut ut + %mute mute %seed seed %show show == @@ -3721,6 +3722,7 @@ (mink [[-.gat [sam +>.gat]] -.gat] sky) :: ++ mule :: typed virtual + ~\ %mule |* taq=_|.(_*) =+ mud=(mute taq) ?- -.mud diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon index 0a70e5a7b0..5b987e8a7a 100644 --- a/arvo/zuse.hoon +++ b/arvo/zuse.hoon @@ -1906,7 +1906,9 @@ [%logo p=@] :: logout [%loot p=@tas q=path] :: request directory [%make p=(unit ,@t) q=@ud r=@] :: wild license - [%meta p=@tas q=prow r=card] :: application order + [%mean p=ship q=term r=nave s=card] :: application event + [%meta p=ship q=vase] :: abstract app action + [%meat p=ship q=card] :: concrete app action [%mine p=@ud q=@t] :: query matched line [%noop ~] :: no operation [%note p=@tD q=tank] :: debug message @@ -1939,15 +1941,15 @@ [%tory p=(list ,@t)] :: history dump [%veer p=@ta q=path r=@t] :: install vane [%vega p=path] :: reboot by path - [%view p=?] :: view on/off + [%view p=(list view)] :: subscribe [%volt p=*] :: current kernel [%wait p=@da q=path] :: timer wait [%wake ~] :: timer activate [%waft p=sock q=*] :: response message [%want p=sock q=path r=*] :: send message [%warn p=tape] :: syslog - [%warp p=ship q=riff] :: file request - [%wart p=ship q=@tas r=path s=*] :: service request + [%warp p=sock q=riff] :: file request + [%wart p=sock q=@tas r=path s=*] :: service request [%went p=ship q=cape] :: reaction message [%wipe ~] :: clean to sequence [%word p=chum] :: set password @@ -2164,7 +2166,8 @@ [%wan p=wain] :: text lines [%zap p=@ud q=(list tank)] :: status/error == :: -++ maki ,[p=@ta q=@ta r=@ta s=path] +++ luge ,[p=logo q=*] :: fully typed content +++ maki ,[p=@ta q=@ta r=@ta s=path] :: ++ mace (list ,[p=life q=ring]) :: private secrets ++ marv ?(%da %tas %ud) :: release form ++ masu ,[p=ship q=desk r=moar s=moar] :: sync square @@ -2203,6 +2206,10 @@ ++ move ,[p=(unit writ) q=duct r=card] :: typeless move ++ moth ,[p=meth q=math r=(unit octs)] :: http operation ++ name ,[p=@t q=(unit ,@t) r=(unit ,@t) s=@t] :: first mid/nick last +++ nave :: + $: say=(set monk) :: data authorizers + use=(set monk) :: data users + == :: ++ newt ?(%boot %kick %mess %slay %wake) :: lifecycle events ++ nose :: response, kernel $? [%$ p=(unit ,[p=tutu q=(list)])] :: standard input @@ -2232,10 +2239,6 @@ ++ pred ,[p=@ta q=@tas r=@ta ~] :: proto-path ++ prod ,[p=prom q=tape r=tape] :: prompt ++ prom ?(%text %pass %none) :: format type -++ prow :: - $: own=(set monk) :: data authorizers - use=(set monk) :: data users - == :: ++ purl ,[p=hart q=pork r=quay] :: parsed url ++ putt :: outgoing message $: ski=snow :: sequence acked/sent @@ -2346,12 +2349,6 @@ puq=(qeu ,[p=@ud q=soul]) :: packet queue == :: == :: -++ sill :: assembly state - |* a=_,* :: assembly goal - $% [%0 p=beam] :: not yet loaded - [%1 p=*] :: file not compiled - [%2 p=a] :: file compiled - == :: ++ silk :: construction layer $& [p=silk q=silk] :: cons $% [%bake p=logo q=beam] :: local synthesis @@ -2364,6 +2361,12 @@ :: [%pass p=silk q=silo] :: twig construction [%reef ~] :: kernel reef == :: +++ sill :: assembly state + |* a=_,* :: assembly goal + $% [%0 p=beam] :: not yet loaded + [%1 p=*] :: file not compiled + [%2 p=a] :: file compiled + == :: ++ silo :: code pointer $% [%0 p=@] :: direct text [%1 p=twig] :: direct twig @@ -2440,6 +2443,14 @@ ++ stay *vase :: save state, new ++ vern [_@ud _@ud] :: hoon/vane version -- :: +++ vial :: subscription window + |* a=$+(* @) :: + ,[p=a q= +++ view :: application request + $: fim=? :: send initial view + gel=(each (vial ,@da) (vial ,@ud)) :: window + pax=path :: + == :: ++ wund (list ,[p=life q=ring r=acru]) :: mace in action ++ what :: logical identity $% [%anon ~] :: anonymous