ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-18 04:11:49 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'test' into do

Browse Source
This commit is contained in:
Anton Dyudin 2015-05-13 12:46:39 -07:00
commit 5d252b315e
20 changed files with 526 additions and 1877 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
base/ape/dojo/core.hook
View File

@ -715,13 +715,13 @@
== ==
-- --
:: ::
++ peer ++ peer-sole
|= [from pax=path] |= [from pax=path]
^- (quip move +>) ^- (quip move +>)
~? !=(src our.hid) [%dojo-peer-stranger ost src pax] ~? !=(src our.hid) [%dojo-peer-stranger ost src pax]
:: ?> =(src our.hid) :: ?> =(src our.hid)
?< (~(has by hoc) ost) ?< (~(has by hoc) ost)
?> =(/sole pax) ?> =(~ pax)
=< he-abet =< he-abet
%~ he-peer he %~ he-peer he
:- [ost ~] :- [ost ~]

183
base/ape/helm/core.hook
View File

@ -1,183 +0,0 @@
:: :: ::
:::: /hook/core/helm/ape :: ::
:: :: ::
/? 314 :: zuse version
/- *sole :: structures
/+ sole :: libraries
:: :: ::
:::: :: ::
!: :: ::
=> |% :: principal structures
++ helm-house :: all state
$: %0 :: state version
bur=(unit (pair ship mace)) :: requesting ticket
hoc=(map bone helm-session) :: consoles
== ::
++ helm-session ::
$: say=sole-share ::
mud=(unit (sole-dialog ,@ud)) ::
== ::
++ funk (pair ,@ ,@) ::
++ begs ,[his=@p tic=@p eny=@t ges=gens] :: begin data
++ helm-wish ::
$| $? %reset :: reset kernel
%verb :: verbose mode
== ::
$% [%reload p=(list term)] :: reload vanes
== ::
++ suss ,[term @tas @da] :: config report
++ dill :: sent to %dill
$% [%crud p=term q=(list tank)] :: fat report
[%text p=tape] :: thin report
[%veer p=@ta q=path r=@t] :: install vane
[%vega p=path] :: reboot by path
[%verb ~] :: verbose mode
== ::
++ card ::
$% [%cash wire p=@p q=buck] ::
[%conf wire dock %load ship term] ::
[%flog wire dill] ::
[%plug wire @p @tas @p @tas] ::
[%want wire sock path *] :: send message
== ::
++ move (pair bone card) :: user-level move
-- ::
:: ::
:::: ::
:: ::
|_ $: hid=hide :: system state
helm-house :: program state
== ::
++ he :: per session
|_ [[ost=bone moz=(list move)] helm-session] ::
++ he-abet :: resolve
[(flop moz) %_(+> hoc (~(put by hoc) ost +<+))] ::
:: ::
++ he-wish-start
|= dap=term
%_(+> moz :_(moz [ost %conf /start [our.hid dap] %load our.hid %main]))
::
++ he-wish-reset
^+ .
=- %_(+ moz (weld zum moz))
^= zum %- flop ^- (list move)
=+ top=`path`/(scot %p our.hid)/base/arvo/(scot %da lat.hid)
:- [ost %flog /reset %vega (weld top `path`/hoon)]
%+ turn
^- (list ,[p=@tas q=@tas])
:~ [%$ %zuse]
[%a %ames]
[%c %clay]
[%d %dill]
[%e %eyre]
[%f %ford]
[%g %gall]
[%t %time]
==
|= [p=@tas q=@tas]
=+ way=`path`(welp top /[q])
=+ txt=((hard ,@) .^(%cx (welp way /hoon)))
[ost %flog /reset %veer p way txt]
::
++ he-wish-reload
|= all=(list term)
%_ +>.$
moz
%- weld
:_ moz
%+ turn all
=+ ark=(arch .^(%cy /(scot %p our.hid)/base/(scot %da lat.hid)/arvo))
=+ van=(~(tap by r.ark))
|= nam=@tas
=. nam
?. =(1 (met 3 nam))
nam
=+ ^- zaz=(list ,[p=span ~])
(skim van |=([a=term ~] =(nam (end 3 1 a))))
?> ?=([[@ ~] ~] zaz)
`term`p.i.zaz
=+ tip=(end 3 1 nam)
=+ way=[(scot %p our.hid) %home (scot %da lat.hid) %arvo nam %hoon ~]
=+ fil=(,@ .^(%cx way))
:* ost
%flog
/reload
[%veer ?:(=('z' tip) %$ tip) way (,@ .^(%cx way))]
==
==
::
++ he-wish-verb
%_ .
moz
:_ moz
[ost %flog /verb %verb ~]
==
++ he-wish-init
|= him=ship
%_ +>.$
moz
:_ moz
[ost %flog /init %crud %hax-init leaf/(scow %p him) ~]
==
--
::
++ hake :: poke core
|= [ost=bone src=ship]
?> =(src our.hid)
~(. he [ost ~] (fall (~(get by hoc) ost) *helm-session))
::
++ poke-helm-reset
|= [from ~]
~& %poke-helm-reset
he-abet:he-wish-reset:(hake ost src)
::
++ poke-helm-verb
|= [from ~]
~& %poke-helm-verb
he-abet:he-wish-verb:(hake ost src)
::
++ poke-helm-init
|= [from him=ship]
~& %poke-helm-init
he-abet:(he-wish-init:(hake ost src) him)
::
++ poke-helm-reload
|= [from all=(list term)]
he-abet:(he-wish-reload:(hake ost src) all)
::
++ poke-helm-start
|= [from dap=term]
he-abet:(he-wish-start:(hake ost src) dap)
::
++ poke-helm-begin
|= [from begs]
~& %behn-helm-begin
?> ?=(~ bur)
=+ buz=(shax :(mix (jam ges) eny))
=+ loy=(bruw 2.048 buz)
:_ +>.$(bur `[his [0 sec:ex:loy]~])
:~ :* ost %want /ticketing [our.hid (sein his)] /q/ta
his tic ges pub:ex:loy
==
==
::
++ poke-will
|= [from wil=(unit will)]
?> ?=(^ bur)
:_ +>.$(bur ~)
?~ wil
!!
:~ [ost %cash ~ p.u.bur q.u.bur u.wil]
[ost %plug ~ our.hid %main (sein our.hid) %main]
[ost %plug ~ our.hid %arvo (sein our.hid) %arvo]
[ost %plug ~ our.hid %try (sein our.hid) %try]
==
::
++ onto
|= [then saw=(each suss tang)]
:_ +> :_ ~
?- -.saw
%| [ost %pass ~ %flog %crud `@tas`-.way `tang`p.saw]
%& [ost %pass ~ %flog %text "<{<p.saw>}>"]
==
--

21
base/ape/hood/core.hook
View File

@ -15,11 +15,11 @@
%kiln ?>(?=(%kiln -.paw) `kiln-part`paw) :: %kiln ?>(?=(%kiln -.paw) `kiln-part`paw) ::
== :: == ::
++ hood-head ,_-:*hood-part :: ++ hood-head ,_-:*hood-part ::
++ hood-mold :: ++ hood-make ::
|= hed=hood-head :: |* hed=hood-head ::
?- hed :: ?- hed ::
%helm helm-part :: %helm *helm-part ::
%kiln kiln-part :: %kiln *kiln-part ::
== :: == ::
++ hood-part :: ++ hood-part ::
$? helm-part :: $? helm-part ::
@ -35,7 +35,8 @@
++ able :: find/make part ++ able :: find/make part
|* hed=hood-head |* hed=hood-head
=+ rep=(~(get by lac) hed) =+ rep=(~(get by lac) hed)
((hood-good hed) ?^(rep u.rep `hood-part`*(hood-mold hed))) =+ par=?^(rep u.rep `hood-part`(hood-make hed))
((hood-good hed) par)
:: ::
++ ably :: save part ++ ably :: save part
|* [moz=(list) rep=hood-part] |* [moz=(list) rep=hood-part]
@ -75,11 +76,11 @@
|= [from hood-merge] |= [from hood-merge]
(ably (poke-merge:(kiln-work [hid +<-] (able %kiln)) +<+)) (ably (poke-merge:(kiln-work [hid +<-] (able %kiln)) +<+))
:: ::
++ poke-hood-sync :: ++ poke-hood-sync ::
|= [from hood-sync] |= [from hood-sync]
(ably (poke-sync:(kiln-work [hid +<-] (able %kiln)) +<+)) (ably (poke-sync:(kiln-work [hid +<-] (able %kiln)) +<+))
:: ::
++ poke-hood-unix :: ++ poke-hood-unix ::
|= [from hood-unix] |= [from hood-unix]
(ably (poke-unix:(kiln-work [hid +<-] (able %kiln)) +<+)) (ably (poke-unix:(kiln-work [hid +<-] (able %kiln)) +<+))
:: ::
@ -99,8 +100,12 @@
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
(ably (take-coup-fancy:(kiln-work [hid ost src] (able %kiln)) way +<+)) (ably (take-coup-fancy:(kiln-work [hid ost src] (able %kiln)) way +<+))
:: ::
++ coup-kiln-spam ++ coup-kiln-spam ::
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
~? ?=(^ saw) [%kiln-spam-lame u.saw] ~? ?=(^ saw) [%kiln-spam-lame u.saw]
[~ +>] [~ +>]
::
++ went-helm ::
|= [then her=ship kay=cape]
(ably (take-went:(helm-work [hid ost src] (able %helm)) way +<+))
-- --

2
base/ape/talk/core.hook
View File

@ -1714,7 +1714,7 @@
ra-abet:(~(ra-quit ra ost ~) man cuz) ra-abet:(~(ra-quit ra ost ~) man cuz)
:: ::
++ pull :: ++ pull ::
|= [from ~] |= [from *]
^- [(list move) _+>] ^- [(list move) _+>]
:: ~& [%talk-pull `*`ost] :: ~& [%talk-pull `*`ost]
=^ moz +>.$ ra-abet:ra-ever:~(ra-cancel ra ost ~) =^ moz +>.$ ra-abet:ra-ever:~(ra-cancel ra ost ~)

58
base/arvo/ames.hoon
View File

@ -4,43 +4,7 @@
=> =~ => =~
:: structures :: structures
|% |%
++ flog :: error wrapper ++ move ,[p=duct q=(mold note gift-ames)] :: local move
$% [%crud p=@tas q=(list tank)] ::
[%text p=tape] ::
== ::
++ cuft :: internal gift
$% [%coup p=(unit tang)] :: poke result
[%diff p=cage] :: subscription output
[%quit ~] :: close subscription
[%reap p=(unit tang)] :: peer result
== ::
++ gift :: out result <-$
$% [%hear p=lane q=@] :: receive packet
[%init p=@p] :: report install
[%mass p=mass] :: memory usage
[%send p=lane q=@] :: transmit packet
[%waft p=sock q=*] :: response message
[%wart p=sock q=@tas r=path s=*] :: network request
[%went p=ship q=cape] :: reaction message
[%woot p=ship q=coop] :: e2e reaction message
== ::
++ hasp ,[p=ship q=term] :: see %gall
++ kiss :: in request ->$
$% [%barn ~] :: new unix process
[%crud p=@tas q=(list tank)] :: error with trace
[%cash p=@p q=buck] :: civil license
[%hear p=lane q=@] :: receive packet
[%hole p=lane q=@] :: packet failed
[%junk p=@] :: entropy
[%kick p=@da] :: wake up
[%make p=(unit ,@t) q=@ud r=@ s=?] :: wild license
[%sith p=@p q=@uw r=?] :: imperial generator
[%wake ~] :: timer activate
[%want p=sock q=path r=*] :: send message
[%wegh ~] :: report memory
[%wont p=sock q=path r=*] :: e2e send message
== ::
++ move ,[p=duct q=(mold note gift)] :: local move
++ note :: out request $-> ++ note :: out request $->
$? $: %d :: to %dill $? $: %d :: to %dill
$% [%flog p=flog] :: $% [%flog p=flog] ::
@ -490,7 +454,9 @@
^- [(unit will) _+>] ^- [(unit will) _+>]
?. =(our (sein her)) [~ +>.$] ?. =(our (sein her)) [~ +>.$]
=+ nes=sen =+ nes=sen
?. =(tic (end 6 1 (shaf %tick (mix her (shax sec:ex:q.nes))))) =+ ryt=(end 6 1 (shaf %tick (mix her (shax sec:ex:q.nes))))
?. =(tic ryt)
~& [%ames-wrong-ticket `@p`ryt]
[~ +>.$] [~ +>.$]
=+ rad=(~(get by hoc.saf) her) =+ rad=(~(get by hoc.saf) her)
?^ rad ?^ rad
@ -1596,16 +1562,16 @@
|% :: vane interface |% :: vane interface
++ call :: handle request ++ call :: handle request
|= $: hen=duct |= $: hen=duct
hic=(hypo (hobo kiss)) hic=(hypo (hobo kiss-ames))
== ==
=> %= . :: XX temporary => %= . :: XX temporary
q.hic q.hic
^- kiss ^- kiss-ames
?: ?=(%soft -.q.hic) ?: ?=(%soft -.q.hic)
((hard kiss) p.q.hic) ((hard kiss-ames) p.q.hic)
?: (~(nest ut -:!>(*kiss)) | p.hic) q.hic ?: (~(nest ut -:!>(*kiss-ames)) | p.hic) q.hic
~& [%ames-call-flub (,@tas `*`-.q.hic)] ~& [%ames-call-flub (,@tas `*`-.q.hic)]
((hard kiss) q.hic) ((hard kiss-ames) q.hic)
== ==
^- [p=(list move) q=_..^$] ^- [p=(list move) q=_..^$]
=^ duy ..knob =^ duy ..knob
@ -1707,7 +1673,7 @@
:+ (scot %p p.p.bon) :+ (scot %p p.p.bon)
(scot %p q.p.bon) (scot %p q.p.bon)
q.q.bon q.q.bon
[hen %pass pax %g %rote p.bon /helm 0 %m %will wil]~ [hen %pass pax %g %rote p.bon /hood 0 %m %will wil]~
?> ?=([@ @ *] t.q.q.bon) ?> ?=([@ @ *] t.q.q.bon)
:_ fox :_ fox
=+ [cak=i.t.q.q.bon ven=i.t.t.q.q.bon] =+ [cak=i.t.q.q.bon ven=i.t.t.q.q.bon]
@ -1760,7 +1726,7 @@
== ==
:: ::
%ye :: %ye %ye :: %ye
:: ~& [%ye bon] :: ~& [%ye bon]
?> =(p.p.bon (sein q.p.bon)) ?> =(p.p.bon (sein q.p.bon))
=+ ^= paz ^- (list ,@p) =+ ^= paz ^- (list ,@p)
%+ skim pals:(~(um am [now fox]) p.p.bon) %+ skim pals:(~(um am [now fox]) p.p.bon)
@ -1855,7 +1821,7 @@
== ==
:: ::
++ knob ++ knob
|= [hen=duct kyz=kiss] |= [hen=duct kyz=kiss-ames]
^- [(list move) _+>] ^- [(list move) _+>]
?: ?=(%crud -.kyz) ?: ?=(%crud -.kyz)
[[[hen [%slip %d %flog kyz]] ~] +>] [[[hen [%slip %d %flog kyz]] ~] +>]

1162
base/arvo/behn.hoon
View File

File diff suppressed because it is too large Load Diff

47
base/arvo/clay.hoon
View File

@ -17,30 +17,8 @@
mer=(map (pair ship desk) mery) :: outstanding merges mer=(map (pair ship desk) mery) :: outstanding merges
syn=? :: sync to unix syn=? :: sync to unix
== :: == ::
++ gift :: out result <-$ ++ gift gift-clay :: out result <-$
$% [%ergo p=@p q=@tas r=@ud s=(list ,[path (unit mime)])] ++ kiss kiss-clay :: in request ->$
:: version update
[%mass p=mass] :: memory usage
[%mere p=(each (set path) (pair term tang))] :: merge result
[%note p=@tD q=tank] :: debug message
[%writ p=riot] :: response
== ::
++ khan ::
$: fil=(unit (unit cage)) :: XX see khan-to-soba
dir=(map ,@ta khan) ::
== ::
++ kiss :: in request ->$
$% [%font p=@p q=@tas r=@p s=@tas] :: set upstream
[%info p=@p q=@tas r=nori] :: internal edit
[%init p=@p] :: report install
[%into p=@p q=@tas r=khan] :: external edit
[%lynx p=@p q=@tas r=(unit ,?)] :: sync to unix
[%merg p=@p q=@tas r=@p s=@tas t=germ] :: merge desks
[%plug p=@p q=@tas r=@p s=@tas] :: unset upstream
[%wart p=sock q=@tas r=path s=*] :: network request
[%warp p=sock q=riff] :: file request
[%wegh ~] :: report memory
== ::
++ mery :: ++ mery ::
$: gem=germ :: strategy $: gem=germ :: strategy
cas=case :: ali's case cas=case :: ali's case
@ -102,26 +80,6 @@
$: @tas :: by any $: @tas :: by any
$% [%crud p=@tas q=(list tank)] :: $% [%crud p=@tas q=(list tank)] ::
== == == :: == == == ::
++ silk :: construction layer
$& [p=silk q=silk] :: cons
$% [%bake p=mark q=beam r=path] :: local synthesis
[%boil p=mark q=beam r=path] :: general synthesis
[%bunt p=mark] :: example of mark
[%call p=silk q=silk] :: slam
[%cast p=mark q=silk] :: translate
[%diff p=silk q=silk] :: diff
[%done p=(set beam) q=gage] :: literal
[%dude p=tank q=silk] :: error wrap
[%dune p=(set beam) q=(unit gage)] :: unit literal
[%join p=mark q=silk r=silk] :: merge
[%mute p=silk q=(list (pair wing silk))] :: mutant
[%pact p=silk q=silk] :: patch
[%reef ~] :: kernel reef
[%ride p=twig q=silk] :: silk thru twig
[%tabl p=(list (pair silk silk))] :: list
[%vale p=mark q=ship r=*] :: validate [our his]
[%volt p=(set beam) q=(cask ,*)] :: unsafe add type
== ::
++ raft :: filesystem ++ raft :: filesystem
$: fat=(map ship room) :: domestic $: fat=(map ship room) :: domestic
hoy=(map ship rung) :: foreign hoy=(map ship rung) :: foreign
@ -138,7 +96,6 @@
mer=(map (pair ship desk) mery) :: outstanding merges mer=(map (pair ship desk) mery) :: outstanding merges
syn=? :: sync to unix syn=? :: sync to unix
== :: == ::
++ riff ,[p=desk q=(unit rave)] :: request/desist
++ rind :: request manager ++ rind :: request manager
$: nix=@ud :: request index $: nix=@ud :: request index
bom=(map ,@ud ,[p=duct q=rave]) :: outstanding bom=(map ,@ud ,[p=duct q=rave]) :: outstanding

100
base/arvo/dill.hoon
View File

@ -3,59 +3,6 @@
:: ::
|= pit=vase |= pit=vase
=> |% :: interface tiles => |% :: interface tiles
++ console-action :: console to app
$% [%det console-change] :: edit prompt line
[%inn ~] :: enter session
[%out ~] :: exit session
[%ret ~] :: submit and clear
== ::
++ console-buffer (list ,@c) :: command state
++ console-change :: network change
$: ler=console-clock :: destination clock
haw=@uvH :: source hash
ted=console-edit :: state change
== ::
++ console-clock ,[own=@ud his=@ud] :: vector clock
++ console-edit :: shared state change
$% [%del p=@ud] :: delete one at
[%ins p=@ud q=@c] :: insert at
[%mor p=(list console-edit)] :: combination
[%nop ~] :: no-op
[%set p=console-buffer] :: discontinuity
== ::
++ console-effect :: app to console
$% [%bel ~] :: beep
[%blk p=@ud q=@c] :: blink/match char at
[%clr ~] :: clear screen
[%det console-change] :: edit input
[%nex ~] :: save and clear input
[%tan p=(list tank)] :: classic tank
:: [%taq p=tanq] :: modern tank
[%txt p=tape] :: text line
== ::
++ dill-belt :: console input
$% [%aro p=?(%d %l %r %u)] :: arrow key
[%bac ~] :: true backspace
[%cru p=@tas q=(list tank)] :: echo error
[%ctl p=@c] :: control-key
[%del ~] :: true delete
[%met p=@c] :: meta-key
[%ret ~] :: return
[%rez p=@ud q=@ud] :: resize, cols, rows
[%txt p=(list ,@c)] :: utf32 text
[%yow p=gill] :: connect to app
== ::
++ dill-blit :: console output
$% [%bel ~] :: make a noise
[%clr ~] :: clear the screen
[%hop p=@ud] :: set cursor position
[%mor p=(list dill-blit)] :: multiple blits
[%pro p=(list ,@c)] :: show as cursor/line
[%qit ~] :: close console
[%out p=(list ,@c)] :: send output line
[%sag p=path q=*] :: save to jamfile
[%sav p=path q=@] :: save to file
== ::
++ gill (pair ship term) :: general contact ++ gill (pair ship term) :: general contact
-- :: -- ::
=> |% :: console protocol => |% :: console protocol
@ -74,41 +21,7 @@
== :: == ::
-- => :: -- => ::
|% :: protocol below |% :: protocol below
++ blew ,[p=@ud q=@ud] :: columns rows ++ gift gift-dill :: out result <-$
++ belt :: raw console input
$% [%aro p=?(%d %l %r %u)] :: arrow key
[%bac ~] :: true backspace
[%ctl p=@c] :: control-key
[%del ~] :: true delete
[%met p=@c] :: meta-key
[%ret ~] :: return
[%txt p=(list ,@c)] :: utf32 text
== ::
++ blit :: raw console output
$% [%bel ~] :: make a noise
[%clr ~] :: clear the screen
[%hop p=@ud] :: set cursor position
[%lin p=(list ,@c)] :: set current line
[%mor ~] :: newline
[%sag p=path q=*] :: save to jamfile
[%sav p=path q=@] :: save to file
== ::
++ flog :: sent to %dill
$% [%crud p=@tas q=(list tank)] ::
[%text p=tape] ::
[%veer p=@ta q=path r=@t] :: install vane
[%vega p=path] :: reboot by path
[%verb ~] :: verbose mode
== ::
++ gift :: out result <-$
$% [%bbye ~] :: reset prompt
[%blit p=(list blit)] :: terminal output
[%init p=@p] :: set owner
[%logo ~] :: logout
[%veer p=@ta q=path r=@t] :: install vane
[%vega p=path] :: reboot by path
[%verb ~] :: verbose mode
== ::
++ kiss :: in request ->$ ++ kiss :: in request ->$
$% [%belt p=belt] :: terminal input $% [%belt p=belt] :: terminal input
[%blew p=blew] :: terminal config [%blew p=blew] :: terminal config
@ -132,19 +45,12 @@
++ mess :: ++ mess ::
$% [%dill-belt p=(hypo dill-belt)] :: $% [%dill-belt p=(hypo dill-belt)] ::
== :: == ::
++ club :: agent action
$% [%peer p=path] :: subscribe
[%poke p=cage] :: apply
[%pull ~] :: unsubscribe
[%pump ~] :: pump yes/no
== ::
++ cuft :: internal gift ++ cuft :: internal gift
$% [%coup p=(unit tang)] :: poke result $% [%coup p=(unit tang)] :: poke result
[%quit ~] :: close subscription [%quit ~] :: close subscription
[%reap p=(unit tang)] :: peer result [%reap p=(unit tang)] :: peer result
[%diff p=cage] :: subscription output [%diff p=cage] :: subscription output
== :: == ::
++ cuss (pair term club) :: internal kiss
++ suss (trel term ,@tas ,@da) :: config report ++ suss (trel term ,@tas ,@da) :: config report
++ move ,[p=duct q=(mold note gift)] :: local move ++ move ,[p=duct q=(mold note gift)] :: local move
++ note-ames :: weird ames move ++ note-ames :: weird ames move
@ -165,7 +71,7 @@
== :: == ::
++ note-gall :: ++ note-gall ::
$% [%conf dock %load ship desk] :: $% [%conf dock %load ship desk] ::
[%deal p=sock q=cuss] :: [%deal p=sock q=cush] ::
== :: == ::
++ note :: out request $-> ++ note :: out request $->
$% [%a note-ames] :: $% [%a note-ames] ::
@ -419,7 +325,7 @@
=+ ^= flo ^- (list (pair ship term)) =+ ^= flo ^- (list (pair ship term))
=+ myr=(clan p.q.hic) =+ myr=(clan p.q.hic)
?: =(%pawn myr) ?: =(%pawn myr)
[[p.q.hic %dojo] ~] [[p.q.hic %dojo] [p.q.hic %hood] ~]
?: =(%earl myr) ?: =(%earl myr)
=+ fap=(sein p.q.hic) =+ fap=(sein p.q.hic)
[[fap %dojo] [fap %talk] [fap %hood] ~] [[fap %dojo] [fap %talk] [fap %hood] ~]

74
base/arvo/eyre.hoon
View File

@ -4,46 +4,8 @@
|= pit=vase |= pit=vase
=> =~ => =~
|% :: interfaces |% :: interfaces
++ club :: agent action ++ gift gift-eyre :: out result <-$
$% [%peer p=path] :: subscribe ++ kiss kiss-eyre :: in request ->$
[%poke p=cage] :: apply
[%pull ~] :: unsubscribe
[%pump ~] :: subscription ack
== ::
++ cush (pair term club) :: internal kiss
++ cuft :: internal gift
$% [%coup p=(unit tang)] :: poke result
[%diff p=cage] :: subscription output
[%quit ~] :: close subscription
[%reap p=(unit tang)] :: peer result
== ::
++ gift :: out result <-$
$% [%mass p=mass] :: memory usage
[%thou p=httr] :: raw http response
[%thus p=@ud q=(unit hiss)] :: http request/cancel
[%veer p=@ta q=path r=@t] :: drop-through
[%vega p=path] :: drop-through
== ::
++ gram :: inter-ship message
$? [[%lon ~] p=hole] :: login request
[[%aut ~] p=hole] :: login reply
[[%hat ~] p=hole q=hart] :: login redirect
[[%get ~] p=@uvH q=[? clip httq]] :: remote request
[[%got ~] p=@uvH q=httr] :: remote response
== ::
++ hasp ,[p=ship q=term] :: don't see %gall
++ hapt ,[p=ship q=path] :: do see %gall
++ kiss :: in request ->$
$% [%born ~] :: new unix process
[%crud p=@tas q=(list tank)] :: XX rethink
[%init p=@p] :: report install
[%them p=(unit hiss)] :: outbound request
[%they p=@ud q=httr] :: inbound response
[%this p=? q=clip r=httq] :: inbound request
[%thud ~] :: inbound cancel
[%wart p=sack q=@tas r=_`[path *]`*gram] :: urbit message
[%wegh ~] :: report memory
== ::
++ move ,[p=duct q=(mold note gift)] :: local move ++ move ,[p=duct q=(mold note gift)] :: local move
++ note :: out request $-> ++ note :: out request $->
$% $: %a :: to %ames $% $: %a :: to %ames
@ -66,12 +28,6 @@
$% [%wait p=@da] :: $% [%wait p=@da] ::
[%rest p=@da] :: [%rest p=@da] ::
== == == :: == == == ::
++ silk :: see %ford
$& [p=silk q=silk] ::
$% [%boil p=mark q=beam r=path] ::
[%cast p=mark q=silk] ::
[%done p=(set beam) q=cage] ::
== ::
++ sign :: in result $<- ++ sign :: in result $<-
$? $: %a :: by %ames $? $: %a :: by %ames
$% [%went p=ship q=cape] :: $% [%went p=ship q=cape] ::
@ -101,7 +57,7 @@
[%on p=span:,@uvH ~] :: dependency [%on p=span:,@uvH ~] :: dependency
[%to p=ixor q=span:ship r=term s=wire] :: associated app [%to p=ixor q=span:ship r=term s=wire] :: associated app
== :: == ::
++ whir-of ,[p=span:ship q=term r=wire] :: path in hasp ++ whir-of ,[p=span:ship q=term r=wire] :: path in dock
-- :: -- ::
|% :: models |% :: models
++ bolo :: eyre state ++ bolo :: eyre state
@ -139,9 +95,9 @@
== ==
++ honk $%([%nice ~] [%mean p=ares]) :: old gall result ++ honk $%([%nice ~] [%mean p=ares]) :: old gall result
++ even :: client event ++ even :: client event
$% [%mean p=[hasp path] q=ares] $% [%mean p=[dock path] q=ares]
[%news p=@uv] [%news p=@uv]
[%rush p=[hasp path] q=json] [%rush p=[dock path] q=json]
== ==
:: ::
++ perk :: parsed request ++ perk :: parsed request
@ -150,10 +106,10 @@
[%bugs p=?(%as %to) ~] [%bugs p=?(%as %to) ~]
[%beam p=beam] [%beam p=beam]
[%deps p=?(%put %delt) q=@uvH] [%deps p=?(%put %delt) q=@uvH]
[%mess p=hasp q=mark r=wire s=json] [%mess p=dock q=mark r=wire s=json]
[%poll p=[i=@uvH t=(list ,@uvH)]] [%poll p=[i=@uvH t=(list ,@uvH)]]
[%spur p=spur] [%spur p=spur]
[%subs p=?(%put %delt) q=[hasp %json wire path]] [%subs p=?(%put %delt) q=[dock %json wire path]]
[%view p=ixor q=[~ u=@ud]] [%view p=ixor q=[~ u=@ud]]
== ==
:: ::
@ -197,7 +153,7 @@
[[%$ %t p.i.quy] [%$ %t q.i.quy] $(quy t.quy)] [[%$ %t p.i.quy] [%$ %t q.i.quy] $(quy t.quy)]
== ==
:: ::
++ gsig |=([a=hasp b=path] [(scot %p p.a) q.a b]) ++ gsig |=([a=dock b=path] [(scot %p p.a) q.a b])
++ session-from-cookies ++ session-from-cookies
|= [nam=@t maf=math] |= [nam=@t maf=math]
^- (unit hole) ^- (unit hole)
@ -1156,7 +1112,7 @@
++ teba |*(a=$+(* ..ix) |*(b=* %_(done ..ix (a b)))) ++ teba |*(a=$+(* ..ix) |*(b=* %_(done ..ix (a b))))
++ give-json (teba ^give-json) ++ give-json (teba ^give-json)
++ hurl-note ++ hurl-note
|= [a=[hasp path] b=note] ^+ ..ix |= [a=[dock path] b=note] ^+ ..ix
=: med (~(put to med) hen) =: med (~(put to med) hen)
hen `~ hen `~
== ==
@ -1168,15 +1124,15 @@
[+(p.eve) (~(put by q.eve) p.eve a)] [+(p.eve) (~(put by q.eve) p.eve a)]
:: ::
++ new-mess ++ new-mess
|= [a=hasp b=wire c=cage] ^+ ..ix |= [a=dock b=wire c=cage] ^+ ..ix
(hurl-note [a b] [%g %deal [him -.a] +.a %poke c]) (hurl-note [a b] [%g %deal [him -.a] +.a %poke c])
:: ::
++ add-subs ++ add-subs
|= [a=hasp %json b=wire c=path] ^+ ..ix |= [a=dock %json b=wire c=path] ^+ ..ix
(hurl-note [a b] [%g %deal [him -.a] +.a %peer c]) (hurl-note [a b] [%g %deal [him -.a] +.a %peer c])
:: ::
++ del-subs :: XX per path? ++ del-subs :: XX per path?
|= [a=hasp %json b=wire c=path] ^+ ..ix |= [a=dock %json b=wire c=path] ^+ ..ix
(hurl-note [a b] [%g %deal [him -.a] +.a %pull ~]) (hurl-note [a b] [%g %deal [him -.a] +.a %pull ~])
:: ::
++ get-rush ++ get-rush
@ -1221,7 +1177,7 @@
== ==
:: ::
++ pass-took ++ pass-took
|= a=[p=hasp wire] |= a=[p=dock wire]
%+ pass-note(hen `~) %+ pass-note(hen `~)
[%of ire (gsig a)] [%of ire (gsig a)]
[%g %deal [him -.p.a] +.p.a %pump ~] [%g %deal [him -.p.a] +.p.a %pump ~]
@ -1238,7 +1194,7 @@
abet:(give-even & a ven) abet:(give-even & a ven)
:: ::
++ subs-to-json ++ subs-to-json
|= [a=hasp b=path] |= [a=dock b=path]
%- jobe :~ %- jobe :~
ship/[%s (rsh 3 1 (scot %p p.a))] ship/[%s (rsh 3 1 (scot %p p.a))]
appl/[%s q.a] appl/[%s q.a]
@ -1246,7 +1202,7 @@
== ==
++ wake ^+(..ix abet(ude ~)) :: XX other effects? ++ wake ^+(..ix abet(ude ~)) :: XX other effects?
:: XX unused :: XX unused
++ print-subs |=([a=hasp b=path] "{<p.a>}/{(trip q.a)}{(spud b)}") ++ print-subs |=([a=dock b=path] "{<p.a>}/{(trip q.a)}{(spud b)}")
-- -- -- --
-- --
. == . ==

73
base/arvo/ford.hoon
View File

@ -7,87 +7,18 @@
:: structures :: structures
|% |%
:: ::
++ bead ,[p=(set beam) q=gage] :: computed result ++ gift gift-ford :: out result <-$
++ gift :: out result <-$
$% [%made p=@uvH q=(each gage tang)] :: computed result
[%mass p=mass] :: memory usage
[%news ~] :: fresh depends
== ::
++ heel path :: functional ending ++ heel path :: functional ending
++ hock :: standard label ++ kiss kiss-ford :: in request ->$
$: [%c p=@ud] :: celsius version
[%k p=@ud] :: kelvin version
[%s p=@ud q=@ud r=@ud] :: semantic version
== ::
++ hood :: assembly plan
$: zus=@ud :: zuse kelvin
sur=(list hoot) :: structures
lib=(list hoof) :: libraries
fan=(list horn) :: resources
src=(list hoop) :: program
== ::
++ hoof (pair term (unit (pair case ship))) :: resource reference
++ hoot (pair bean hoof) :: structure gate/core
++ hoop :: source in hood
$% [%& p=twig] :: direct twig
[%| p=beam] :: resource location
== ::
++ horn :: resource tree
$% [%ape p=twig] :: /~ twig by hand
[%arg p=twig] :: /$ argument
[%day p=horn] :: /| list by @dr
[%dub p=term q=horn] :: /= apply face
[%fan p=(list horn)] :: /. list
[%for p=path q=horn] :: /, descend
[%hel p=@ud q=horn] :: /% propagate heel
[%hub p=horn] :: /@ list by @ud
[%man p=(map span horn)] :: /* hetero map
[%nap p=horn] :: /_ homo map
[%now p=horn] :: /& list by @da
[%saw p=twig q=horn] :: /; operate on
[%see p=beam q=horn] :: /: relative to
[%sic p=tile q=horn] :: /^ cast
[%toy p=mark] :: /mark/ static
== ::
++ kiss :: in request ->$
$% [%exec p=@p q=beak r=(unit silk)] :: make / kill
[%wasp p=@p q=@uvH] :: depends query
[%wegh ~] :: report memory
== ::
++ milk (trel ship desk silk) :: sourced silk
++ move ,[p=duct q=(mold note gift)] :: local move ++ move ,[p=duct q=(mold note gift)] :: local move
++ note :: out request $-> ++ note :: out request $->
$% $: %c :: to %clay $% $: %c :: to %clay
$% [%warp p=sock q=riff] :: $% [%warp p=sock q=riff] ::
== == == :: == == == ::
++ riff ,[p=desk q=(unit rave)] :: see %clay
++ sign :: in result $<- ++ sign :: in result $<-
$% $: %c :: by %clay $% $: %c :: by %clay
$% [%writ p=riot] :: $% [%writ p=riot] ::
== == == :: == == == ::
++ silk :: construction layer
$& [p=silk q=silk] :: cons
$% [%bake p=mark q=beam r=path] :: local synthesis
[%boil p=mark q=beam r=path] :: general synthesis
[%bunt p=mark] :: example of mark
[%call p=silk q=silk] :: slam
[%cast p=mark q=silk] :: translate
[%diff p=silk q=silk] :: diff
[%done p=(set beam) q=gage] :: literal
[%dude p=tank q=silk] :: error wrap
[%dune p=(set beam) q=(unit gage)] :: unit literal
[%file p=beam] :: from clay
[%join p=mark q=silk r=silk] :: merge
[%mash p=mark q=milk r=milk] :: annotate
[%mute p=silk q=(list (pair wing silk))] :: mutant
[%pact p=silk q=silk] :: patch
[%plan p=beam q=spur r=hood] :: structured assembly
[%reef ~] :: kernel reef
[%ride p=twig q=silk] :: silk thru twig
[%tabl p=(list (pair silk silk))] :: list
[%vale p=mark q=ship r=*] :: validate [our his]
[%volt p=(set beam) q=(cask ,*)] :: unsafe add type
== ::
-- :: -- ::
|% :: structures |% :: structures
++ axle :: all %ford state ++ axle :: all %ford state

147
base/arvo/gall.hoon
View File

@ -5,60 +5,6 @@
=> =~ => =~
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: rest of arvo |% :::::::::::::::::::::::::::::::::::::::::::::::::::::: rest of arvo
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
++ hood :: assembly plan
$: zus=@ud :: zuse kelvin
sur=(list hoot) :: structures
lib=(list hoof) :: libraries
fan=(list horn) :: resources
src=(list hoop) :: program
== ::
++ hoof (pair term (unit (pair case ship))) :: resource reference
++ hoot (pair bean hoof) :: structure gate/core
++ hoop :: source in hood
$% [%& p=twig] :: direct twig
[%| p=beam] :: resource location
== ::
++ horn :: resource tree
$% [%ape p=twig] :: /~ twig by hand
[%arg p=twig] :: /$ argument
[%day p=horn] :: /| list by @dr
[%dub p=term q=horn] :: /= apply face
[%fan p=(list horn)] :: /. list
[%for p=path q=horn] :: /, descend
[%hel p=@ud q=horn] :: /% propagate heel
[%hub p=horn] :: /@ list by @ud
[%man p=(map span horn)] :: /* hetero map
[%nap p=horn] :: /_ homo map
[%now p=horn] :: /& list by @da
[%saw p=twig q=horn] :: /; operate on
[%see p=beam q=horn] :: /: relative to
[%sic p=tile q=horn] :: /^ cast
[%toy p=mark] :: /mark/ static
== ::
++ milk (trel ship desk silk) :: sourced silk
++ silk :: construction layer
$& [p=silk q=silk] :: cons
$% [%bake p=mark q=beam r=path] :: local synthesis
[%boil p=mark q=beam r=path] :: general synthesis
[%bunt p=mark] :: example of mark
[%call p=silk q=silk] :: slam
[%cast p=mark q=silk] :: translate
[%diff p=silk q=silk] :: diff
[%done p=(set beam) q=gage] :: literal
[%dude p=tank q=silk] :: error wrap
[%dune p=(set beam) q=(unit gage)] :: unit literal
[%file p=beam] :: from clay
[%join p=mark q=silk r=silk] :: merge
[%mash p=mark q=milk r=milk] :: annotate
[%mute p=silk q=(list (pair wing silk))] :: mutant
[%pact p=silk q=silk] :: patch
[%plan p=beam q=spur r=hood] :: structured assembly
[%reef ~] :: kernel reef
[%ride p=twig q=silk] :: silk thru twig
[%tabl p=(list (pair silk silk))] :: list
[%vale p=mark q=ship r=*] :: validate [our his]
[%volt p=(set beam) q=(cask ,*)] :: unsafe add type
== ::
++ volt ?(%low %high) :: voltage ++ volt ?(%low %high) :: voltage
++ torc $|(?(%iron %gold) [%lead p=ship]) :: security control ++ torc $|(?(%iron %gold) [%lead p=ship]) :: security control
++ roon :: reverse ames msg ++ roon :: reverse ames msg
@ -73,76 +19,13 @@
-- :: -- ::
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: local arvo |% :::::::::::::::::::::::::::::::::::::::::::::::::::::: local arvo
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
++ club :: agent action
$% [%peer p=path] :: subscribe
[%poke p=cage] :: apply
[%pull ~] :: unsubscribe
[%pump ~] :: subscription ack
== ::
++ culm :: config action
$% [%load p=scup] :: load/reload
:: [%kick ~] :: restart everything
:: [%stop ~] :: toggle suspend
:: [%wipe ~] :: destroy all state
== ::
++ cuss (pair dude club) :: internal kiss
++ cuft :: internal gift
$% [%coup p=(unit tang)] :: poke result
[%diff p=cage] :: subscription output
[%quit ~] :: close subscription
[%reap p=(unit tang)] :: peer result
== ::
++ cote :: ++ap note ++ cote :: ++ap note
$% [%meta p=@tas q=vase] :: $% [%meta p=@tas q=vase] ::
[%send p=ship q=cuss] :: [%send p=ship q=cush] ::
== :: == ::
++ cove (pair duct (mold cote cuft)) :: internal move ++ cove (pair duct (mold cote cuft)) :: internal move
++ cute (pair bone (mold cote cuft)) :: internal move ++ cute (pair bone (mold cote cuft)) :: internal move
++ dude term :: local identity ++ move ,[p=duct q=(mold note-arvo gift-arvo)] :: typed move
++ scup (pair ship desk) :: autoupdate
++ suss (trel dude ,@tas ,@da) :: config report
++ tang (list tank) :: error abstraction
-- ::
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: %gall cards
::::::::::::::::::::::::::::::::::::::::::::::::::::::
++ kiss-ames ::
$% [%wont p=sock q=path r=*] ::
== ::
++ kiss-gall :: incoming request
$% [%conf p=dock q=culm] :: configure app
[%init p=ship] :: set owner
[%deal p=sock q=cuss] :: full transmission
[%rote p=sack q=path r=*] :: remote request
[%roth p=sack q=path r=*] :: remote response
== ::
++ kiss-ford ::
$% [%exec p=@p q=beak r=(unit silk)] :: make / kill
[%wasp p=@p q=@uvH] :: depends query
== ::
++ gift-ames ::
$% [%woot p=ship q=(unit ares)] :: e2e reaction message
== ::
++ gift-gall :: outgoing result
$% [%onto p=(each suss tang)] :: about agent
[%unto p=cuft] :: within agent
[%mack p=(unit tang)] :: message ack
== ::
++ gift-ford :: out result <-$
$% [%made p=@uvH q=(each gage tang)] :: computed result
[%news ~] :: fresh depends
== ::
++ sign-gall :: incoming result
$% [%a gift-ames] ::
[%f gift-ford] ::
[%g gift-gall] ::
== ::
++ note-gall :: outgoing request
$? [@tas %meta p=vase] ::
$% [%a kiss-ames] ::
[%f kiss-ford] ::
[%g kiss-gall] ::
== == ::
++ move ,[p=duct q=(mold note-gall gift-gall)] :: typed move
-- :: -- ::
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: %gall state |% :::::::::::::::::::::::::::::::::::::::::::::::::::::: %gall state
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ -235,7 +118,7 @@
(mo-boot dap ?:((~(has by bum) dap) %old %new) p.lum) (mo-boot dap ?:((~(has by bum) dap) %old %new) p.lum)
:: ::
++ mo-pass :: standard pass ++ mo-pass :: standard pass
|= [pax=path noh=note-gall] |= [pax=path noh=note-arvo]
%_(+> moz :_(moz [hen %pass pax noh])) %_(+> moz :_(moz [hen %pass pax noh]))
:: ::
++ mo-give ++ mo-give
@ -308,11 +191,11 @@
:: ~& [%mo-boot dap how pup] :: ~& [%mo-boot dap how pup]
%+ mo-pass [%sys how dap (scot %p p.pup) q.pup ~] %+ mo-pass [%sys how dap (scot %p p.pup) q.pup ~]
=+ bek=[p.pup q.pup [%da now]] =+ bek=[p.pup q.pup [%da now]]
^- note-gall ^- note-arvo
[%f %exec our bek `[%boil %core [bek [dap %ape ~]] ~]] [%f %exec our bek `[%boil %core [bek [dap %ape ~]] ~]]
:: ::
++ mo-away :: foreign request ++ mo-away :: foreign request
|= [him=ship caz=cuss] :: |= [him=ship caz=cush] ::
^+ +> ^+ +>
:: ~& [%mo-away him caz] :: ~& [%mo-away him caz]
?: ?=(%pump -.q.caz) ?: ?=(%pump -.q.caz)
@ -333,7 +216,7 @@
== ==
%+ mo-pass %+ mo-pass
[%sys %way -.q.caz ~] [%sys %way -.q.caz ~]
`note-gall`[%a %wont [our him] [%q %ge p.caz ~] [num roc]] `note-arvo`[%a %wont [our him] [%q %ge p.caz ~] [num roc]]
:: ::
++ mo-baal :: error convert a ++ mo-baal :: error convert a
|= art=(unit ares) |= art=(unit ares)
@ -381,7 +264,7 @@
(~(got by r:(~(got by sap) him)) num) (~(got by r:(~(got by sap) him)) num)
:: ::
++ mo-come :: handle locally ++ mo-come :: handle locally
|= [her=ship caz=cuss] |= [her=ship caz=cush]
^+ +> ^+ +>
=+ pry=`prey`[%high [~ her]] =+ pry=`prey`[%high [~ her]]
(mo-club p.caz pry q.caz) (mo-club p.caz pry q.caz)
@ -393,7 +276,7 @@
[~ `tang`[[%leaf (trip p.u.cup)] q.u.cup]] [~ `tang`[[%leaf (trip p.u.cup)] q.u.cup]]
:: ::
++ mo-cyst :: take in /sys ++ mo-cyst :: take in /sys
|= [pax=path sih=sign-gall] |= [pax=path sih=sign-arvo]
^+ +> ^+ +>
?+ -.pax !! ?+ -.pax !!
%dep :: update %dep :: update
@ -478,7 +361,7 @@
== ==
:: ::
++ mo-cook :: take in /use ++ mo-cook :: take in /use
|= [pax=path hin=(hypo sign-gall)] |= [pax=path hin=(hypo sign-arvo)]
^+ +> ^+ +>
?. ?=([@ @ ?(%inn %out) *] pax) ?. ?=([@ @ ?(%inn %out) *] pax)
~& [%mo-cook-bad-pax pax] ~& [%mo-cook-bad-pax pax]
@ -530,7 +413,7 @@
|= [him=@p dap=dude num=@ud rok=rook] |= [him=@p dap=dude num=@ud rok=rook]
%+ mo-pass %+ mo-pass
[%sys %req (scot %p him) dap (scot %ud num) ~] [%sys %req (scot %p him) dap (scot %ud num) ~]
^- note-gall ^- note-arvo
?- -.rok ?- -.rok
%m [%f %exec our (mo-beak dap) ~ %vale p.rok our q.rok] %m [%f %exec our (mo-beak dap) ~ %vale p.rok our q.rok]
%s [%g %deal [him our] dap %peer p.rok] %s [%g %deal [him our] dap %peer p.rok]
@ -611,8 +494,8 @@
%pass %pass
:+ %pass `path`[%use dap p.q.cov] :+ %pass `path`[%use dap p.q.cov]
?- -.q.q.cov ?- -.q.q.cov
%send `note-gall`[%g %deal [our p.q.q.cov] q.q.q.cov] %send `note-arvo`[%g %deal [our p.q.q.cov] q.q.q.cov]
%meta `note-gall`[`@tas`p.q.q.cov %meta `vase`q.q.q.cov] %meta `note-arvo`[`@tas`p.q.q.cov %meta `vase`q.q.q.cov]
== ==
== ==
:: ::
@ -762,6 +645,7 @@
:: ::
++ ap-move-diff :: give diff move ++ ap-move-diff :: give diff move
|= [sto=bone vax=vase] |= [sto=bone vax=vase]
=. vax (spec vax)
^- (each cute tang) ^- (each cute tang)
?. &(?=(^ q.vax) ?=(@ -.q.vax) ((sane %tas) -.q.vax)) ?. &(?=(^ q.vax) ?=(@ -.q.vax) ((sane %tas) -.q.vax))
[%| (ap-suck "move: improper diff")] [%| (ap-suck "move: improper diff")]
@ -1077,6 +961,7 @@
%lynx `%c %lynx `%c
%merg `%c %merg `%c
%plug `%c %plug `%c
%them `%e
%want `%a %want `%a
== ==
-- --
@ -1104,7 +989,7 @@
[~ ..^$(pol.all (~(put by pol.all) p.q.hic [hen ~ ~ ~]))] [~ ..^$(pol.all (~(put by pol.all) p.q.hic [hen ~ ~ ~]))]
:: ::
%rote %rote
:: ~& [%gall-rote p.q.hic] ~& [%gall-rote p.q.hic]
?. (~(has by pol.all) p.p.q.hic) ?. (~(has by pol.all) p.p.q.hic)
~& [%gall-not-ours p.q.hic] ~& [%gall-not-ours p.q.hic]
[~ ..^$] [~ ..^$]
@ -1149,7 +1034,7 @@
`axle`all `axle`all
:: ::
++ take :: response ++ take :: response
|= [tea=wire hen=duct hin=(hypo sign-gall)] |= [tea=wire hen=duct hin=(hypo sign-arvo)]
^- [p=(list move) q=_..^$] ^- [p=(list move) q=_..^$]
~| [%gall-take tea] ~| [%gall-take tea]
?> ?=([@ ?(%sys %use) *] tea) ?> ?=([@ ?(%sys %use) *] tea)

3
base/arvo/hoon.hoon
View File

@ -9634,7 +9634,6 @@
a :: a ::
== :: == ::
++ kirk (unit (set monk)) :: audience ++ kirk (unit (set monk)) :: audience
++ khan ,[p=@tas q=@ta] :: foreign identity
++ lens :: observation core ++ lens :: observation core
$_ ^? :: $_ ^? ::
|% ++ u *(unit (unit ,~)) :: existence |% ++ u *(unit (unit ,~)) :: existence
@ -9652,7 +9651,7 @@
++ mass (each noun (list (pair cord ,mass))) :: memory usage ++ mass (each noun (list (pair cord ,mass))) :: memory usage
++ mill (each vase milt) :: vase/metavase ++ mill (each vase milt) :: vase/metavase
++ milt ,[p=* q=*] :: metavase ++ milt ,[p=* q=*] :: metavase
++ monk (each ship khan) :: general identity ++ monk (each ship ,[p=@tas q=@ta]) :: general identity
++ mold :: new kernel action ++ mold :: new kernel action
|* [a=$+(* *) b=$+(* *)] :: forward/reverse |* [a=$+(* *) b=$+(* *)] :: forward/reverse
$% [%pass p=path q=a] :: advance $% [%pass p=path q=a] :: advance

7
base/arvo/time.hoon
View File

@ -12,12 +12,7 @@
== :: == ::
++ broq |* [a=_,* b=_,*] :: brodal skew qeu ++ broq |* [a=_,* b=_,*] :: brodal skew qeu
(list (sqeu a b)) :: (list (sqeu a b)) ::
++ weight ++ gift gift-time :: out result <-$
(each noun (list (pair tape weight)))
++ gift :: out result <-$
$% [%mass p=mass] :: memory usage
[%wake ~] :: wakey-wakey
== ::
++ kiss :: in request ->$ ++ kiss :: in request ->$
$% [%rest p=@da] :: cancel alarm $% [%rest p=@da] :: cancel alarm
[%wait p=@da] :: set alarm [%wait p=@da] :: set alarm

347
base/arvo/zuse.hoon
View File

@ -1887,7 +1887,7 @@
wab=(map ship bath) :: relationship wab=(map ship bath) :: relationship
== :: == ::
++ cred :: credential ++ cred :: credential
$: hut=hoot :: client host $: hut=hart :: client host
aut=(jug ,@tas ,@t) :: client identities aut=(jug ,@tas ,@t) :: client identities
orx=oryx :: CSRF secret orx=oryx :: CSRF secret
acl=(unit ,@t) :: accept-language acl=(unit ,@t) :: accept-language
@ -2001,7 +2001,6 @@
++ hiss ,[p=purl q=moth] :: outbound request ++ hiss ,[p=purl q=moth] :: outbound request
++ hist ,[p=@ud q=(list ,@t)] :: depth texts ++ hist ,[p=@ud q=(list ,@t)] :: depth texts
++ hole ,@t :: session identity ++ hole ,@t :: session identity
++ hoot ,[p=? q=(unit ,@ud) r=host] :: secure/port/host
++ hort ,[p=(unit ,@ud) q=host] :: http port/host ++ hort ,[p=(unit ,@ud) q=host] :: http port/host
++ host $%([& p=(list ,@t)] [| p=@if]) :: http host ++ host $%([& p=(list ,@t)] [| p=@if]) :: http host
++ hoke %+ each ,[%localhost ~] :: local host ++ hoke %+ each ,[%localhost ~] :: local host
@ -2264,23 +2263,329 @@
++ will (list deed) :: certificate ++ will (list deed) :: certificate
++ zuse %310 :: hoon/zuse kelvin ++ zuse %310 :: hoon/zuse kelvin
:: :: :: ::
:::: :::: this will become `%york`, separating out structures :::: :::: this will become `%york`, vane structures.
:: :: related to arvo in :: ::
++ gift-ames :: out result <-$
$% [%hear p=lane q=@] :: receive packet
[%init p=@p] :: report install
[%mass p=mass] :: memory usage
[%send p=lane q=@] :: transmit packet
[%waft p=sock q=*] :: response message
[%wart p=sock q=@tas r=path s=*] :: network request
[%went p=ship q=cape] :: reaction message
[%woot p=ship q=coop] :: e2e reaction message
== ::
++ kiss-ames :: in request ->$
$% [%barn ~] :: new unix process
[%crud p=@tas q=(list tank)] :: error with trace
[%cash p=@p q=buck] :: civil license
[%hear p=lane q=@] :: receive packet
[%hole p=lane q=@] :: packet failed
[%junk p=@] :: entropy
[%kick p=@da] :: wake up
[%make p=(unit ,@t) q=@ud r=@ s=?] :: wild license
[%sith p=@p q=@uw r=?] :: imperial generator
[%wake ~] :: timer activate
[%want p=sock q=path r=*] :: send message
[%wegh ~] :: report memory
[%wont p=sock q=path r=*] :: e2e send message
== ::
::
:::: %clay
::
++ khan ::
$: fil=(unit (unit cage)) :: XX see khan-to-soba
dir=(map ,@ta khan) ::
== ::
++ mick (list ,[path (unit mime)])
++ riff ,[p=desk q=(unit rave)] :: request/desist
:::: ::
++ gift-clay :: out result <-$
$% [%ergo p=@p q=@tas r=@ud s=mick] :: version update
[%mass p=mass] :: memory usage
[%mere p=(each (set path) (pair term tang))] :: merge result
[%note p=@tD q=tank] :: debug message
[%writ p=riot] :: response
== ::
++ kiss-clay :: in request ->$
$% [%font p=@p q=@tas r=@p s=@tas] :: set upstream
[%info p=@p q=@tas r=nori] :: internal edit
[%init p=@p] :: report install
[%into p=@p q=@tas r=khan] :: external edit
[%lynx p=@p q=@tas r=(unit ,?)] :: sync to unix
[%merg p=@p q=@tas r=@p s=@tas t=germ] :: merge desks
[%plug p=@p q=@tas r=@p s=@tas] :: unset upstream
[%wart p=sock q=@tas r=path s=*] :: network request
[%warp p=sock q=riff] :: file request
[%wegh ~] :: report memory
== ::
::
::::
::
++ blew ,[p=@ud q=@ud] :: columns rows
++ belt :: old belt
$% [%aro p=?(%d %l %r %u)] :: arrow key
[%bac ~] :: true backspace
[%ctl p=@c] :: control-key
[%del ~] :: true delete
[%met p=@c] :: meta-key
[%ret ~] :: return
[%txt p=(list ,@c)] :: utf32 text
== ::
++ blit :: old blit
$% [%bel ~] :: make a noise
[%clr ~] :: clear the screen
[%hop p=@ud] :: set cursor position
[%lin p=(list ,@c)] :: set current line
[%mor ~] :: newline
[%sag p=path q=*] :: save to jamfile
[%sav p=path q=@] :: save to file
== ::
++ dill-belt :: new belt
$% [%aro p=?(%d %l %r %u)] :: arrow key
[%bac ~] :: true backspace
[%cru p=@tas q=(list tank)] :: echo error
[%ctl p=@] :: control-key
[%del ~] :: true delete
[%met p=@] :: meta-key
[%ret ~] :: return
[%rez p=@ud q=@ud] :: resize, cols, rows
[%txt p=(list ,@c)] :: utf32 text
[%yow p=gill] :: connect to app
== ::
++ dill-blit :: new blit
$% [%bel ~] :: make a noise
[%clr ~] :: clear the screen
[%hop p=@ud] :: set cursor position
[%mor p=(list dill-blit)] :: multiple blits
[%pro p=(list ,@c)] :: show as cursor/line
[%qit ~] :: close console
[%out p=(list ,@c)] :: send output line
[%sag p=path q=*] :: save to jamfile
[%sav p=path q=@] :: save to file
== ::
++ flog :: sent to %dill
$% [%crud p=@tas q=(list tank)] ::
[%text p=tape] ::
[%veer p=@ta q=path r=@t] :: install vane
[%vega p=path] :: reboot by path
[%verb ~] :: verbose mode
== ::
++ gill (pair ship term) :: general contact
::::
++ gift-dill :: out result <-$
$% [%bbye ~] :: reset prompt
[%blit p=(list blit)] :: terminal output
[%init p=@p] :: set owner
[%logo ~] :: logout
[%veer p=@ta q=path r=@t] :: install vane
[%vega p=path] :: reboot by path
[%verb ~] :: verbose mode
== ::
++ kiss-dill :: in request ->$
$% [%belt p=belt] :: terminal input
[%blew p=blew] :: terminal config
[%boot p=*] :: weird %dill boot
[%crud p=@tas q=(list tank)] :: error with trace
[%flog p=flog] :: wrapped error
[%flow p=@tas q=(list gill)] :: terminal config
[%hail ~] :: terminal refresh
[%hook ~] :: this term hung up
[%harm ~] :: all terms hung up
[%init p=ship] :: after gall ready
[%noop ~] :: no operation
[%talk p=tank] ::
[%text p=tape] ::
[%veer p=@ta q=path r=@t] :: install vane
[%vega p=path] :: reboot by path
[%verb ~] :: verbose mode
== ::
::
:::: %eyre
::
++ gram :: inter-ship message
$? [[%lon ~] p=hole] :: login request
[[%aut ~] p=hole] :: login reply
[[%hat ~] p=hole q=hart] :: login redirect
[[%get ~] p=@uvH q=[? clip httq]] :: remote request
[[%got ~] p=@uvH q=httr] :: remote response
== ::
:::: ::
++ kiss-eyre :: in request ->$
$% [%born ~] :: new unix process
[%crud p=@tas q=(list tank)] :: XX rethink
[%init p=@p] :: report install
[%them p=(unit hiss)] :: outbound request
[%they p=@ud q=httr] :: inbound response
[%this p=? q=clip r=httq] :: inbound request
[%thud ~] :: inbound cancel
[%wart p=sack q=@tas r=_`[path *]`*gram] :: urbit message
[%wegh ~] :: report memory
== ::
++ gift-eyre :: out result <-$
$% [%mass p=mass] :: memory usage
[%thou p=httr] :: raw http response
[%thus p=@ud q=(unit hiss)] :: http request/cancel
[%veer p=@ta q=path r=@t] :: drop-through
[%vega p=path] :: drop-through
== ::
::
:::: %ford
::
++ hood :: assembly plan
$: zus=@ud :: zuse kelvin
sur=(list hoot) :: structures
lib=(list hoof) :: libraries
fan=(list horn) :: resources
src=(list hoop) :: program
== ::
++ hoof (pair term (unit (pair case ship))) :: resource reference
++ hoot (pair bean hoof) :: structure gate/core
++ hoop :: source in hood
$% [%& p=twig] :: direct twig
[%| p=beam] :: resource location
== ::
++ horn :: resource tree
$% [%ape p=twig] :: /~ twig by hand
[%arg p=twig] :: /$ argument
[%day p=horn] :: /| list by @dr
[%dub p=term q=horn] :: /= apply face
[%fan p=(list horn)] :: /. list
[%for p=path q=horn] :: /, descend
[%hel p=@ud q=horn] :: /% propagate heel
[%hub p=horn] :: /@ list by @ud
[%man p=(map span horn)] :: /* hetero map
[%nap p=horn] :: /_ homo map
[%now p=horn] :: /& list by @da
[%saw p=twig q=horn] :: /; operate on
[%see p=beam q=horn] :: /: relative to
[%sic p=tile q=horn] :: /^ cast
[%toy p=mark] :: /mark/ static
== ::
++ milk (trel ship desk silk) :: sourced silk
++ silk :: construction layer
$& [p=silk q=silk] :: cons
$% [%bake p=mark q=beam r=path] :: local synthesis
[%boil p=mark q=beam r=path] :: general synthesis
[%bunt p=mark] :: example of mark
[%call p=silk q=silk] :: slam
[%cast p=mark q=silk] :: translate
[%diff p=silk q=silk] :: diff
[%done p=(set beam) q=gage] :: literal
[%dude p=tank q=silk] :: error wrap
[%dune p=(set beam) q=(unit gage)] :: unit literal
[%file p=beam] :: from clay
[%join p=mark q=silk r=silk] :: merge
[%mash p=mark q=milk r=milk] :: annotate
[%mute p=silk q=(list (pair wing silk))] :: mutant
[%pact p=silk q=silk] :: patch
[%plan p=beam q=spur r=hood] :: structured assembly
[%reef ~] :: kernel reef
[%ride p=twig q=silk] :: silk thru twig
[%tabl p=(list (pair silk silk))] :: list
[%vale p=mark q=ship r=*] :: validate [our his]
[%volt p=(set beam) q=(cask ,*)] :: unsafe add type
== ::
::::
++ gift-ford :: out result <-$
$% [%made p=@uvH q=(each gage tang)] :: computed result
[%mass p=mass] :: memory usage
[%news ~] :: fresh depends
== ::
++ kiss-ford :: in request ->$
$% [%exec p=@p q=beak r=(unit silk)] :: make / kill
[%wasp p=@p q=@uvH] :: depends query
[%wegh ~] :: report memory
== ::
::
:::: %gall
::
++ club :: agent action
$% [%peer p=path] :: subscribe
[%poke p=cage] :: apply
[%pull ~] :: unsubscribe
[%pump ~] :: pump yes/no
== ::
++ cuft :: internal gift
$% [%coup p=(unit tang)] :: poke result
[%diff p=cage] :: subscription output
[%quit ~] :: close subscription
[%reap p=(unit tang)] :: peer result
== ::
++ culm :: config action
$% [%load p=scup] :: load/reload
:: [%kick ~] :: restart everything
:: [%stop ~] :: toggle suspend
:: [%wipe ~] :: destroy all state
== ::
++ cush (pair term club) :: internal kiss
++ dude term :: server identity
++ scup (pair ship desk) :: autoupdate
++ suss (trel dude ,@tas ,@da) :: config report
:::: ::
++ kiss-gall :: incoming request
$% [%conf p=dock q=culm] :: configure app
[%init p=ship] :: set owner
[%deal p=sock q=cush] :: full transmission
[%rote p=sack q=path r=*] :: remote request
[%roth p=sack q=path r=*] :: remote response
== ::
++ gift-gall :: outgoing result
$% [%onto p=(each suss tang)] :: about agent
[%unto p=cuft] :: within agent
[%mack p=(unit tang)] :: message ack
== ::
::
:::: %time
::
++ gift-time :: out result <-$
$% [%mass p=mass] :: memory usage
[%wake ~] :: wakey-wakey
== ::
++ kiss-time :: in request ->$
$% [%rest p=@da] :: cancel alarm
[%wait p=@da] :: set alarm
[%wake ~] :: timer activate
[%wegh ~] :: report memory
== ::
::
:::: %arvo
::
++ gift-arvo :: out result <-$
$? gift-ames
gift-clay
gift-dill
gift-eyre
gift-ford
gift-gall
gift-time
==
++ kiss-arvo :: in request ->$
$? kiss-ames
kiss-clay
kiss-dill
kiss-eyre
kiss-ford
kiss-gall
kiss-time
==
++ note-arvo :: out request $->
$? [@tas %meta vase]
$% [%a kiss-ames]
[%c kiss-clay]
[%d kiss-dill]
[%e kiss-eyre]
[%f kiss-ford]
[%g kiss-gall]
[%t kiss-time]
== ==
++ sign-arvo :: in result $<-
$% [%a gift-ames]
[%c gift-clay]
[%d gift-dill]
[%e gift-eyre]
[%f gift-ford]
[%g gift-gall]
[%t gift-time]
==
-- --

30
base/lib/helm/core.hook
View File

@ -45,24 +45,15 @@
|% :: helm library |% :: helm library
++ helm-work :: work in helm ++ helm-work :: work in helm
|= [[hide from] helm-part] |= [[hide from] helm-part]
?> =(src our)
=+ sez=(fall (~(get by hoc) ost) *helm-session) =+ sez=(fall (~(get by hoc) ost) *helm-session)
=> |% :: arvo structures => |% :: arvo structures
++ card :: ++ card ::
$% [%cash wire p=@p q=buck] :: $% [%cash wire p=@p q=buck] ::
[%conf wire dock %load ship term] :: [%conf wire dock %load ship term] ::
[%flog wire dill] :: [%flog wire flog] ::
[%plug wire @p @tas @p @tas] :: [%plug wire @p @tas @p @tas] ::
[%want wire sock path *] :: send message [%want wire sock path *] :: send message
== :: == ::
++ suss ,[term @tas @da] :: config report
++ dill :: sent to %dill
$% [%crud p=term q=(list tank)] :: fat report
[%text p=tape] :: thin report
[%veer p=@ta q=path r=@t] :: install vane
[%vega p=path] :: reboot by path
[%verb ~] :: verbose mode
== ::
++ move (pair bone card) :: user-level move ++ move (pair bone card) :: user-level move
-- --
|_ moz=(list move) |_ moz=(list move)
@ -81,7 +72,7 @@
=+ buz=(shax :(mix (jam ges) eny)) =+ buz=(shax :(mix (jam ges) eny))
=+ loy=(bruw 2.048 buz) =+ loy=(bruw 2.048 buz)
%- emit(bur `[his [0 sec:ex:loy]~]) %- emit(bur `[his [0 sec:ex:loy]~])
[%want /ticketing [our (sein his)] /q/ta his tic ges pub:ex:loy] [%want /helm/ticket [our (sein his)] /q/ta his tic ges pub:ex:loy]
:: ::
++ poke-init :: initialize ++ poke-init :: initialize
|= him=ship =< abet |= him=ship =< abet
@ -135,26 +126,31 @@
[%flog /reset %veer p way txt] [%flog /reset %veer p way txt]
:: ::
++ poke-will :: hear certificate ++ poke-will :: hear certificate
|= wil=(unit will) =< abet |= wil=(unit will)
?> ?=(^ bur) ?> ?=(^ bur)
?> ?=(^ wil) ?> ?=(^ wil)
=< abet
%- emil(bur ~) %- emil(bur ~)
~& [%poke-will wil]
:~ [%cash /helm p.u.bur q.u.bur u.wil] :~ [%cash /helm p.u.bur q.u.bur u.wil]
[%plug /helm our %main (sein our) %main] [%plug /helm our %home (sein our) %kids]
[%plug /helm our %arvo (sein our) %arvo]
[%plug /helm our %try (sein our) %try]
== ==
:: ::
++ poke-verb ++ poke-verb :: toggle verbose
|= ~ =< abet |= ~ =< abet
(emit %flog /helm %verb ~) (emit %flog /helm %verb ~)
:: ::
++ take-onto :: result of %conf ++ take-onto :: result of %conf
|= saw=(each suss tang) =< abet |= saw=(each suss tang) =< abet
~& [%take-onto saw]
%- emit %- emit
?- -.saw ?- -.saw
%| [%flog ~ %crud %onto `tang`p.saw] %| [%flog ~ %crud %onto `tang`p.saw]
%& [%flog ~ %text "<{<p.saw>}>"] %& [%flog ~ %text "<{<p.saw>}>"]
== ==
::
++ take-went :: result of %want
|= [way=path her=ship kay=cape] =< abet
(emit %flog ~ %text "went: {<[way kay]>}")
-- --
-- --

4
base/lib/kiln/core.hook
View File

@ -42,7 +42,7 @@
:: :: :: :: :: ::
:::: :: :: :::: :: ::
!: :: :: !: :: ::
|% :: helm library |% :: kiln library
++ kiln-work :: work in kiln ++ kiln-work :: work in kiln
|= [[hide from] kiln-part] |= [[hide from] kiln-part]
?> =(src our) ?> =(src our)
@ -296,7 +296,7 @@
:~ :~ leaf/"" :~ :~ leaf/""
leaf/"done setting up scratch space in %{-}" leaf/"done setting up scratch space in %{-}"
leaf/"please resolve the following conflicts and run" leaf/"please resolve the following conflicts and run"
leaf/":helm+merge %{(trip syd)} {<our>} %{-}" leaf/":+merge %{(trip syd)} {<our>} %{-}"
== ==
?~ annotated ?~ annotated
~ ~

19
base/pub/octo/fab/hymn.hook Normal file
View File

@ -0,0 +1,19 @@
::
::
:::: /hook/hymn/fab/octo/pub/
::
^- manx
;html
;head
;meta(charset "utf-8");
;script(type "text/javascript", src "//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.js");
;script(type "text/javascript", src "/~~/~/at/base/lib/urb.js");
;link(type "text/css", rel "stylesheet", href "/home/pub/octo/src/main.css");
;title: urbit cit cat eot
==
;body
;div#bord;
;div#whom;
;script(type "text/javascript", src "/home/pub/octo/src/main.js");
==
==

54
base/pub/octo/src/main.css Normal file
View File

@ -0,0 +1,54 @@
#bord,
#whom {
width: 600px;
text-align: center;
position: absolute;
left: 50%;
margin-left: -300px;
}
#bord {
width: 600px;
height: 600px;
position: absolute;
top: 18px;
}
#whom,
.spac {
font-size: 100px;
line-height: 200px;
}
.spac {
width: 198px;
height: 198px;
border: 1px solid #000;
text-align: center;
float: left;
cursor: pointer;
}
.spac[data-index="0-0"],
.spac[data-index="1-0"],
.spac[data-index="2-0"] {
border-top: 0;
}
.spac[data-index="0-0"],
.spac[data-index="0-1"],
.spac[data-index="0-2"] {
border-left: 0;
}
.spac[data-index="2-0"],
.spac[data-index="2-1"],
.spac[data-index="2-2"] {
border-right: 0;
}
.spac[data-index="0-2"],
.spac[data-index="1-2"],
.spac[data-index="2-2"] {
border-bottom: 0;
}

44
base/pub/octo/src/main.js Normal file
View File

@ -0,0 +1,44 @@
$(function() {
$bord = $('#bord')
$whom = $('#whom')
symb = [" ","✕","◯"]
draw = function(state) {
space = function(_state,x,y) {
return "<div class='spac' data-index='"+x+"-"+y+
"'>"+symb[_state]+"</div>"
}
s = ""
x = 0
y = 0
for(i=0;i<9;i++) {
s += space((state.box[i] ? 1 : 0)+(state.boo[i] ? 2 : 0),x,y)
x++
if((i+1)%3 == 0) {
y++
x=0
}
}
$bord.html(s)
$whom.html((state.who == 'x' ? symb[1] : symb[2]))
}
urb.appl = 'octo'
urb.bind('/octo/o', function(err,res) {
draw(res.data)
})
draw({
box:[false,false,false,false,false,false,false,false,false],
boo:[false,false,false,false,false,false,false,false,false]
})
$bord.on('click', function(e) {
$t = $(e.target).closest('.spac')
data = $.map(
$t.attr('data-index').split('-'),
function(i) { return Number(i); })
urb.send({mark:'octo-move',data:data})
})
})

24
base/sur/sole/core.hook
View File

@ -89,28 +89,4 @@
leg=(list sole-edit) :: unmerged edits leg=(list sole-edit) :: unmerged edits
buf=sole-buffer :: sole state buf=sole-buffer :: sole state
== :: == ::
++ dill-belt :: sole input
$% [%aro p=?(%d %l %r %u)] :: arrow key
[%bac ~] :: true backspace
[%cru p=@tas q=(list tank)] :: echo error
[%ctl p=@] :: control-key
[%del ~] :: true delete
[%met p=@] :: meta-key
[%ret ~] :: return
[%rez p=@ud q=@ud] :: resize, cols, rows
[%txt p=(list ,@c)] :: utf32 text
[%yow p=gill] :: connect to app
== ::
++ dill-blit :: sole output
$% [%bel ~] :: make a noise
[%clr ~] :: clear the screen
[%hop p=@ud] :: set cursor position
[%mor p=(list dill-blit)] :: multiple blits
[%pro p=(list ,@c)] :: show as cursor/line
[%qit ~] :: close console
[%out p=(list ,@c)] :: send output line
[%sag p=path q=*] :: save to jamfile
[%sav p=path q=@] :: save to file
== ::
++ gill (pair ship term) :: general contact
-- --