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

Switch / to # for + to /.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-20 03:48:17 -08:00
parent 9da5151958
commit 2519413c4f
145 changed files with 1028 additions and 1039 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ape/ask.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/ask/ape
:::: /hoon#ask#ape
::
/? 314
/+ sole
@ -17,13 +17,13 @@
~| [%not-in-whitelist src.bow]
?> (~(has in (sa (limo ~zod our.bow ~talsur-todres ~))) src.bow)
:_ +>.$(sos (~(put by sos) ost.bow *sole-share))
=- [(effect %mor pro/[& %$ "<listening>"] -)]~
=- [(effect %mor pro#[& %$ "<listening>"] -)]~
=+ all=adrs
[tan/(turn all message) (turn all put-mail)]
[tan#(turn all message) (turn all put-mail)]
::
++ adrs (sort (~(tap by adr)) aor)
++ effect |=(fec+sole-effect [ost.bow %diff %sole-effect fec])
++ message |=(ask+@t leaf/"ask: {(trip ask)}")
++ message |=(ask+@t leaf#"ask: {(trip ask)}")
++ put-mail |=(ask+@t =+(pax=(rash ask unix-path) [%sav pax '']))
++ unix-path :: split into path of "name" and "extension"
;~ (glue dot)
@ -34,24 +34,24 @@
++ poke-ask-mail
|= ask+@t
^- (quip {bone card} +>)
~| have-mail/ask
~| have-mail#ask
?< (~(has in adr) ask)
:_ +>.$(adr (~(put in adr) ask))
=+ [mez=[(message ask)]~ sav=(put-mail ask)]
%+ turn (prey /sole bow)
|=({ost+bone ^} (effect(ost.bow ost) %mor tan/mez sav ~))
|=({ost+bone ^} (effect(ost.bow ost) %mor tan#mez sav ~))
::
++ poke-sole-action
|= act+sole-action
^- (quip {bone card} +>)
?- -.act
$clr `+>.$
$ret [[(effect tan/(turn adrs message))]~ +>.$] :: re-print list
$ret [[(effect tan#(turn adrs message))]~ +>.$] :: re-print list
$det :: reject all input
=+ som=(~(got by sos) ost.bow) :: XX this code belongs in a library
=^ inv som (~(transceive sole som) +.act)
=^ det som (~(transmit sole som) inv)
=. sos (~(put by sos) ost.bow som)
[[(effect det/det)]~ +>.$]
[[(effect det#det)]~ +>.$]
==
--

46
ape/bit.hoon
View File

@ -43,14 +43,14 @@ $: cred+(unit {app-secret+@t client-id+@t})
|_ {hid+bowl vat+axle}
:: ++ prep ~&(%bit-prep-wipe ,_`.)
++ return [*(list move) .]
++ redirect-uri [hostname `/~~/home/pub/bit/fab ~]
++ redirect-uri [hostname `/~~/home#pub#bit#fab ~]
++ hostname ^- hart
?+ (clan our.hid) !!
$czar [| ?+(our.hid `8.443 $~fyr `8.444) `/localhost]
$duke [| `8.444 `/org/urbit/(crip +:<our.hid>)]
$duke [| `8.444 `/org#urbit#(crip +:<our.hid>)]
==
++ auth-url
%+ weld "https://sandbox.coinbase.com/oauth/authorize"
%+ weld "https://sandbox.coinbase.com#oauth#authorize"
%- tail:earn :~
'response_type'^%code
'client_id'^client-id:(need cred.vat)
@ -64,15 +64,15 @@ $: cred+(unit {app-secret+@t client-id+@t})
|= {pour-path+wire end-point+path req+$@($get {$post p+json})}
^- move
%^ send:http ost.hid pour-path
[/com/coinbase/api v1/end-point req ~ ['access_token' access:(need auth.vat)]~]
[/com#coinbase#api v1/end-point req ~ ['access_token' access:(need auth.vat)]~]
::
++ api-call
|= {res+mark req+bit-api-call} ^+ return
~| %missing-access-token
[[ost.hid %hiss / res bit-api-call/[access:(need auth.vat) req]]~ +>.$]
[[ost.hid %hiss / res bit-api-call#[access:(need auth.vat) req]]~ +>.$]
::
++ print |=(msg+tape [[(publish [%lin & (crip msg)]~)]~ +>.$])
++ callback-uri [hostname [`%json /~/to/[dap.hid]/json] ~[anon/'' wire/'/']]
++ callback-uri [hostname [`%json /~/to#[dap.hid]/json] ~[anon#'' wire#'/']]
++ poke-auth
|= arg+{secr+cord id+cord}
=. cred.vat `arg
@ -91,7 +91,7 @@ $: cred+(unit {app-secret+@t client-id+@t})
^- move
[ost.hid %send way [his dap.hid] %poke mez]
::
++ poke-bit-send |=(req+bit-send (api-call %bit-transaction send/req))
++ poke-bit-send |=(req+bit-send (api-call %bit-transaction send#req))
++ sigh-bit-transaction
|=({* trid+@t} (print "transaction success {(trip trid)}"))
::
@ -106,17 +106,17 @@ $: cred+(unit {app-secret+@t client-id+@t})
|= $~ :: gen new address with callback
:_ +>.$
:_ ~
%+ old-api /addr-request/(scot %p src.hid)
%+ old-api /addr-request#(scot %p src.hid)
:+ /addresses %post
%+ joba %address
%- jobe :~
label/(jape "address for {<src.hid>}")
label#(jape "address for {<src.hid>}")
'callback_url'^(jape (earn callback-uri))
==
::
++ pour-addr-request :: send new address to sender
|= {pax+path rez+json}
=+ adr=(need ((ot address/so ~):jo rez))
=+ adr=(need ((ot address#so ~):jo rez))
=+ his=(slav %p +<.pax)
~! incoming.vat
=. incoming.vat
@ -128,7 +128,7 @@ $: cred+(unit {app-secret+@t client-id+@t})
++ poke-bit-addr-made :: receive address for sending
|= addr+@t
=+ amount=(~(got by outgoing.vat) src.hid) :: get amount to send
(api-call %bit-transaction txt-send/[addr amount])
(api-call %bit-transaction txt-send#[addr amount])
::
++ poke-oauth2-code
|= code+cord
@ -136,7 +136,7 @@ $: cred+(unit {app-secret+@t client-id+@t})
[~ code]
?< ?=($~ cred.vat)
=+ req=[code [client-id app-secret]:u.cred.vat redirect-uri]
[[ost.hid %hiss / %oauth-tokens bit-get-token/req]~ +>.$]
[[ost.hid %hiss / %oauth-tokens bit-get-token#req]~ +>.$]
::
++ sigh-oauth-tokens
|= {wire toke+{access+@t refresh+@t}}
@ -157,29 +157,29 @@ $: cred+(unit {app-secret+@t client-id+@t})
~&('contact-exists' (~(get by contacts.vat) to.arg))
=+ ^= info
?~ cur.arg
[to/s/to.arg amount/s/(need amone.arg) ~]
[to#s#to.arg amount#s#(need amone.arg) ~]
?~ nt.arg
:* to/s/to.arg
'amount_currency_iso'^s/(need cur.arg)
'amount_string'^s/(need amtwo.arg)
:* to#s#to.arg
'amount_currency_iso'^s#(need cur.arg)
'amount_string'^s#(need amtwo.arg)
~
==
:* to/s/to.arg
amount/s/(need amtwo.arg)
'amount_string'^s/(need amtwo.arg)
:* to#s#to.arg
amount#s#(need amtwo.arg)
'amount_string'^s#(need amtwo.arg)
~
==
=+ ^= pst
(jobe transaction/(jobe info) ~)
[[(old-api /send /transactions/'send_money' %post pst) ~] +>.$]
(jobe transaction#(jobe info) ~)
[[(old-api /send /transactions#'send_money' %post pst) ~] +>.$]
::
++ poke-json
|= arg+json
~& arg
=+ [adr amo]=(need %.(arg (ot address/so amount/no ~):jo))
=+ [adr amo]=(need %.(arg (ot address#so amount#no ~):jo))
=+ frm=(~(get by incoming.vat) adr)
(print "just received {(trip amo)} BTC from {<frm>}")
::(old-api /get-id /transactions/[transaction-id] %get)
::(old-api /get-id /transactions#[transaction-id] %get)
::
++ pour-get-id :: display transaction info
|= {pax+path rez+json}

124
ape/cloud.hoon
View File

@ -77,7 +77,7 @@
'code'^code
:- 'client_id'
'd8f46b95af38c1ab3d78ad34c2157a6959c23eb0eb5d8e393f650f08e6a75c6f'
'redirect_uri'^'http://localhost:8443/home/pub/cloud/fab'
'redirect_uri'^'http://localhost:8443/home#pub#cloud#fab'
==
::
++ parse-iso8601
@ -109,7 +109,7 @@
[%create-do some]
::[%create-gce some]
:- %action
(ot id/so name/so act/parse-droplet-action ~)
(ot id#so name#so act#parse-droplet-action ~)
==
++ parse-droplet-action
=> jo
@ -143,7 +143,7 @@
::
++ parse-region
=> jo
(ot name/so ~)
(ot name#so ~)
::
++ parse-id-text
|= jon+json
@ -160,13 +160,13 @@
user-data+(unit @t)
==
%- jobe
:~ name/s/name
size/s/size
image/s/image
backups/?~(backups ~ b/u.backups)
ipv6/?~(ipv6 ~ b/u.ipv6)
'user_data'^?~(user-data ~ s/u.user-data)
'private_networking'^?~(private-networking ~ b/u.private-networking)
:~ name#s#name
size#s#size
image#s#image
backups#?~(backups ~ b#u.backups)
ipv6/?~(ipv6 ~ b#u.ipv6)
'user_data'^?~(user-data ~ s#u.user-data)
'private_networking'^?~(private-networking ~ b#u.private-networking)
==
::
++ convert-do
@ -191,11 +191,11 @@
|= instance
^- json
%- jobe
:~ name/`json`s/name
id/s/id
status/s/status
created/s/(crip (dust (yore created)))
snapshot/s/snapshot
:~ name#`json`s#name
id#s#id
status#s#status
created#s#(crip (dust (yore created)))
snapshot#s#snapshot
==
++ map-to-list
|= a+(map {@t @t} image)
@ -211,7 +211,7 @@
|= image
^- json
%- jobe
:~ name/s/name id/s/id ==
:~ name#s#name id#s#id ==
--
::::::::::::::::
:: main door ::
@ -225,7 +225,7 @@
++ thou
|= {pour-path+path resp+?(httr *)}
^- {(list move) _+>.$}
~& unhandled-pour-path/resp
~& unhandled-pour-path#resp
:_ +>.$ ~
::
++ httpreq
@ -324,7 +324,7 @@
^- {(list move) _+>.$}
~| resp
=+ body=(rash q:(need r.resp) apex:poja)
~| receive-auth/resp(r body)
~| receive-auth#resp(r body)
=+ [ac re]=(need ((ot 'access_token'^so 'refresh_token'^so ~):jo body))
=: access.do.toke.vat ac
refresh.do.toke.vat re
@ -342,11 +342,11 @@
%. act
=> jo
%- ot
:~ name/so
size/so
image/so
ssh/(ar so)
backups/(mu bo)
:~ name#so
size#so
image#so
ssh#(ar so)
backups#(mu bo)
'ipv6'^(mu bo)
'priv_networking'^(mu bo)
'user_data'^(mu so)
@ -366,7 +366,7 @@
/create-do
~[%digitalocean %api] /v2/droplets
[%post body]
%^ mo ['Content-Type' 'application/json; charset=utf-8' ~]
%^ mo ['Content-Type' 'application#json; charset=utf-8' ~]
['Authorization' (cat 3 'Bearer ' access.do.toke.vat) ~]
~
~
@ -378,13 +378,13 @@
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
++ reserve-ip
|= name+json
=+ nam=(need ((ot name/so ~):jo name))
=+ nam=(need ((ot name#so ~):jo name))
%- httpreq
:* /reserve-ip/[nam]
~['googleapis' 'www']
/compute/v1/projects/urbcloud/regions/us-central1/addresses
[%post (joba name/s/nam)]
%^ mo ['Content-Type' 'application/json' ~]
[%post (joba name#s#nam)]
%^ mo ['Content-Type' 'application#json' ~]
['Authorization' (cat 3 'Bearer ' access.gce.toke.vat) ~]
~
*quay
@ -396,14 +396,14 @@
~| r.resp
=+ parsed=(rash q:(need r.resp) apex:poja)
=+ ur=(need ((ot 'targetLink'^so ~):jo parsed))
~& initial-response/parsed
~& initial-response#parsed
=+ name=-:(flop q.q:(need (epur ur)))
=+ buf=`@da`(add ~s10 now)
:_(+>.$ [ost %wait `path`/check-ip-status/[name] buf]~)
::
++ wake-check-ip-status
|= {name+path $~}
~& this-is-the-name/name
~& this-is-the-name#name
=+ nam=?~(name !! -.name)
:_ +>.$
:_ ~
@ -412,37 +412,37 @@
~['googleapis' 'www']
`path`/compute/v1/projects/urbcloud/regions/us-central1/addresses/[nam]
%get
%^ mo ['Content-Type' 'application/json' ~]
%^ mo ['Content-Type' 'application#json' ~]
['Authorization' (cat 3 'Bearer ' access.gce.toke.vat) ~]
~
*quay
==
++ thou-check-ip-status
|= {name+path resp+httr}
~& api-resp/resp
~& api-resp#resp
=+ parsed=(rash q:(need r.resp) apex:poja)
!!
::?. =('RESERVED' (need ((ot status/so ~):jo parsed)))
::?. =('RESERVED' (need ((ot status#so ~):jo parsed)))
::
++ create-gce
|= jon+json
=+ ^- {name+@t image+@t number+@ud}
(need ((ot name/so 'instance_img'^so number/ni ~):jo jon))
(need ((ot name#so 'instance_img'^so number#ni ~):jo jon))
|- ^- (list move)
?~ number ~
:_ $(number (dec number))
=+ nam=(cat 3 name (scot %ud number))
=+ ^- body+json
%- jobe
:~ name/s/nam
'machineType'^s/'zones/us-central1-a/machineTypes/n1-standard-1'
:~ name#s#nam
'machineType'^s#'zones#us-central1-a#machineTypes#n1-standard-1'
:- %disks :- %a :_ ~
%- jobe
:+ 'initializeParams'^`json`(joba 'sourceImage'^s/image)
boot/b/%.y
:+ 'initializeParams'^`json`(joba 'sourceImage'^s#image)
boot#b#%.y
~
:- 'networkInterfaces' :- %a :_ ~
(joba 'network' `json`[%s 'global/networks/default'])
(joba 'network' `json`[%s 'global#networks#default'])
==
^- move
%- httpreq
@ -450,7 +450,7 @@
`(list cord)`~['googleapis' 'www']
`path`/compute/v1/projects/urbcloud/zones/us-central1-a/'instances'
[%post `json`body]
%^ mo ['Content-Type' 'application/json' ~]
%^ mo ['Content-Type' 'application#json' ~]
['Authorization' (cat 3 'Bearer ' access.gce.toke.vat) ~]
~
`quay`[%key access.gce.toke.vat]~
@ -482,8 +482,8 @@
?: ?=($delete -.action)
%delt
:- %post
%+ jobe type/s/(convert-do -.action)
?.(?=($snapshot -.action) ~ [name/s/p.action ~])
%+ jobe type#s#(convert-do -.action)
?.(?=($snapshot -.action) ~ [name#s#p.action ~])
^- move
=+ ^= req
%- httpreq :*
@ -491,7 +491,7 @@
~[%digitalocean %api]
?:(?=($delt meth) /v2/droplets/[id] /v2/droplets/[id]/actions)
meth
%^ mo ['Content-Type' 'application/json' ~]
%^ mo ['Content-Type' 'application#json' ~]
['Authorization' (cat 3 'Bearer ' access.do.toke.vat) ~] ~
*quay
==
@ -499,7 +499,7 @@
::
$gce
=+ ^= head-query
:- %^ mo ['Content-Type' 'application/json' ~]
:- %^ mo ['Content-Type' 'application#json' ~]
['Authorization' (cat 3 'Bearer ' access.gce.toke.vat) ~] ~
*quay
?- -.action
@ -524,12 +524,12 @@
==
++ thou-do-act
|= {pax+path resp+httr}
~& [resp act/pax]
~& [resp act#pax]
:_ +>.$ ~
::
++ thou-gce-act
|= {pax+path resp+httr}
~& [resp act/pax]
~& [resp act#pax]
:_ +>.$ ~
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: retrieve google instances and images ::
@ -559,7 +559,7 @@
^- {(list move) _+>.$}
=+ parsed=(rash q:(need r.resp) apex:poja) :: body httr to json
~| 'no list received or bad json'
=+ items=(need ((ot items/(ar some) ~):jo parsed))
=+ items=(need ((ot items#(ar some) ~):jo parsed))
=+ ^- ins+(list {@t instance})
~| 'bad-json'^items
%+ turn items
@ -570,10 +570,10 @@
%- need
%. in =+ jo
%- ot
:~ name/so
id/so
status/so
'creationTimestamp'^(su parse-iso8601) ::zone/so
:~ name#so
id#so
status#so
'creationTimestamp'^(su parse-iso8601) ::zone#so
'machineType'^(cu tail-url so)
:: 'networkInterfaces'^parse-ip-gce
==
@ -593,7 +593,7 @@
|= {pax+path resp+httr}
^- {(list move) _+>.$}
=+ parsed=(rash q:(need r.resp) apex:poja)
=+ imgz=(need ((ot items/(ar some) ~):jo parsed))
=+ imgz=(need ((ot items#(ar some) ~):jo parsed))
=. images.vat
%- mo
%+ weld
@ -607,7 +607,7 @@
%- need
%. a =+ jo
%- ot
[name/so id/so ~]
[name#so id#so ~]
:_ +>.$ [(spam `json`(image-to-json `(list image)`(map-to-list images.vat)))]
::
++ wake-refresh-gce |=({path $~} [list-gce +>.$])
@ -624,7 +624,7 @@
/v2/[som]
%get
%- mo
:~ ['Content-Type' 'application/json' ~]
:~ ['Content-Type' 'application#json' ~]
['Authorization' (cat 3 'Bearer ' access.do.toke.vat) ~]
==
==
@ -634,10 +634,10 @@
|= {pax+path resp+httr}
^- {(list move) _+>.$}
=+ parsed=(rash q:(need r.resp) apex:poja) :: parse httr to json
~| receive-list/parsed
=+ dar=(need ((ot droplets/(ar some) ~):jo parsed)) :: reparse ar of insts
~| receive-list#parsed
=+ dar=(need ((ot droplets#(ar some) ~):jo parsed)) :: reparse ar of insts
=+ ^- dropz+(list {@t instance})
~| bad-json/-.dar
~| bad-json#-.dar
%+ turn dar
|= drp+json ^- {@t instance}
=- ~! - -
@ -648,11 +648,11 @@
%. drp
=+ jo
%- ot
:~ name/so
id/parse-id-text
status/so
:~ name#so
id#parse-id-text
status#so
'created_at'^(su parse-iso8601)
image/(ot name/so ~)
image#(ot name#so ~)
==
=. insts.vat
%- mo
@ -670,10 +670,10 @@
++ thou-list-do-images
|= {pax+path resp+httr}
=+ parsed=(rash q:(need r.resp) apex:poja)
~| crashed-do-images/parsed
~| crashed-do-images#parsed
=+ ^= imgz
%- need
((ot images/(ar (ot [name/so distribution/so id/no ~])) ~):jo parsed)
((ot images#(ar (ot [name#so distribution#so id#no ~])) ~):jo parsed)
=+ ^- images+(list {{@t @t} image})
%+ turn imgz
|= {name+@t dist+@t id+@t}

36
ape/dojo.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/dojo/app :: ::::
:::: /hoon#dojo#app :: ::::
:: :: ::
/? 314 :: arvo kelvin
/- sole :: console structures
@ -18,7 +18,7 @@
$: say+sole-share :: command-line state
dir+beam :: active path
poy+(unit dojo-project) :: working
{lib+(list hoof) arc+(list hoof)} :: lib/sur
{lib+(list hoof) arc+(list hoof)} :: lib#sur
var+(map term cage) :: variable state
old+(set term) :: used TLVs
buf+tape :: multiline buffer
@ -34,7 +34,7 @@
{$file p+beam} :: save to clay
{$http p+?($post $put) q+purl} :: http outbound
{$poke p+goal} :: poke app
{$show p+?($0 $1 $2 $3)} :: print val/type/twig
{$show p+?($0 $1 $2 $3)} :: print val#type#twig
{$verb p+term} :: store variable
== ::
++ dojo-source :: construction node
@ -425,13 +425,13 @@
$?($eny $now $our) !!
$lib .(lib ~)
$arc .(arc ~)
$dir .(dir [[our.hid %home ud/0] /])
$dir .(dir [[our.hid %home ud#0] /])
==
=+ cay=(~(got by rez) p.q.mad)
?- -.p.mad
$verb
=. var (~(put by var) p.p.mad cay)
~| bad-set/[p.p.mad p.q.cay]
~| bad-set#[p.p.mad p.q.cay]
=< dy-amok
?+ p.p.mad .
$eny ~|(%entropy-is-eternal !!)
@ -447,7 +447,7 @@
pax
=. dir (need (tome pax))
=- +>(..dy (he-diff %tan - ~))
rose/[" " `~]^~[leaf/"=%" (smyt (tope he-beak s.dir))]
rose#[" " `~]^~[leaf#"=%" (smyt (tope he-beak s.dir))]
==
::
$poke
@ -479,7 +479,7 @@
$http
?> ?=($mime p.cay)
=+ mim=;;(mime q.q.cay)
=+ maf=(~(add ja *math) content-type/(moon p.mim))
=+ maf=(~(add ja *math) content-type#(moon p.mim))
(dy-eyre /show [q.p.mad p.p.mad maf ~ q.mim])
::
$show
@ -500,7 +500,7 @@
$tang ;;(tang q.q.cay)
$httr
=+ hit=;;(httr q.q.cay)
=- (flop (turn `wall`- |=(a+tape leaf/(dash:ut a ''))))
=- (flop (turn `wall`- |=(a+tape leaf#(dash:ut a ''))))
:- "HTTP {<p.hit>}"
%+ weld
(turn q.hit |=({a+@t b+@t} "{(trip a)}: {(trip b)}"))
@ -613,7 +613,7 @@
%+ sloop
%- ~(rep by var)
|= {{a+term @ b+vase} c+vase} ^- vase
(sloop b(p face/[a p.b]) c)
(sloop b(p face#[a p.b]) c)
!>([our=our now=now eny=eny]:hid)
::
++ dy-made-dial :: dialog product
@ -656,8 +656,8 @@
::
$|
=+ hiz=;;(hiss +<.q.vax)
=. ..dy (he-diff %tan leaf/"< {(earn p.hiz)}" ~)
(dy-eyre(pro `(slap (slot 7 vax) cnzy/%q)) /scar hiz)
=. ..dy (he-diff %tan leaf#"< {(earn p.hiz)}" ~)
(dy-eyre(pro `(slap (slot 7 vax) cnzy#%q)) /scar hiz)
==
::
++ dy-sigh-scar :: scraper result
@ -744,14 +744,14 @@
::
++ he-dope :: sole user of ++dp
|= txt+tape ::
^- (each (unit (each dojo-command tape)) hair) :: prefix/result
^- (each (unit (each dojo-command tape)) hair) :: prefix#result
=+ len=+((lent txt)) :: line length
=. txt :(weld buf txt "\0a") ::
=+ vex=((full dp-command-line):dp [1 1] txt) ::
?: =(q.p.vex len) :: matched to line end
[%& ~] ::
?: =(p.p.vex +((lent (skim txt |=(a+@ =(10 a)))))) :: parsed all lines
[%& ~ ?~(q.vex [%| txt] `p.u.q.vex)] :: new buffer/complete
[%& ~ ?~(q.vex [%| txt] `p.u.q.vex)] :: new buffer#complete
[%| p.p.vex (dec q.p.vex)] :: syntax error
::
++ he-duke :: ++he-dope variant
@ -766,7 +766,7 @@
++ he-easter :: hint messages
^+ .
=. egg +(egg)
=- ?~(msg ..he-diff (he-diff %tan leaf/u.msg ~))
=- ?~(msg ..he-diff (he-diff %tan leaf#u.msg ~))
^- msg+(unit tape)
?+ (clan our.hid) ~
$pawn ?+ egg ~
@ -783,7 +783,7 @@
++ he-beak -:he-beam
++ he-beam :: logical beam
^- beam
?. =(ud/0 r.dir) dir
?. =(ud#0 r.dir) dir
dir(r [%da now.hid])
::
++ he-card :: emit gift
@ -923,7 +923,7 @@
(he-diff [%err (lent txt)])
=+ old=(weld ?~(buf "> " " ") (tufa buf.say))
=^ cal say (~(transmit sole say) [%set ~])
=. +>.$ (he-diff %mor txt/old nex/~ det/cal ~)
=. +>.$ (he-diff %mor txt#old nex#~ det#cal ~)
?- -.u.p.doy
$& (he-plan(buf ~) p.u.p.doy)
$| he-prom(buf p.u.p.doy)
@ -984,11 +984,11 @@
?. (~(has by hoc) ost.hid) [~ .]
~& [%dojo-peer-replaced ost.hid]
~(he-abut he ~ (~(got by hoc) ost.hid))
=+ ses=%*(. *session -.dir [our.hid %home ud/0])
=+ ses=%*(. *session -.dir [our.hid %home ud#0])
(wrap he-peer):(arm-session moz ses)
::
++ poke-sole-action
|= act+sole-action ~| poke/act %. act
|= act+sole-action ~| poke#act %. act
(wrap he-type):arm
++ made (wrap he-made):arm
++ sigh-httr (wrap he-sigh):arm

4
ape/hood.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/hood/ape :: ::
:::: /hoon#hood#ape :: ::
:: :: ::
/? 314 :: zuse version
/+ sole, talk, helm, kiln, drum :: libraries
@ -38,7 +38,7 @@
|_ $: hid+bowl :: system state
hood-0 :: server state
== ::
++ able :: find/make part
++ able :: find#make part
|* hed+hood-head
=+ rep=(~(get by lac) hed)
=+ par=?^(rep u.rep `hood-part`(hood-make our.hid hed))

10
ape/oct1.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/oct1/ape :::::: dependencies
:::: /hoon#oct1/ape :::::: dependencies
:: :: ::
/? 310 :: arvo version
/- sole, oct1 :: structures
@ -50,13 +50,13 @@
?.(dud fail wild:kind) ::
++ kind =+(res:here ?~(- + (word(gam new:here) ->))) :: move result
++ prom (fect %pro %& %oct1 voy:here) :: update prompt
++ rend (turn `wall`tab:here |=(tape txt/+<)) :: table print
++ rend (turn `wall`tab:here |=(tape txt#+<)) :: table print
++ sawn .(eye (~(del by eye) ost)) :: console unsubscribe
++ seen .(eye (~(put by eye) ost *sole-share)) :: console subscribe
++ show prom:(fect %mor rend) :: update console
++ tame (flap |=(_. prom:+<)) :: light update
++ wild (flap |=(_. show:+<)) :: full update
++ word |=(tape (flap |=(_+> (fect:+< txt/+>+<)))) ::
++ word |=(tape (flap |=(_+> (fect:+< txt#+>+<)))) ::
:: :: ::
:::: :::::: process UI
:: :: ::
@ -67,11 +67,11 @@
++ abet ..work(eye (~(put by eye) ost say)) :: resolve
++ delt |= cal+sole-change :: edit command line
=^ cul say (~(remit sole say) cal good) ::
?~(cul abet fail:(fect:abet det/u.cul)) ::
?~(cul abet fail:(fect:abet det#u.cul)) ::
++ dive =+ (rust (tufa buf.say) (punt come)) :: apply command line
?~(- fail ?~(-> show (kick:wipe ->+))) ::
++ good |=((list @c) -:(rose (tufa +<) come)) :: validate input
++ wipe =^ cal say (~(transmit sole say) set/~) :: clear line
++ wipe =^ cal say (~(transmit sole say) set#~) :: clear line
(fect:abet %det cal) ::
-- ::
:: :: ::

10
ape/oct2.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/oct2/ape :::::: dependencies
:::: /hoon#oct2/ape :::::: dependencies
:: :: ::
/? 310 :: arvo version
/- sole, oct2 :: structures
@ -67,13 +67,13 @@
++ kind =+(res:here ?~(- + (word(gam new:here) ->))) :: move result
++ hail |=(? tame(gam (hey:here +<))) :: toggle subscriber
++ prom (fect %pro %& %oct2 voy:here) :: update prompt
++ rend (turn `wall`tab:here |=(tape txt/+<)) :: table print
++ rend (turn `wall`tab:here |=(tape txt#+<)) :: table print
++ sawn (hail(eye (~(del by eye) ost)) |) :: console unsubscribe
++ seen (hail(eye (~(put by eye) ost *sole-share)) &) :: console subscribe
++ show prom:(fect %mor rend) :: update console
++ tame (flap |=(_. prom:+<)) :: light update
++ wild (flap |=(_. show:+<)) :: full update
++ word |=(tape (flap |=(_+> (fect:+< txt/+>+<)))) ::
++ word |=(tape (flap |=(_+> (fect:+< txt#+>+<)))) ::
:: :: ::
:::: :::::: console UI
:: :: ::
@ -85,11 +85,11 @@
++ cusp (cope !ept:here) :: parsing rule
++ delt |= cal+sole-change :: edit command line
=^ cul say (~(remit sole say) cal good) ::
?~(cul abet fail:(fect:abet det/u.cul)) ::
?~(cul abet fail:(fect:abet det#u.cul)) ::
++ dive =+ (rust (tufa buf.say) (punt come)) :: apply command line
?~(- fail ?~(-> show (kick:wipe ->+))) ::
++ good |=((list @c) -:(rose (tufa +<) cusp)) :: validate input
++ wipe =^ cal say (~(transmit sole say) set/~) :: clear line
++ wipe =^ cal say (~(transmit sole say) set#~) :: clear line
(fect:abet %det cal) ::
-- ::
:: :: ::

10
ape/oct3.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/oct3/ape :::::: dependencies
:::: /hoon#oct3/ape :::::: dependencies
:: :: ::
/? 310 :: arvo version
/- sole, oct3 :: structures
@ -74,7 +74,7 @@
?.(dud fail wild:kind) ::
++ kind =+(res:here ?~(- + (word(gam new:here) ->))) :: move result
++ prom (fect %pro %& %oct3 voy:here) :: update prompt
++ rend (turn `wall`tab:here |=(tape txt/+<)) :: table print
++ rend (turn `wall`tab:here |=(tape txt#+<)) :: table print
++ sawn (hail(eye (~(del by eye) ost)) |) :: console unsubscribe
++ seen (hail(eye (~(put by eye) ost *sole-share)) &) :: console subscribe
++ show prom:(fect %mor rend) :: update console
@ -83,7 +83,7 @@
++ wild (flap |=(_. (fact:+< &/gam)) |=(_. show:+<)) :: full update
++ word |= txt+tape %+ flap :: game message
|=(_+> (fact:+< |/txt)) ::
|=(_+> (fect:+< txt/txt)) ::
|=(_+> (fect:+< txt#txt)) ::
:: :: ::
:::: :::::: console UI
:: :: ::
@ -95,11 +95,11 @@
++ cusp (cope !ept:here) :: parsing rule
++ delt |= cal+sole-change :: edit command line
=^ cul say (~(remit sole say) cal good) ::
?~(cul abet fail:(fect:abet det/u.cul)) ::
?~(cul abet fail:(fect:abet det#u.cul)) ::
++ dive =+ (rust (tufa buf.say) (punt come)) :: apply command line
?~(- fail ?~(-> show (kick:wipe ->+))) ::
++ good |=((list @c) -:(rose (tufa +<) cusp)) :: validate input
++ wipe =^ cal say (~(transmit sole say) set/~) :: clear line
++ wipe =^ cal say (~(transmit sole say) set#~) :: clear line
(fect:abet %det cal) ::
-- ::
:: :: ::

20
ape/oct4.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/oct4/ape :::::: dependencies
:::: /hoon#oct4/ape :::::: dependencies
:: :: ::
/? 310 :: arvo version
/- sole, oct4 :: structures
@ -83,27 +83,27 @@
++ kick |= point =^ dud gam ~(m at:here +<) ::
?.(dud fail wild:?~(rem kind (send +>-))) ::
++ kind =+(res:here ?~(- + (word(gam new:here) ->))) :: move result
++ plan |= (unit ship) ?~ +< stop(gam new:here) :: link/unlink
++ plan |= (unit ship) ?~ +< stop(gam new:here) :: link#unlink
?^(rem fail link(rem +<)) ::
++ plot |= (each point (unit ship)) :: apply command
?-(+<- $& (kick +<+), $| (plan +<+)) ::
++ like |*(* [/oct4 [+.rem dap] +<]) :: friend message
++ link (dish peer/(like /oct4)) :: subscribe to friend
++ link (dish peer#(like /oct4)) :: subscribe to friend
++ prom (fect %pro %& %oct4 stat) :: update prompt
++ rend (turn `wall`tab:here |=(tape txt/+<)) :: table print
++ rend (turn `wall`tab:here |=(tape txt#+<)) :: table print
++ sawn (hail(eye (~(del by eye) ost)) |) :: console unsubscribe
++ seen (hail(eye (~(put by eye) ost *sole-share)) &) :: console subscribe
++ send |=(point (dish poke/(like %oct4-move +<))) :: send move
++ send |=(point (dish poke#(like %oct4-move +<))) :: send move
++ show prom:(fect %mor rend) :: update console
++ soul =+((~(get by sup) ost) ?=([~ * %sole *] -)) :: is console
++ stat (weld ?~(rem ~ "@{(scow p/u.rem)}") voy:here) :: prompt line
++ stop ?~(rem done wild:(dish pull/(like ~))) :: unsubscribe
++ stat (weld ?~(rem ~ "@{(scow p#u.rem)}") voy:here) :: prompt line
++ stop ?~(rem done wild:(dish pull#(like ~))) :: unsubscribe
++ tame (flap |=(_. (fact:+< &/gam)) |=(_. prom:+<)) :: light update
++ wild (flap |=(_. (fact:+< &/gam)) |=(_. show:+<)) :: full update
++ with |=(? (word(rem ?:(+< rem ~)) "{<[+< src]>}")) ::
++ word |= txt+tape %+ flap :: game message
|=(_+> (fact:+< |/txt)) ::
|=(_+> (fect:+< txt/txt)) ::
|=(_+> (fect:+< txt#txt)) ::
:: :: ::
:::: :::::: console UI
:: :: ::
@ -115,11 +115,11 @@
++ cusp (cope !ept:here) :: parsing rule
++ delt |= cal+sole-change :: edit command line
=^ cul say (~(remit sole say) cal good) ::
?~(cul abet fail:(fect:abet det/u.cul)) ::
?~(cul abet fail:(fect:abet det#u.cul)) ::
++ dive =+ (rust (tufa buf.say) (punt comb)) :: apply command line
?~(- fail ?~(-> show (plot:wipe ->+))) ::
++ good |=((list @c) -:(rose (tufa +<) cusp)) :: validate input
++ wipe =^ cal say (~(transmit sole say) set/~) :: clear line
++ wipe =^ cal say (~(transmit sole say) set#~) :: clear line
(fect:abet %det cal) ::
-- ::
:: :: ::

38
ape/talk.hoon
View File

@ -978,7 +978,7 @@
=< (sh-fact %mor (murn (sort (~(tap by q.owners.she)) aor) .))
|= {pon+partner alt+atlas} ^- (unit sole-effect)
?. |(=(~ pan) (~(has in pan) pon)) ~
=- `[%tan rose/[", " `~]^- leaf/~(ta-full ta man.she pon) ~]
=- `[%tan rose#[", " `~]^- leaf#~(ta-full ta man.she pon) ~]
=< (murn (sort (~(tap by alt)) aor) .)
|= {a+ship b+presence c+human} ^- (unit tank) :: XX names
?- b
@ -1125,7 +1125,7 @@
|= {txt+cord exe+twig}
=> |.([(sell (slap (slop sh-twig-head seed) exe))]~)
=+ tan=p:(mule .)
(say [%fat tank/tan exp/txt] ~)
(say [%fat tank#tan exp#txt] ~)
::
++ say :: publish
|= sep+(list speech)
@ -1383,7 +1383,7 @@
=. soy (pa-notify:soy her %hear who)
pa-abet:soy
::
++ ra-think :: publish/review
++ ra-think :: publish#review
|= {pub+? her+ship tiz+(list thought)}
^+ +>
?~ tiz +>
@ -1560,7 +1560,7 @@
|= tay+partner
^- (list card)
?- -.tay
$| ~& tweet-abjure/p.p.tay
$| ~& tweet-abjure#p.p.tay
!!
::
$& ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]]
@ -1956,31 +1956,31 @@
::
++ tr-meta ^- tang
=. wen (sub wen (mod wen (div wen ~s0..0001))) :: round
=+ hed=leaf/"{(scow %uv sen)} at {(scow %da wen)}"
=+ hed=leaf#"{(scow %uv sen)} at {(scow %da wen)}"
=+ =< paz=(turn (~(tap by aud)) .)
|=({a+partner *} leaf/~(ta-full ta man a))
|=({a+partner *} leaf#~(ta-full ta man a))
=+ bok=(turn (sort (~(tap in bou)) aor) smyt)
[%rose [" " ~ ~] [hed >who< [%rose [", " "to " ~] paz] bok]]~
::
++ tr-body
|- ^- sole-effect
?+ -.sep tan/[>sep<]~
$exp tan/~[leaf/"# {(trip p.sep)}"]
$lin tan/~[leaf/"{?:(p.sep "" "@ ")}{(trip q.sep)}"]
$non tan/~
$app tan/~[rose/[": " ~ ~]^~[leaf/"[{(trip p.sep)}]" leaf/(trip q.sep)]]
$tax tan/~[leaf/(rend-work-duty p.sep)]
$url url/(crip (earf p.sep))
$mor mor/(turn p.sep |=(speech ^$(sep +<)))
$fat [%mor tan/(tr-rend-tors p.sep) $(sep q.sep) ~]
?+ -.sep tan#[>sep<]~
$exp tan#~[leaf#"# {(trip p.sep)}"]
$lin tan#~[leaf#"{?:(p.sep "" "@ ")}{(trip q.sep)}"]
$non tan#~
$app tan#~[rose#[": " ~ ~]^~[leaf#"[{(trip p.sep)}]" leaf#(trip q.sep)]]
$tax tan#~[leaf#(rend-work-duty p.sep)]
$url url#(crip (earf p.sep))
$mor mor#(turn p.sep |=(speech ^$(sep +<)))
$fat [%mor tan#(tr-rend-tors p.sep) $(sep q.sep) ~]
==
::
++ tr-rend-tors
|= a+torso ^- tang
?- -.a
$name (welp $(a q.a) leaf/"={(trip p.a)}" ~)
$name (welp $(a q.a) leaf#"={(trip p.a)}" ~)
$tank +.a
$text (turn (flop +.a) |=(b+cord leaf/(trip b)))
$text (turn (flop +.a) |=(b+cord leaf#(trip b)))
==
::
++ tr-pals
@ -2002,7 +2002,7 @@
++ tr-text
|= oug+?
^- tape
?+ -.sep ~&(tr-lost/sep "")
?+ -.sep ~&(tr-lost#sep "")
$fat
=+ rem=$(sep q.sep)
?: (gth (lent rem) 62) (chow 64 rem)
@ -2143,7 +2143,7 @@
^- move
=+ ^- paf+path
=+ day=(year %*(. (yore now.hid) +.t +:*tarp))
%+ tope [our.hid %home da/now.hid]
%+ tope [our.hid %home da#now.hid]
/talk-telegrams/(scot %da day)/[man]/talk
=+ grams:(~(got by stories) man)
[ost.hid %info /jamfile our.hid (foal paf [%talk-telegrams !>(-)])]

2
ape/twif.hoon
View File

@ -2,7 +2,7 @@
!:
[twitter .]
|_ [bowl ~]
++ poke-noun |=(span (onwards [%peer / [our %twit] /user/[+<]]))
++ poke-noun |=(span (onwards [%peer / [our %twit] /user#[+<]]))
++ onwards |*({mark *} [[ost +<]~ +>.$])
++ diff-twit-feed |=({* a+(list twit-stat)} ?~(a `+>.$ ~&(i.a $(a t.a))))
--

42
ape/twit.hoon
View File

@ -1,6 +1,6 @@
:: Twitter daemon
::
:::: /hook/core/twit/app
:::: /hook#core#twit#app
::
/- twitter
/+ twitter, talk
@ -69,7 +69,7 @@
^- {(unit time) _ran}
=+ cur=(~(get by ran) pax)
=+ tym=(add now (mul ~s8 (bex ?~(cur 0 p.u.cur))))
:: ~& dely/`@dr`(sub tym now)
:: ~& dely#`@dr`(sub tym now)
?: &(?=(^ cur) (gte tym q.u.cur) (gth q.u.cur now))
[~ ran]
[`tym (~(put by ran) pax ?~(cur 0 (min 5 +(p.u.cur))) tym)]
@ -79,9 +79,9 @@
=^ tym ran (dely pax)
:_ +>.$
?~ tym
:: ~& no-wait/ran
:: ~& no-wait#ran
mof
:: ~& will-wait/u.tym
:: ~& will-wait#u.tym
:- [ost %wait pax u.tym]
mof
::
@ -94,24 +94,24 @@
+>.$(kes (~(put by kes) p.act p.q.act)) :: XX verify key
$post
=: out (~(put by out) p.q.act %& p.act q.q.act)
ran (~(del by ran) /peer/home)
ran (~(del by ran) /peer#home)
==
%+ wait /peer/home
%+ wait /peer#home
=+ mez=(stat-upda:(auth p.act) [%status q.q.act]~ ~)
[ost %them /post/(scot %uv p.q.act) ~ mez]~
[ost %them /post#(scot %uv p.q.act) ~ mez]~
==
::
++ wake-peer
|= {pax+path ~} ^+ done
~& twit-wake/peer/pax
~& twit-wake#peer#pax
:_ +>.$
?. (~(has by ran) peer/pax) :: ignore if retracted
?. (~(has by ran) peer#pax) :: ignore if retracted
~
=+ => |=({a+bone @ b+path} [b a])
pus=(~(gas ju *(jug path bone)) (turn (~(tap by sup)) .))
?~ (~(get ju pus) pax)
~
~& peer-again/[pax ran]
~& peer-again#[pax ran]
(pear | our pax)
::
++ thou
@ -121,12 +121,12 @@
=. ran (~(put by ran) pax 6 now)
=+ lim=%.(%x-rate-limit-reset ;~(biff ~(get by (mo q.hit)) poja ni:jo))
=+ tym=?~(lim (add ~m7.s30 now) (add ~1970.1.1 (mul ~s1 u.lim)))
~& retrying-in/`@dr`(sub tym now)
~& retrying-in#`@dr`(sub tym now)
:_(+>.$ [ost %wait pax tym]~)
::
200 :: OK
=+ jon=(need (poja q:(need r.hit)))
:: ~& twit-resp/%.(jon ?+(-.jon !! %o stat:twir, %a (ar:jo stat:twir)))
:: ~& twit-resp#%.(jon ?+(-.jon !! %o stat:twir, %a (ar:jo stat:twir)))
?+ pax ~|([%http-missed pax] !!)
{$post @ $~} :: post acknowledged
=+ ^= rep
@ -134,30 +134,30 @@
(need %.(jon stat:twir))
=. out (~(put by out) (slav %uv i.t.pax) %| rep)
:_ +>.$
=+ pax=/[who.rep]/status/(rsh 3 2 (scot %ui id.rep))
:- (print (earn [& ~ `/com/twitter] `pax ~))
=+ pax=/[who.rep]/status#(rsh 3 2 (scot %ui id.rep))
:- (print (earn [& ~ `/com#twitter] `pax ~))
(spam pax (tweet-good rep))
::
{$peer *} :: feed data
=+ ^= rep
~| [%bad-feed jon]
(need %.(jon (ar:jo stat:twir)))
:: ~& got-feed/[(scag 5 (turn rep |=(stat id))) fed]
:: ~& got-feed#[(scag 5 (turn rep |=(stat id))) fed]
=+ ren=(cull t.pax rep) :: new messages
?~ ren
(wait pax ~) :: pump polling
:: ~& spam-feed/ren
:: ~& spam-feed#ren
=: ran (~(del by ran) pax) :: clear poll delay
fed (~(put by fed) t.pax rep) :: saw last message
==
(wait pax (spam t.pax [%diff twit-feed/(flop ren)] ~))
(wait pax (spam t.pax [%diff twit-feed#(flop ren)] ~))
==
::
?($400 $401 $403 $404) :: Err
=+ ^- git+gift
=+ err=%.(q:(need r.hit) ;~(biff poja mean:twir))
:^ %diff %ares %bad-http
[leaf/"HTTP Code {<p.hit>}" (turn (need err) mean:twip)]
[leaf#"HTTP Code {<p.hit>}" (turn (need err) mean:twip)]
?+ pax [[ost git]~ +>.$]
{$post @ ~}
[(spam pax git ~) +>.$]
@ -182,7 +182,7 @@
?. ver ~
?~ ole ~
[ost %diff %twit-feed (flop ole)]~
=- `move`[ost %them peer/pax ~ `hiss`-]
=- `move`[ost %them peer#pax ~ `hiss`-]
=+ opt=?~(ole ~ ['since_id' (lutt:twit id.i.ole)]~)
=+ aut=any-auth
?- -.pax
@ -190,7 +190,7 @@
:: $home (stat-home:auth ~ opt)
==
::
++ to-sd :: parse user name/numb
++ to-sd :: parse user name#numb
|= a+span ^- sd:twit
~| [%not-user a]
%+ rash a
@ -217,5 +217,5 @@
::
++ print
|= mes+tape
[ost %poke / [our %talk] (said:^talk our %twit now eny leaf/mes ~)]
[ost %poke / [our %talk] (said:^talk our %twit now eny leaf#mes ~)]
--

4
ape/work.hoon
View File

@ -48,7 +48,7 @@
:_ moves
^- move
:* ost %poke
/sending/(scot %uv id.tax)/(scot %ud version.tax)
/sending#(scot %uv id.tax)/(scot %ud version.tax)
[our %talk]
%talk-command
=> [. talk] ^- command:talk
@ -126,7 +126,7 @@
?: connected
[~ .]
:_ .(connected %&) :_ ~
[ost %peer /peering [our %talk] /f/(main:talk our)/(scot %ud count)]
[ost %peer /peering [our %talk] /f#(main:talk our)/(scot %ud count)]
::
++ process-duty
|= {when+@da her+ship from+(set station:talk) action+duty:work-stuff:talk}

12
ape/write.hoon
View File

@ -1,6 +1,6 @@
:: File writer
::
:::: /hoon/write/app
:::: /hoon#write#app
::
|_ {bowl $~}
++ beak-now byk(r [%da now])
@ -9,13 +9,13 @@
=- (poke--data (need (- jon.+)))
=> jo
%- ot :~
pax/(cu deft (su fel:stab))
dat/(of json/some mime/(pe / (cu taco so)) ~) :: XX mite
pax#(cu deft (su fel:stab))
dat#(of json#some mime#(pe / (cu taco so)) ~) :: XX mite
==
::
++ poke-write-paste
|= {typ+?($hoon $md $txt) txt+@t}
(poke--data [`typ /pub/paste/(scot %da now)] %mime / (taco txt))
(poke--data [`typ /pub#paste#(scot %da now)] %mime / (taco txt))
::
++ poke--data
|= {{ext+(unit @t) pax+path} dat+$$({$json json} {$mime mime})}
@ -27,8 +27,8 @@
++ made
|= {pax+wire @ res+gage}
?. =(our src)
~|(foreign-write/[our=our src=src] !!)
?+ -.res ~|(gage/-.res !!)
~|(foreign-write#[our=our src=src] !!)
?+ -.res ~|(gage#-.res !!)
$| (mean p.res)
$& =- [[ost %info / our -]~ +>.$]
(foal :(welp (tope beak-now ~) pax /[-.p.res]) p.res)

2
arvo/ames.hoon
View File

@ -1899,6 +1899,6 @@
^- mass
:- %ames
:- %|
:~ fox/`fox
:~ fox#`fox
==
--

8
arvo/behn.hoon
View File

@ -5,7 +5,7 @@
=> =~
|%
++ sqeu |* {a+_* b+_*} :: binary skew queno
$: r+@u :: rank/depth
$: r+@u :: rank#depth
k+a :: priority
n+b :: value
c+(broq a b) :: children
@ -147,11 +147,11 @@
--
. ==
=| $: $0 ::
tym+{p+clok q+clok} :: positive/negative
tym+{p+clok q+clok} :: positive#negative
== ::
|= {now+@da eny+@ ski+sled} :: current invocation
^?
|% :: poke/peek pattern
|% :: poke#peek pattern
++ call :: handle request
|= $: hen+duct
hic+(hypo (hobo kiss))
@ -195,7 +195,7 @@
:^ hen %give %mass
:- %behn
:- %|
:~ tym/`tym
:~ tym#`tym
==
==
[mof ..^$]

54
arvo/clay.hoon
View File

@ -796,7 +796,7 @@
:: ~& %taking-patch
?: ?=($| -.res)
=. dok ~
(print-to-dill '!' %rose [" " "" ""] leaf/"clay patch failed" p.res)
(print-to-dill '!' %rose [" " "" ""] leaf#"clay patch failed" p.res)
:: ~& %editing
=+ ^- sim+(list (pair path misu))
?~ dok
@ -879,7 +879,7 @@
|= res+gage
^+ +>
?: ?=($| -.res)
(print-to-dill '!' %rose [" " "" ""] leaf/"clay ergo failed" p.res)
(print-to-dill '!' %rose [" " "" ""] leaf#"clay ergo failed" p.res)
?~ hez ~|(%no-sync-duct !!)
=+ ^- can+(map path (unit mime))
%- mo ^- mode
@ -977,7 +977,7 @@
^+ +>
(edit wen lem)
::
:: Be careful to call ++wake if/when necessary. Every case
:: Be careful to call ++wake if#when necessary. Every case
:: must call it individually.
::
++ take-foreign-update :: external change
@ -1301,7 +1301,7 @@
=+ bol=(~(got by lat.ran) lob)
?- -.bol
$direct [%volt q.bol]
$delta ~| delta/q.q.bol
$delta ~| delta#q.q.bol
[%pact $(lob q.q.bol) [%volt r.bol]]
==
::
@ -1637,7 +1637,7 @@
=+ yak=(tako-to-yaki u.tak)
=+ len=(lent pax)
:^ ~ ~ %arch
:: ~& cy/pax
:: ~& cy#pax
:- -:!>(*arch)
^- arch
=+ ^- descendants+(list (pair path lobe))
@ -2095,7 +2095,7 @@
^+ +>
=+ tay=(gage-to-tage res)
?: ?=($| -.tay)
(error:he %diff-ali-bad-made leaf/"merge diff ali failed" p.tay)
(error:he %diff-ali-bad-made leaf#"merge diff ali failed" p.tay)
=+ can=(cages-to-map p.tay)
?: ?=($| -.can)
(error:he %diff-ali p.can)
@ -2131,14 +2131,14 @@
::
++ diff-bob
^+ .
(diff-bas(wat.dat %diff-bob) %bob bob.dat [p.bob q.bob da/now] ali.dat)
(diff-bas(wat.dat %diff-bob) %bob bob.dat [p.bob q.bob da#now] ali.dat)
::
++ diffed-bob
|= res+gage
^+ +>
=+ tay=(gage-to-tage res)
?: ?=($| -.tay)
(error:he %diff-bob-bad-made leaf/"merge diff bob failed" p.tay)
(error:he %diff-bob-bad-made leaf#"merge diff bob failed" p.tay)
=+ can=(cages-to-map p.tay)
?: ?=($| -.can)
(error:he %diff-bob p.can)
@ -2180,7 +2180,7 @@
%- emit(wat.dat %merge)
:* hen %pass
[%merge (scot %p p.bob) q.bob (scot %p p.ali) q.ali %merge ~]
%f %exec p.bob ~ [p.bob q.bob da/now] %tabl
%f %exec p.bob ~ [p.bob q.bob da#now] %tabl
^- (list (pair silk silk))
%+ turn (~(tap by (~(int by can.dal.dat) can.dob.dat)))
|= {pax+path *}
@ -2199,7 +2199,7 @@
|= res+gage
=+ tay=(gage-to-tage res)
?: ?=($| -.tay)
(error:he %merge-bad-made leaf/"merging failed" p.tay)
(error:he %merge-bad-made leaf#"merging failed" p.tay)
=+ can=(cages-to-map p.tay)
?: ?=($| -.can)
(error:he %merge p.can)
@ -2214,7 +2214,7 @@
%- emit(wat.dat %build)
:* hen %pass
[%merge (scot %p p.bob) q.bob (scot %p p.ali) q.ali %build ~]
%f %exec p.bob ~ [p.bob q.bob da/now] %tabl
%f %exec p.bob ~ [p.bob q.bob da#now] %tabl
^- (list (pair silk silk))
%+ murn (~(tap by bof.dat))
|= {pax+path cay+(unit cage)}
@ -2235,7 +2235,7 @@
^+ +>
=+ tay=(gage-to-tage res)
?: ?=($| -.tay)
(error:he %build-bad-made leaf/"delta building failed" p.tay)
(error:he %build-bad-made leaf#"delta building failed" p.tay)
=+ bop=(cages-to-map p.tay)
?: ?=($| -.bop)
(error:he %built p.bop)
@ -2250,7 +2250,7 @@
%- ~(urn by con)
|= {pax+path *}
(~(got by q.bas.dat) pax)
=. con :: change/del conflict
=. con :: change#del conflict
%- ~(uni by con)
%- mo ^- (list {path *})
%+ skim (~(tap by old.dal.dat))
@ -2259,7 +2259,7 @@
~| %strange-add-and-del
!!
(~(has by can.dob.dat) pax)
=. con :: change/del conflict
=. con :: change#del conflict
%- ~(uni by con)
%- mo ^- (list {path *})
%+ skim (~(tap by old.dob.dat))
@ -2268,7 +2268,7 @@
~| %strange-del-and-add
!!
(~(has by can.dal.dat) pax)
=. con :: add/add conflict
=. con :: add#add conflict
%- ~(uni by con)
%- mo ^- (list {path *})
%+ skip (~(tap by (~(int by new.dal.dat) new.dob.dat)))
@ -2343,7 +2343,7 @@
=+ ^- val+beak
?: ?=($init gem.dat)
[p.ali q.ali cas.dat]
[p.bob q.bob da/now]
[p.bob q.bob da#now]
%- emit(wat.dat %checkout)
:* hen %pass
[%merge (scot %p p.bob) q.bob (scot %p p.ali) q.ali %checkout ~]
@ -2362,7 +2362,7 @@
^+ +>
=+ tay=(gage-to-tage res)
?: ?=($| -.tay)
(error:he %checkout-bad-made leaf/"merge checkout failed" p.tay)
(error:he %checkout-bad-made leaf#"merge checkout failed" p.tay)
=+ can=(cages-to-map p.tay)
?: ?=($| -.can)
(error:he %checkout p.can)
@ -2393,7 +2393,7 @@
=+ ^- val+beak
?: ?=($init gem.dat)
[p.ali q.ali cas.dat]
[p.bob q.bob da/now]
[p.bob q.bob da#now]
%- emit(wat.dat %ergo)
:* hen %pass
[%merge (scot %p p.bob) q.bob (scot %p p.ali) q.ali %ergo ~]
@ -2415,7 +2415,7 @@
^+ +>
=+ tay=(gage-to-tage res)
?: ?=($| -.tay)
(error:he %ergo-bad-made leaf/"merge ergo failed" p.tay)
(error:he %ergo-bad-made leaf#"merge ergo failed" p.tay)
=+ =| nac+mode
|- ^- tan+$^(mode {p+term q+tang})
?~ p.tay nac
@ -2583,7 +2583,7 @@
=+ [bos=(sein p.q.hic) can=(clan p.q.hic)]
%- zing ^- (list (list move))
:~ ?: =(bos p.q.hic) ~
[hen %pass /init-merge %c %merg p.q.hic %base bos %kids da/now %init]~
[hen %pass /init-merge %c %merg p.q.hic %base bos %kids da#now %init]~
::
~
==
@ -2708,11 +2708,11 @@
:^ hen %give %mass
:- %clay
:- %|
:~ domestic/`fat.ruf
foreign/`hoy.ruf
:~ domestic#`fat.ruf
foreign#`hoy.ruf
:- %object-store :- %|
:~ commits/`hut.ran.ruf
blobs/`lat.ran.ruf
:~ commits#`hut.ran.ruf
blobs#`lat.ran.ruf
==
==
==
@ -2731,7 +2731,7 @@
++ scry :: inspect
|= {fur+(unit (set monk)) ren+@tas his+ship syd+desk lot+coin tyl+path}
^- (unit (unit cage))
:: ~& scry/[ren `path`[(scot %p his) syd ~(rent co lot) tyl]]
:: ~& scry#[ren `path`[(scot %p his) syd ~(rent co lot) tyl]]
:: =- ~& %scry-done -
=+ got=(~(has by fat.ruf) his)
=+ luk=?.(?=($$ -.lot) ~ ((soft case) p.lot))
@ -2882,8 +2882,8 @@
[~ ..^$]
~> %slog.
:^ 0 %rose [" " "[" "]"]
:^ leaf/"initial merge failed"
leaf/"my most sincere apologies"
:^ leaf#"initial merge failed"
leaf#"my most sincere apologies"
>p.p.p.+.q.hin<
q.p.p.+.q.hin
[~ ..^$]

6
arvo/dill.hoon
View File

@ -209,7 +209,7 @@
=+ myt=(flop (need tem))
=+ can=(clan our)
=. tem ~
=. moz :_(moz [hen %pass / %c %merg our %home our %base da/now %init])
=. moz :_(moz [hen %pass / %c %merg our %home our %base da#now %init])
=. moz :_(moz [hen %pass ~ %g %conf [[our ram] %load our %home]])
=. +> ?: ?=($czar can) +>
(sync %base (sein our) %kids)
@ -328,7 +328,7 @@
^- mass
:- %dill
:- %|
:~ all/`[ore hey dug]:all
:~ all#`[ore hey dug]:all
==
::
++ wegt
@ -375,7 +375,7 @@
(tuba "<awaiting {(trip p.kyz)}, this may take a few minutes>")
==
--
|% :: poke/peek pattern
|% :: poke#peek pattern
++ call :: handle request
|= $: hen+duct
hic+(hypo (hobo kiss))

228
arvo/eyre.hoon
View File

@ -105,7 +105,7 @@
die+@da :: collection date
sus+(set {dock $json wire path}) :: subscriptions
eve+{p+@u q+(map @u even)} :: queued events
med+(qeu duct) :: waiting /~/to/
med+(qeu duct) :: waiting /~/to#
==
++ even :: client event
$% {$news p+@uvH}
@ -194,7 +194,7 @@
++ add-cookies
|= {cug+(list @t) hit+httr} ^- httr
?~ cug hit
=+ cuh=(turn `(list @t)`cug |=(a+@t set-cookie/a))
=+ cuh=(turn `(list @t)`cug |=(a+@t set-cookie#a))
hit(q (weld cuh q.hit))
::
++ inject :: inject dependency
@ -204,7 +204,7 @@
tal.max (welp tal.max ;script(urb_injected ""):"{(trip etag:js)}" ~)
==
?~ dep max
max(hed :_(hed.max ;script@"/~/on/{<dep>}.js"(urb_injected "");))
max(hed :_(hed.max ;script@"/~/on#{<dep>}.js"(urb_injected "");))
::
++ add-json :: inject window.urb
|= {urb+json jaz+cord} ^- cord
@ -217,7 +217,7 @@
::
++ ares-to-json
|= err+ares ^- json
=- (jobe fail/s/typ mess/(jape mez) ~)
=- (jobe fail#s#typ mess#(jape mez) ~)
^- {typ+term mez+tape}
?~ err [%fail "Unknown Error"]
[p.u.err (wush 160 q.u.err)]
@ -225,13 +225,13 @@
++ resp :: mimed response
|= {sas+@uG mit+mite rez+@} ^- httr
:: (weld (turn cug |=(a=@t ['set-cookie' a]))
[sas ~[content-type/(moon mit)] [~ (taco rez)]]
[sas ~[content-type#(moon mit)] [~ (taco rez)]]
::
++ render-tang :: tanks to manx
|= tan+tang
;html
;head
;link(rel "stylesheet", href "/home/lib/base.css"); :: XX desk
;link(rel "stylesheet", href "/home#lib#base.css"); :: XX desk
;title: server error
==
;body:div#c.err:pre:code:"{(wush 80 tan)}"
@ -404,15 +404,15 @@
})
}
urb.foreign = /^\/~\/am/.test(window.location.pathname)
urb.foreign = /^\/~\/am#.test(window.location.pathname)
urb.redir = function(ship){
if(ship) document.location.pathname =
document.location.pathname.replace(/^\/~~|\/~\/as\/any/,'/~/as/~'+ship)
document.location.pathname.replace(/^\/~~|\/~\/as\/any#,'/~/as#~'+ship)
else document.location =
document.location.hash.match(/#[^?]+/)[0].slice(1) +
document.location.pathname.replace(
/^\/~\/am\/[^/]+/,
'/~/as/~' + urb.ship) +
'/~/as#~' + urb.ship) +
document.location.search
}
if(urb.foreign && urb.auth.indexOf(urb.ship) !== -1){
@ -465,7 +465,7 @@
;input#pass(type "password");
;h2.advice: (Your login code has been printed to your console.)
;pre:code#err;
;script@"/~/at/~/auth.js";
;script@"/~/at#~/auth.js";
;script:'''
$(function() {
$ship = $('#ship')
@ -502,15 +502,15 @@
;= ;h1: Goodbye ~;{span#ship}.
;button#act(onclick "urb.away()"): Log out
;pre:code#err;
;script@"/~/at/~/auth.js";
;script@"/~/at#~/auth.js";
==
::
++ poke-test
%+ titl 'Poke'
;= ;button(onclick "urb.testPoke('/~/to/hood/helm-hi.json')"): Hi anonymous
;button(onclick "urb.testPoke('/~/as/own/~/to/hood/helm-hi.json')"): Hi
;= ;button(onclick "urb.testPoke('/~/to#hood#helm-hi.json')"): Hi anonymous
;button(onclick "urb.testPoke('/~/as#own#~/to#hood#helm-hi.json')"): Hi
;pre:code#err;
;script@"/~/at/~/auth.js";
;script@"/~/at#~/auth.js";
;script:'''
show = function(t){err.innerText = ":) " + Date.now() + "\n" + t}
urb.testPoke = function(url){
@ -527,9 +527,9 @@
"height=device-height, initial-scale=1.0, user-scalable=0, ".
"minimum-scale=1.0, maximum-scale=1.0");
;title:"{(trip a)}"
;script(type "text/javascript", src "//cdnjs.cloudflare.com/ajax/".
"libs/jquery/2.1.1/jquery.min.js");
;link(rel "stylesheet", href "/home/lib/base.css");
;script(type "text#javascript", src "//cdnjs.cloudflare.com#ajax#".
"libs#jquery#2.1.1/jquery.min.js");
;link(rel "stylesheet", href "/home#lib#base.css");
==
;body:div#c:"*{b}"
==
@ -597,7 +597,7 @@
q.ask (~(del by q.ask) sud)
kes (~(del by kes) hen)
==
:: ~& eyre-them/(earn p.u.p.kyz)
:: ~& eyre-them#(earn p.u.p.kyz)
%= +>.$
mow :_(mow [ged [%give %thus p.ask p.kyz]])
p.ask +(p.ask)
@ -613,15 +613,15 @@
:: q.ask (~(del by q.ask) sud)
:: kes (~(del by kes) hen)
:: ==
:: ~& eyre-them/(earn p.u.p.kyz)
=+ wir=hi//[p.kyz]
:: ~& eyre-them#(earn p.u.p.kyz)
=+ wir=hi#/[p.kyz]
?: ?=($hiss p.q.kyz)
(pass-note wir [%e %meta :(slop !>(%them) !>(~) q.q.kyz)])
(back wir %hiss q.kyz)
::
$they :: inbound response
=+ kas=(need (~(get by q.ask) p.kyz))
:: ~& > eyre-they/[p.q.kyz (earn p.q.kas)]
:: ~& > eyre-they#[p.q.kyz (earn p.q.kas)]
%= +>.$
mow :_(mow [p.kas [%give %thou q.kyz]])
q.ask (~(del by q.ask) p.kas)
@ -629,10 +629,10 @@
::
$thud :: cancel request
?. (~(has by lyv) hen)
~& dead-request/hen
~& dead-request#hen
+>.$(ded (~(put in ded) hen)) :: uncaught requests
=+ lid=(~(got by lyv) hen)
:: ~& did-thud/[-.lid hen]
:: ~& did-thud#[-.lid hen]
?- -.lid
$exec
(pass-note p.lid %f [%exec our ~])
@ -657,16 +657,16 @@
=. mow :_(mow [hen %give %mack ~])
=+ mez=((soft gram) q.kyz)
?~ mez
~& e/[%strange-west p.kyz]
~& e#[%strange-west p.kyz]
~|(%strange-west !!)
?- -<.u.mez
$aut abet:(logon:(ses-ya p.u.mez) q.p.kyz)
$hat (foreign-hat:(ses-ya p.u.mez) q.p.kyz q.u.mez)
$gib (pass-note ay/(dray p/uv/~ q.p.kyz p.u.mez) [%e %thud ~])
$get (pass-note ay/(dray p/uv/~ q.p.kyz p.u.mez) [%e %this q.u.mez])
$gib (pass-note ay#(dray p#uv#~ q.p.kyz p.u.mez) [%e %thud ~])
$get (pass-note ay#(dray p#uv#~ q.p.kyz p.u.mez) [%e %this q.u.mez])
$got
?. (~(has by pox) p.u.mez)
~& lost-gram-thou/p.kyz^p.u.mez
~& lost-gram-thou#p.kyz^p.u.mez
+>.$
=: hen (~(got by pox) p.u.mez)
pox (~(del by pox) p.u.mez)
@ -674,11 +674,11 @@
(give-thou q.u.mez)
::
$lon
~& ses-ask/[p.u.mez sop (~(run by wup) $~)]
~& ses-ask#[p.u.mez sop (~(run by wup) $~)]
?: (ses-authed p.u.mez)
(ames-gram q.p.kyz aut/~ p.u.mez)
(ames-gram q.p.kyz aut#~ p.u.mez)
=. sop (~(put by sop) p.u.mez q.p.kyz |)
(ames-gram q.p.kyz hat/~ p.u.mez our-host)
(ames-gram q.p.kyz hat#~ p.u.mez our-host)
==
::
$wegh !! :: handled elsewhere
@ -696,20 +696,20 @@
^+ +>
=. our ?~(hov our u.hov) :: XX
?: &(?=({?($of $ow) ^} tee) !(~(has by wix) p.tee))
~&(dead-ire/[`whir`tee ({term term $~} +.sih)] +>)
~&(dead-ire#[`whir`tee ({term term $~} +.sih)] +>)
?- &2.sih
$crud +>.$(mow [[hen %slip %d %flog +.sih] mow])
:: $dumb
:: =. +> ?+(tee +> [%of ^] pop-duct:(ire-ix p.tee))
:: (emule |.(~|(gall-dumb/tee !!)))
:: (emule |.(~|(gall-dumb#tee !!)))
::
$woot +>.$
$thou
?+ -.tee !!
$ay (ames-gram (slav %p p.tee) got/~ (slav %uv q.tee) |2.sih)
$ay (ames-gram (slav %p p.tee) got#~ (slav %uv q.tee) |2.sih)
$hi =+ cay=[%httr !>(`httr`p.sih)]
?: ?=($httr p.tee) (give-sigh %& cay)
(back si/~ p.tee cay)
(back si#~ p.tee cay)
==
::
$unto :: app response
@ -726,7 +726,7 @@
(back tee %json p.cuf)
(get-rush:(ire-ix p.tee) q.tee ((hard json) q.q.p.cuf))
::
$quit ~&(quit/tee (get-quit:(ire-ix p.tee) q.tee))
$quit ~&(quit#tee (get-quit:(ire-ix p.tee) q.tee))
==
::
$wake
@ -738,7 +738,7 @@
::
$news :: dependency updated
?. ?=({$on $~} tee)
~&(e/lost/[tee hen] +>.$)
~&(e#lost#[tee hen] +>.$)
%+ roll (~(tap in (~(get ju liz) p.sih)))
=< .(con ..axon(liz (~(del by liz) p.sih)))
|= {sus+(each duct ixor) con+_..axon}
@ -754,12 +754,12 @@
|- ^+ ..axon
?- tee
$~
~|(e/ford/lost/tee !!)
~|(e#ford#lost#tee !!)
::
{$?($on $ay $ow) *}
~|(e/ford/lost/tee !!)
~|(e#ford#lost#tee !!)
::
{$of @ $~} ~|(e/ford/lost/tee !!)
{$of @ $~} ~|(e#ford#lost#tee !!)
{$si $~} (give-sigh q.sih)
{$hi ^}
?: ?=($| -.q.sih)
@ -788,7 +788,7 @@
::
{$at ^}
?. ?=({$& $js ^} q.sih)
~& e/at-lost/p.tee
~& e#at-lost#p.tee
$(tee q.tee)
=* cay p.q.sih
?> ?=(@ q.q.cay)
@ -803,7 +803,7 @@
=* cay p.q.sih
?. ?=($mime p.cay)
=+ bek=-:(need (tome p.tee))
=+ bik=?+(r.bek bek {$ud $0} bek(r da/now))
=+ bik=?+(r.bek bek {$ud $0} bek(r da#now))
=- (execute tee bik [%flag [p.sih `~] -])
=- `silk`[%cast %mime `[p.cay -]]
?. ?=({$ud $0} r.bek) q.cay
@ -817,11 +817,11 @@
~| q.q.cay
=+ ((hard {mit+mite rez+octs}) q.q.cay)
=+ dep=(crip "W/{(pojo %s (scot %uv p.sih))}")
(give-thou 200 ~[etag/dep content-type/(moon mit)] ~ rez)
(give-thou 200 ~[etag#dep content-type#(moon mit)] ~ rez)
==
==
::
++ root-beak `beak`[our %home da/now] :: XX
++ root-beak `beak`[our %home da#now] :: XX
++ emule
|= a+_|?(..emule) ^+ ..emule
=+ mul=(mule a)
@ -853,20 +853,20 @@
|= {a+@uvH b+(each duct ixor)} ^+ +>.$
?~ a +>.$
=. liz (~(del ju liz) a b)
:: ~& del-deps/[a (~(get ju liz) a)]
:: ~& del-deps#[a (~(get ju liz) a)]
?: (~(has by liz) a) +>.$
=- -(hen hen.+)
(pass-note(hen `~) on/~ %f [%wasp our a |])
(pass-note(hen `~) on#~ %f [%wasp our a |])
::
++ new-deps
|= {a+@uvH b+(each duct ixor)} ^+ +>.$
:: ~& new-deps/[a b]
:: ~& new-deps#[a b]
?~ a +>.$
=+ had=(~(has by liz) a)
=. liz (~(put ju liz) a b)
?: had +>.$
=- -(hen hen.+)
(pass-note(hen `~) on/~ %f [%wasp our a &])
(pass-note(hen `~) on#~ %f [%wasp our a &])
::
++ ford-req |=({bek+beak kas+silk} [%f [%exec our `[bek kas]]])
++ execute
@ -877,20 +877,20 @@
++ fail
|= {sas+@ud dep+@uvH mez+tang}
^+ +>
:: (back ha/~ dep %tang !>(mez)) ::tang->urb chain may be source of failure
:: (back ha#~ dep %tang !>(mez)) ::tang->urb chain may be source of failure
(give-html sas ~ (inject dep (render-tang mez)))
::
++ give-html
|= {sas+@ud cug+(list @t) max+manx}
%- give-thou
%+ add-cookies cug
(resp sas text//html (crip (poxo max)))
(resp sas text#/html (crip (poxo max)))
::
++ give-json
|= {sas+@uG cug+(list @t) jon+json}
%- give-thou
%+ add-cookies cug
(resp sas application//json (crip (pojo jon)))
(resp sas application#/json (crip (pojo jon)))
::
++ give-thou :: done request
|= hit+httr
@ -929,7 +929,7 @@
++ handle
|= $: {hat+hart pok+pork quy+quay} :: purl parsed url
{cip+clip aut+?} :: client ip nonymous?
{mef+meth maf+math bod+(unit octs)} :: method/headers/body
{mef+meth maf+math bod+(unit octs)} :: method#headers#body
==
=< apex
|%
@ -949,7 +949,7 @@
|= {wir+whir ext+term bem+beam}
=+ yac=for-client
=. him.yac ?.(aut anon him.yac)
=: r.bem ?+(r.bem r.bem {$ud $0} da/now)
=: r.bem ?+(r.bem r.bem {$ud $0} da#now)
s.bem [%web ~(rent co (fcgi quy fcgi-cred.yac)) s.bem]
==
(execute wir -.bem [%boil ext bem ~])
@ -969,18 +969,18 @@
?~ pez done
?- -.pez
$~ (give-thou (add-cookies cug p.pez))
$js $(pez [~ (resp 200 text//javascript p.pez)])
$js $(pez [~ (resp 200 text#/javascript p.pez)])
$json (give-json 200 cug p.pez)
$html (give-html 200 cug p.pez)
$htme (give-html 401 cug p.pez)
$boil (ford-boil +.pez)
$red
=+ url=(earn hat pok(p [~ %html]) quy)
?+ p.pok ~|(bad-redirect/[p.pok url] !!)
?+ p.pok ~|(bad-redirect#[p.pok url] !!)
{$~ $js}
$(pez [%js auth-redir:js])
{$~ $json}
$(pez [%json (jobe ok/b/| red/(jape url) ~)])
$(pez [%json (jobe ok#b#| red#(jape url) ~)])
==
==
::
@ -993,7 +993,7 @@
?~ oxe |
?: (~(has in vew.cyz:for-client) u.oxe)
&
~&(bad-oryx/[u.oxe vew.cyz:for-client] &) :: XX security
~&(bad-oryx#[u.oxe vew.cyz:for-client] &) :: XX security
::
++ grab-json
?. ?=(?($post $put $delt) mef)
@ -1003,7 +1003,7 @@
++ need-body |*(a+fist:jo (need (biff grab-json a)))
++ grab-oryx
^- (unit oryx)
=+ oxe=(biff grab-json (ot oryx/so ~):jo)
=+ oxe=(biff grab-json (ot oryx#so ~):jo)
?^ oxe oxe
(~(get by (mo quy)) %oryx)
::
@ -1018,19 +1018,19 @@
~|(%bad-oryx ~|([grab-oryx vew.cyz:for-client] !!))
=+ hem=as-aux-request
?^ hem [%& u.hem]
~|(strange-path/q.pok !!)
~|(strange-path#q.pok !!)
::
++ as-magic-filename
^- (unit httr)
?+ [(fall p.pok %$) q.pok] ~
{?($ico $png) $favicon $~}
:- ~
%^ resp 200 image//png
%^ resp 200 image#/png
favi
::
{$txt $robots $~}
:- ~
%^ resp 200 text//plain
%^ resp 200 text#/plain
%- role
:~ 'User-agent: *'
'Disallow: /'
@ -1044,14 +1044,14 @@
$(q.pok /index)
?. ((sane %tas) i.q.pok)
(tome q.pok)
`[[our i.q.pok ud/0] (flop t.q.pok)]
`[[our i.q.pok ud#0] (flop t.q.pok)]
::
++ as-aux-request :: /~/... req parser
^- (unit perk)
=. mef
?. ?=($post mef) mef
?+ (skim quy |=({a+@t b+@t} &(=('' b) =(a (cuss (trip a))))))
~|(bad-quy/[req='"?PUT" or "?DELETE"' quy] !!)
~|(bad-quy#[req='"?PUT" or "?DELETE"' quy] !!)
$~ mef
{{$'DELETE' $~} $~} %delt
{{$'PUT' $~} $~} %put
@ -1063,14 +1063,14 @@
:- ~ ^- perk
=* pef i.t.q.pok
=+ but=t.t.q.pok :: XX =*
?+ pef ~|(pfix-lost/`path`/~/[pef] !!)
?+ pef ~|(pfix-lost#`path`/~/[pef] !!)
$debug ;;(perk [%bugs but])
$away [%away ~]
$at [%auth %at pok(q but)]
$am ?~(but !! [%auth %xen i.but pok(q t.but)])
$as
:+ %auth %get
~| bad-ship/?~(but ~ i.but)
~| bad-ship#?~(but ~ i.but)
?~ but !!
:_ pok(q t.but)
?+ i.but (slav %p i.but)
@ -1092,7 +1092,7 @@
::
$to
=+ ^- dir+{p+ship q+term r+mark}
~| bad-mess/but
~| bad-mess#but
?+ but !!
{@ @ $~} [our (raid but %tas %tas ~)]
{@ @ @ $~} (raid but %p %tas %tas ~)
@ -1100,25 +1100,25 @@
:^ %mess [p q]:dir r.dir
=+ wir=(~(get by (mo quy)) 'wire')
?^ wir [(stab u.wir) (need grab-json)] :: XX distinguish
(need-body (ot wire/(cu stab so) xyro/some ~):jo)
(need-body (ot wire#(cu stab so) xyro#some ~):jo)
::
$in
~| expect/[%post 'application/json' /'@uv' '?PUT/DELETE']
~| expect#[%post 'application#json' /'@uv' '?PUT/DELETE']
?> &(?=(?($delt $put) mef) ?=($@($~ {$~ $json}) p.pok))
[%deps mef (raid but %uv ~)]
::
$is
?~ but
~|(no-app/but=but !!)
~|(no-app#but=but !!)
|- ^- perk
?~ p.pok $(p.pok [~ %json])
?. ?=($json u.p.pok)
~|(is/stub/u.p.pok !!) :: XX marks
~|(is#stub#u.p.pok !!) :: XX marks
?: ((sane %tas) i.but)
$(but [(scot %p our) but])
?> ?=(?($delt $put) mef)
=+ :- hap=[(slav %p i.but) (slav %tas -.t.but)]
wir=(need-body (ot wire/(cu stab so) ~):jo)
wir=(need-body (ot wire#(cu stab so) ~):jo)
[%subs mef hap u.p.pok wir +.t.but]
::
$auth
@ -1128,14 +1128,14 @@
$~ $(p.pok [~ %json])
{$~ $js} [%js ~]
{$~ $json}
?+ mef ~|(bad-meth/mef !!)
?+ mef ~|(bad-meth#mef !!)
$get [%json ~]
$put
~| parsing/bod
[%try (need-body (ot ship/(su fed:ag) code/(mu so) ~):jo)]
~| parsing#bod
[%try (need-body (ot ship#(su fed:ag) code#(mu so) ~):jo)]
::
$delt
~| parsing/bod
~| parsing#bod
=+ jon=(need (poja q:(need bod)))
?> ?=($o -.jon)
=+ sip=(~(get by p.jon) %ship)
@ -1161,7 +1161,7 @@
=+ bem=?-(-.hem $beam p.hem, $spur [root-beak p.hem])
=+ wir=`whir`[%ha (tope -.bem ~)]
=. wir ?+(mef !! $get wir, $head [%he wir])
~| bad-beam/q.bem
~| bad-beam#q.bem
?< =([~ 0] (sky %cw (tope bem(+ ~, r [%da now]))))
=+ [wir ext bem]
?.(aut [%& %boil -] [%| (ford-boil -)]) :: XX properly
@ -1204,7 +1204,7 @@
==
::
$view
~| lost-ixor/p.hem
~| lost-ixor#p.hem
[%| ((teba poll:(ire-ix p.hem)) u.q.hem)]
==
::
@ -1220,9 +1220,9 @@
$at
=. ..ya abet.yac
=+ pez=process(pok p.ham, aut |)
?. ?=($& -.pez) ~|(no-inject/p.ham !!)
?. ?=($& -.pez) ~|(no-inject#p.ham !!)
?~ p.pez pez
?+ -.p.pez ~&(bad-inject/p.pez !!)
?+ -.p.pez ~&(bad-inject#p.pez !!)
$red pez
$boil
=. ya abet.yac
@ -1240,7 +1240,7 @@
::
$get
|-
~| aute/ham
~| aute#ham
?: |(=(anon him.ham) (~(has in aut.yac) him.ham))
=. ..ya abet.yac(him him.ham)
=+ pez=process(pok rem.ham, aut &)
@ -1253,7 +1253,7 @@
$try
:- %|
?. =(our him.ham)
~|(stub-foreign/him.ham !!)
~|(stub-foreign#him.ham !!)
?. ?| (~(has in aut.yac) him.ham)
?~(paz.ham | =(u.paz.ham load-secret))
==
@ -1266,7 +1266,7 @@
::
++ show-login-page
|= ses+(unit hole) ^- (each pest _done)
%- (slog leaf/"login code for {(scow %p our)}: {(trip load-secret)}" ~)
%- (slog leaf#"login code for {(scow %p our)}: {(trip load-secret)}" ~)
?. ?=($@($~ {$~ $html}) p.pok)
[%& %red ~]
?~ ses
@ -1310,7 +1310,7 @@
(new-ya (rsh 3 1 (scot %p (end 6 1 ney))))
=+ cyz=(~(get by wup) u.lig)
?~ cyz
~& bad-cookie/u.lig
~& bad-cookie#u.lig
(new-ya (rsh 3 1 (scot %p (end 6 1 ney))))
~(. ya u.lig u.cyz(cug ~))
::
@ -1352,8 +1352,8 @@
++ foreign-auth
|= {him+ship pul+purl} ^+ ..ya
=. way (~(put by way) him pul hen)
~& asking-foreign/him
(ames-gram:abet him [lon/~ ses])
~& asking-foreign#him
(ames-gram:abet him [lon#~ ses])
::
++ foreign-hat
|= {him+ship hat+hart} ^+ ..ya
@ -1365,7 +1365,7 @@
==
=+ url=(welp (earn pul(p hat)) '#' (head:earn p.pul))
%- give-thou:abet
(add-cookies cug [307 [location/(crip url)]~ ~])
(add-cookies cug [307 [location#(crip url)]~ ~])
::
++ logon
|= her+ship
@ -1373,14 +1373,14 @@
him her
aut (~(put in aut) her)
..ya
~& logon/[our her ses]
~& logon#[our her ses]
?. =(our her)
..ya
=+ sap=(~(get by sop) ses)
~& sap
?. ?=({$~ @ $|} sap)
..ya
(ames-gram -.u.sap aut/~ ses)
(ames-gram -.u.sap aut#~ ses)
==
++ logoff
|= her+(unit ship) ^+ ..ya
@ -1395,7 +1395,7 @@
=. vew (~(put in vew) orx)
=+ ire=(oryx-to-ixor orx)
=. ..ix ~(init ix ire %*(. *stem him him, p.eve 1))
:: ~& stat-ire/`@t`ire
:: ~& stat-ire#`@t`ire
[orx abet]
::
++ fcgi-cred %_(ced aut (~(put ju aut.ced) %$ (scot %p him)))
@ -1404,11 +1404,11 @@
=^ orx ..ya new-view
:_ ..ya
%- jobe :~
oryx/s/orx
ixor/s/(oryx-to-ixor orx)
ship/(jape +:<our>)
user/(jape +:<him>)
auth/a/(turn (~(tap in aut)) |=(a+@p (jape +:<a>)))
oryx#s#orx
ixor#s#(oryx-to-ixor orx)
ship#(jape +:<our>)
user#(jape +:<him>)
auth#a#(turn (~(tap in aut)) |=(a+@p (jape +:<a>)))
==
--
::
@ -1433,17 +1433,17 @@
=: med (~(put to med) hen)
hen `~
==
:: ~& > hurl/[&2.b ire a]
:: ~& > hurl#[&2.b ire a]
(pass-note:abet [%of ire (gsig a)] b)
::
++ init
=. die (add ~d1 now)
abet(mow :_(mow [`/ %pass ow//[ire] [%b %wait die]]))
abet(mow :_(mow [`/ %pass ow#/[ire] [%b %wait die]]))
::
++ refresh
=. mow :_(mow [`/ %pass ow//[ire] [%b %rest die]])
=. mow :_(mow [`/ %pass ow#/[ire] [%b %rest die]])
=. die (add ~d1 now)
done(mow :_(mow [`/ %pass ow//[ire] [%b %wait die]]))
done(mow :_(mow [`/ %pass ow#/[ire] [%b %wait die]]))
::
++ add-even
|= a+even ^+ eve
@ -1455,7 +1455,7 @@
::
++ add-subs
|= {a+dock $json b+wire c+path} ^+ ..ix
?: (~(has in sus) +<) ~|(duplicate/c !!)
?: (~(has in sus) +<) ~|(duplicate#c !!)
=. sus (~(put in sus) +<)
(hurl-note [a b] [%g %deal [him -.a] +.a %peel %json c])
::
@ -1479,7 +1479,7 @@
::
++ get-ack
|= {a+whir-of b+(unit {term tang})} ^+ ..ix
?: =(~ med) ~& resp-lost/ire ..ix
?: =(~ med) ~& resp-lost#ire ..ix
?~ b (nice-json:pop-duct)
(mean-json:pop-duct 500 b)
::
@ -1499,17 +1499,17 @@
==
?> pol :: XX eventstream
%^ give-json 200 ~
%^ jobe id/(jone num) type/[%s -.ven]
%^ jobe id#(jone num) type#[%s -.ven]
?- -.ven
$news ~[from/[%s (scot %uv p.ven)]]
$quit ~[from/(subs-to-json p.ven)]
$rush ~[from/(subs-to-json p.ven) data/q.ven]
$news ~[from#[%s (scot %uv p.ven)]]
$quit ~[from#(subs-to-json p.ven)]
$rush ~[from#(subs-to-json p.ven) data#q.ven]
==
::
++ pass-wait (pass-note of//[ire] [%b %wait era])
++ pass-wait (pass-note of#/[ire] [%b %wait era])
++ pass-rest
=. lyv (~(del by lyv) hen)
(pass-note of//[ire] [%b %rest era])
(pass-note of#/[ire] [%b %rest era])
::
++ pass-took
|= a+{p+dock wire}
@ -1527,8 +1527,8 @@
=. era (add ~s30 now)
=. lyv (~(put by lyv) hen [%poll ire])
pass-wait(ude [~ hen &])
?: (gth a p.eve) ~|(seq-high/cur=p.eve !!)
=+ ven=~|(seq-low/cur=p.eve (~(got by q.eve) a))
?: (gth a p.eve) ~|(seq-high#cur=p.eve !!)
=+ ven=~|(seq-low#cur=p.eve (~(got by q.eve) a))
(give-even & a ven)
::
++ poll-rest
@ -1545,9 +1545,9 @@
++ subs-to-json
|= {a+dock b+path}
%- jobe :~
ship/[%s (rsh 3 1 (scot %p p.a))]
appl/[%s q.a]
path/(jape (spud b))
ship#[%s (rsh 3 1 (scot %p p.a))]
appl#[%s q.a]
path#(jape (spud b))
==
++ wake ^+(..ix abet(ude ~)) :: XX other effects?
:: XX unused
@ -1579,10 +1579,10 @@
:^ hen %give %mass
:- %eyre
:- %|
:~ dependencies/`liz sessions/`wup views/`wix
ducts/[%| ~[dead/`ded proxy/`pox outgoing/`ask]]
hosts/`dop
misc/`bol
:~ dependencies#`liz sessions#`wup views#`wix
ducts#[%| ~[dead#`ded proxy#`pox outgoing#`ask]]
hosts#`dop
misc#`bol
==
=+ our=`@p`0x100 :: XX sentinel
=+ ska=(slod ski)

156
arvo/ford.hoon
View File

@ -34,9 +34,9 @@
|* a+$+(* *) :: product clam
$: p+cafe :: cache
$= q ::
$% {$0 p+(set beam) q+a} :: depends/product
$% {$0 p+(set beam) q+a} :: depends#product
{$1 p+(set {p+care q+beam r+tang})} :: blocks
{$2 p+(set beam) q+tang} :: depends/error
{$2 p+(set beam) q+tang} :: depends#error
== ::
== ::
:: ::
@ -170,7 +170,7 @@
r ?: ?=($ud -.r.bem) r.bem
=+ num=(ska ~ %cw bem(s ~))
?. ?=({$~ $~ * * @u} num)
~& norm-lost/(tope bem(s ~))
~& norm-lost#(tope bem(s ~))
r.bem :: XX
[%ud q.q.u.u.num]
==
@ -228,13 +228,13 @@
?- -.+.sih
$writ
?~ p.sih +>.$
:: ~& writ/tea
:: ~& writ#tea
=+ dap=(~(got by deh.bay) dep)
=- +>.$(mow mow, deh.bay ?~(dop deh.bay (~(put by deh.bay) dep dop)))
^- {dop+$@($~ _dap) mow+_mow}
?- -.dap
$done `mow :: writ redundant
$init ~|(never-subscribed/dep !!)
$init ~|(never-subscribed#dep !!)
$sent
:- [%done ~]
;: weld
@ -255,12 +255,12 @@
~% %ford-w ..is ~
|= {dep+@uvH ask+?}
?~ dep
~&(dep-empty/hen +>.$)
~&(dep-empty#hen +>.$)
?: =(dep 0vtest) :: upstream testing
+>.$(mow ?.(ask mow :_(mow [hen %give %news dep])))
=+ dap=(~(get by deh.bay) dep)
?~ dap ~&(dep-missed/dep +>.$) :: XX ~| !!
:: ~& awap/[dep u.dap]
?~ dap ~&(dep-missed#dep +>.$) :: XX ~| !!
:: ~& awap#[dep u.dap]
?- -.u.dap
$done +>.$(mow ?.(ask mow :_(mow [hen %give %news dep])))
$sent
@ -273,7 +273,7 @@
+>.$(deh.bay (~(put by deh.bay) dep [%init q.u.dap]))
::
$init
?. ask ~&(awap-kill-empty/dep +>.$) :: crash?
?. ask ~&(awap-kill-empty#dep +>.$) :: crash?
%_ +>.$
deh.bay
(~(put by deh.bay) dep [%sent [hen ~ ~] p.u.dap])
@ -441,7 +441,7 @@
|- ^- (each (list (pair care beam)) tang)
?~ p.ton [%& ~]
=+ nex=$(p.ton t.p.ton)
=+ err=|=(a+tape [%| leaf/a ?:(?=($& -.nex) ~ p.nex)])
=+ err=|=(a+tape [%| leaf#a ?:(?=($& -.nex) ~ p.nex)])
=+ pax=(path i.p.ton)
?~ pax (err "blocking empty")
?. ?=($c (end 3 1 i.pax))
@ -535,25 +535,25 @@
|= {cof+cafe cay+cage coy+cage} ^- (bolt gage)
?. =(p.cay p.coy)
%+ flaw cof :_ ~
leaf/"diff on data of different marks: {(trip p.cay)} {(trip p.coy)}"
leaf#"diff on data of different marks: {(trip p.cay)} {(trip p.coy)}"
?: =(q.q.cay q.q.coy)
(fine cof %& %null [%atom %n] ~)
::
%+ cope (fang cof p.cay)
|= {cof+cafe pro+vase}
?. (slab %grad p.pro)
(flaw cof leaf/"no ++grad" ~)
(flaw cof leaf#"no ++grad" ~)
=+ gar=(slap pro [%cnzy %grad])
?@ q.gar
=+ for=((sand %tas) q.gar)
?~ for (flaw cof leaf/"bad mark ++grad" ~)
?~ for (flaw cof leaf#"bad mark ++grad" ~)
%^ make cof %diff
:- [%cast u.for `cay]
[%cast u.for `coy]
?. (slab %form p.gar)
(flaw cof leaf/"no ++form:grad" ~)
(flaw cof leaf#"no ++form:grad" ~)
?. (slab %diff p.gar)
(flaw cof leaf/"no ++diff:grad" ~)
(flaw cof leaf#"no ++diff:grad" ~)
%+ cope (keel cof pro [[%& 6]~ q.cay]~)
|= {cof+cafe pox+vase}
%+ cope
@ -563,7 +563,7 @@
|= {cof+cafe dif+vase}
=+ for=((soft @tas) q:(slap gar [%cnzy %form]))
?~ for
(flaw cof leaf/"bad ++form:grad" ~)
(flaw cof leaf#"bad ++form:grad" ~)
(fine cof %& u.for dif)
==
::
@ -605,14 +605,14 @@
++ fade :: compile to hood
|= {cof+cafe for+mark bem+beam}
^- (bolt hood)
%+ cool |.(leaf/"ford: fade {<[(tope bem)]>}")
%+ cool |.(leaf#"ford: fade {<[(tope bem)]>}")
%+ cope (cope (make cof [%bake for bem ~]) furl)
|= {cof+cafe cay+cage}
%+ (clef %hood) (fine cof bem(r [%ud 0]) cay)
^- (burg (pair beam cage) hood)
|= {cof+cafe bum+beam cay+cage}
~| fade/(tope bum)
:: ~& fade/clef-miss/bem
~| fade#(tope bum)
:: ~& fade#clef-miss#bem
=+ rul=(fair bum)
?. ?=(@ q.q.cay)
(flaw cof ~)
@ -802,25 +802,25 @@
%+ cope (fang cof for)
|= {cof+cafe pro+vase}
?. (slab %grad p.pro)
(flaw cof leaf/"no ++grad" ~)
(flaw cof leaf#"no ++grad" ~)
=+ gar=(slap pro [%cnzy %grad])
?@ q.gar
=+ too=((sand %tas) q.gar)
?~ too (flaw cof leaf/"bad mark ++grad" ~)
?~ too (flaw cof leaf#"bad mark ++grad" ~)
(make cof %join u.too `cay `coy)
?. (slab %form p.gar)
(flaw cof leaf/"no ++form:grad" ~)
(flaw cof leaf#"no ++form:grad" ~)
=+ fom=((soft @tas) q:(slap gar [%cnzy %form]))
?~ fom
(flaw cof leaf/"bad ++form:grad" ~)
(flaw cof leaf#"bad ++form:grad" ~)
?. &(=(u.fom p.cay) =(u.fom p.coy))
%+ flaw cof :_ :_ ~
leaf/"join on data of bad marks: {(trip p.cay)} {(trip p.coy)}"
leaf/"expected mark {(trip u.fom)}"
leaf#"join on data of bad marks: {(trip p.cay)} {(trip p.coy)}"
leaf#"expected mark {(trip u.fom)}"
?: =(q.q.cay q.q.coy)
(fine cof %& cay)
?. (slab %join p.gar)
(flaw cof leaf/"no ++join:grad" ~)
(flaw cof leaf#"no ++join:grad" ~)
%+ cope
%^ maul cof
(slap (slap pro [%cnzy %grad]) [%cnzy %join])
@ -844,22 +844,22 @@
%+ cope (fang cof for)
|= {cof+cafe pro+vase}
?. (slab %grad p.pro)
(flaw cof leaf/"no ++grad" ~)
(flaw cof leaf#"no ++grad" ~)
=+ gar=(slap pro [%cnzy %grad])
?@ q.gar
=+ too=((sand %tas) q.gar)
?~ too (flaw cof leaf/"bad mark ++grad" ~)
?~ too (flaw cof leaf#"bad mark ++grad" ~)
%+ make cof
[%mash u.too [p.mas q.mas `cay] [p.mos q.mos `coy]]
?. (slab %form p.gar)
(flaw cof leaf/"no ++form:grad" ~)
(flaw cof leaf#"no ++form:grad" ~)
=+ fom=((soft @tas) q:(slap gar [%cnzy %form]))
?~ fom
(flaw cof leaf/"bad ++form:grad" ~)
(flaw cof leaf#"bad ++form:grad" ~)
?. &(=(u.fom p.cay) =(u.fom p.coy))
%+ flaw cof :_ :_ ~
leaf/"mash on data of bad marks: {(trip p.cay)} {(trip p.coy)}"
leaf/"expected mark {(trip u.fom)}"
leaf#"mash on data of bad marks: {(trip p.cay)} {(trip p.coy)}"
leaf#"expected mark {(trip u.fom)}"
?: =(q.q.cay q.q.coy)
(fine cof %& cay)
?. (slab %mash p.gar)
@ -894,9 +894,9 @@
++ keel :: apply mutations
|= {cof+cafe suh+vase yom+(list (pair wing vase))}
^- (bolt vase)
%+ cool =< |.(leaf/"ford: keel {<(murn yom +)>}")
%+ cool =< |.(leaf#"ford: keel {<(murn yom +)>}")
|= {a+wing b+type *}
=+ c=p:(slap suh cnzz/a)
=+ c=p:(slap suh cnzz#a)
?: (~(nest ut c) | b) ~
(some [a c b])
%^ maim cof
@ -936,7 +936,7 @@
$(s.bem t.s.bem, arg [i.s.bem arg])
?: =(~ new) (fine cof res)
=^ bem new ~(get to new)
~| next-beam/(tope bem)
~| next-beam#(tope bem)
?< (gth (lent +.bem) 10)
$(bem bem, arg ~)
::
@ -990,26 +990,26 @@
^- (bolt vase)
=. s.bem [for s.bem]
?: lit
%+ cool |.(leaf/"ford: load {<for>} {<(tope bem)>}")
%+ cool |.(leaf#"ford: load {<for>} {<(tope bem)>}")
%+ cope (liar cof bem)
|= {cof+cafe cay+cage}
?. =(for p.cay)
(flaw cof leaf/"unexpected mark {<p.cay>}" ~)
(flaw cof leaf#"unexpected mark {<p.cay>}" ~)
((lake for) cof q.cay)
%+ cool |.(leaf/"ford: hook {<for>} {<(tope bem)>}")
%+ cool |.(leaf#"ford: hook {<for>} {<(tope bem)>}")
%+ cope (fade cof %hook bem)
|= {cof+cafe hyd+hood}
(cope (abut:(meow bem arg) cof hyd) (lake for))
::
++ lake :: check/coerce
++ lake :: check#coerce
|= for+mark
|= {cof+cafe sam+vase}
^- (bolt vase)
%+ cool |.(leaf/"ford: check {<[for bek `@p`(mug q.sam)]>}")
%+ cool |.(leaf#"ford: check {<[for bek `@p`(mug q.sam)]>}")
?: ?=(?($hoon $hook) for)
=+ mas=((soft @t) q.sam)
?~ mas
(flaw cof [leaf/"ford: bad hoon or hook: {<[for bek]>}"]~)
(flaw cof [leaf#"ford: bad hoon or hook: {<[for bek]>}"]~)
(fine cof [%atom %t] u.mas)
%+ cope (fang cof for)
|= {cof+cafe tux+vase}
@ -1039,7 +1039,7 @@
(fine cof bem(r [%ud ((hard @) +.+:(need u.von))]))
|= {cof+cafe bem+{{ship desk $ud r+@u} s+spur}}
?: =(0 r.bem)
(flaw cof [leaf/"ford: no data: {<(tope bem(s ~))>}"]~)
(flaw cof [leaf#"ford: no data: {<(tope bem(s ~))>}"]~)
(fine cof bem)
::
++ lave :: validate
@ -1081,7 +1081,7 @@
?~ von
[p=*cafe q=[%1 [[%x bem ~] ~ ~]]]
?~ u.von
(flaw cof leaf/"file not found" (smyt (tope bem)) ~)
(flaw cof leaf#"file not found" (smyt (tope bem)) ~)
(fine cof u.u.von)
::
++ lily :: translation targets
@ -1152,7 +1152,7 @@
?: ?~ - | :: error if level above built
(~(has by res) (tack i.pax (scag (dec -) t.pax)))
~
:_(q.q.raf leaf/"! {<`mark`for>} build failed, ignoring.")
:_(q.q.raf leaf#"! {<`mark`for>} build failed, ignoring.")
--
::
++ lima :: load at depth
@ -1183,13 +1183,13 @@
?^ vux (fine cof u.vux)
?~ s.mob
%+ flaw cof
~[leaf/"build {<for>}" leaf/"no usable ancestors" (smyt (tope bem))]
~[leaf#"build {<for>}" leaf#"no usable ancestors" (smyt (tope bem))]
^$(s.mob t.s.mob, mer [i.s.mob mer])
::
++ link :: translate
|= {cof+cafe too+mark for+mark vax+vase}
^- (bolt vase)
:: %+ cool |.(leaf/"ford: link {<too>} {<for>} {<p.vax>}")
:: %+ cool |.(leaf#"ford: link {<too>} {<for>} {<p.vax>}")
?: =(too for) (fine cof vax)
?: |(=(%noun for) =(%$ for))
((lake too) cof vax)
@ -1213,7 +1213,7 @@
::
++ lion :: translation search
|= {cof+cafe too+mark fro+(set mark)}
:: ~& lion/[too=too fro=(sa fro)]
:: ~& lion#[too=too fro=(sa fro)]
^- (bolt (list mark))
=| $: war+(map mark (list mark))
pax+(list mark)
@ -1290,16 +1290,16 @@
$$ (fine cof %& p.kas)
$bake
:: ~& > [p.kas (tope q.kas)]
:: %+ cool |.(leaf/"ford: bake {<p.kas>} {<(tope q.kas)>}")
:: %+ cool |.(leaf#"ford: bake {<p.kas>} {<(tope q.kas)>}")
%+ cope (lima cof p.kas q.kas r.kas)
|= {cof+cafe vux+(unit vase)}
?~ vux
(flaw cof leaf/"file not found" (smyt (tope q.kas)) ~)
(flaw cof leaf#"file not found" (smyt (tope q.kas)) ~)
(fine cof [%& p.kas u.vux])
::
$boil
^- (bolt gage)
%+ cool |.(leaf/"ford: boil {<p.kas>} {<(tope q.kas)>} {<r.kas>}")
%+ cool |.(leaf#"ford: boil {<p.kas>} {<(tope q.kas)>} {<r.kas>}")
%+ cope (lamp cof q.kas)
|= {cof+cafe bem+beam}
%+ cope (lime cof p.kas bem r.kas)
@ -1307,7 +1307,7 @@
(fine cof `gage`[%& p.kas vax])
::
$bunt
%+ cool |.(leaf/"ford: bunt {<p.kas>}")
%+ cool |.(leaf#"ford: bunt {<p.kas>}")
?: ?=(?($hoon $hook) p.kas)
(fine cof %& p.kas [%atom %t] '')
%+ cope (fang cof p.kas)
@ -1317,7 +1317,7 @@
(fine cof [%& p.kas [typ val]])
::
$call
:: %+ cool |.(leaf/"ford: call {<`@p`(mug kas)>}")
:: %+ cool |.(leaf#"ford: call {<`@p`(mug kas)>}")
%. [cof p.kas q.kas]
;~ cope
;~ coax
@ -1333,12 +1333,12 @@
==
::
$cast
%+ cool |.(leaf/"ford: cast {<p.kas>}")
%+ cool |.(leaf#"ford: cast {<p.kas>}")
%+ cope $(kas q.kas)
%- tabl-run
|= {cof+cafe cay+cage}
^- (bolt gage)
%+ cool |.(leaf/"ford: casting {<p.cay>} to {<p.kas>}")
%+ cool |.(leaf#"ford: casting {<p.cay>} to {<p.kas>}")
%+ cope (lion cof p.kas p.cay `~)
|= {cof+cafe wuy+(list @tas)}
%+ cope
@ -1348,16 +1348,16 @@
(flux |=(vax+vase [%& p.kas vax]))
::
$core
%+ cool |.(leaf/"ford: core {<(tope p.kas)>}")
%+ cool |.(leaf#"ford: core {<(tope p.kas)>}")
(cope (lear cof p.kas) (flux |=(a+vase [%& %core a])))
::
$diff
%+ cool |.(leaf/"ford: diff {<`@p`(mug p.kas)>} {<`@p`(mug q.kas)>}")
%+ cool |.(leaf#"ford: diff {<`@p`(mug p.kas)>} {<`@p`(mug q.kas)>}")
(diff cof p.kas q.kas)
::
$dude (cool p.kas $(kas q.kas))
$file
%+ cool |.(leaf/"ford: file {<p.kas>}")
%+ cool |.(leaf#"ford: file {<p.kas>}")
%+ cope (liar cof p.kas)
(flux |=(cay+cage [%& cay]))
::
@ -1372,31 +1372,31 @@
?^ n.p.kas
(~(put in p.q.rez) n.p.kas)
=+ dap=(~(get by deh.bay) n.p.kas)
?~ dap ~&(flag-missed/n.p.kas p.q.rez)
?~ dap ~&(flag-missed#n.p.kas p.q.rez)
%- ~(uni in p.q.rez) ^- (set beam)
?-(-.u.dap $init p.u.dap, $sent q.u.dap, $done [[bek ~] ~ ~])
:: XX revisit ^ during dependency review
$join
%+ cool
|.
leaf/"ford: join {<p.kas>} {<`@p`(mug q.kas)>} {<`@p`(mug r.kas)>}"
leaf#"ford: join {<p.kas>} {<`@p`(mug q.kas)>} {<`@p`(mug r.kas)>}"
(join cof p.kas q.kas r.kas)
::
$mash
%+ cool
|.
leaf/"ford: mash {<p.kas>} {<`@p`(mug q.kas)>} {<`@p`(mug r.kas)>}"
leaf#"ford: mash {<p.kas>} {<`@p`(mug q.kas)>} {<`@p`(mug r.kas)>}"
(mash cof p.kas q.kas r.kas)
::
$mute (kale cof p.kas q.kas)
$pact
%+ cool |.(leaf/"ford: pact {<`@p`(mug p.kas)>} {<`@p`(mug q.kas)>}")
%+ cool |.(leaf#"ford: pact {<`@p`(mug p.kas)>} {<`@p`(mug q.kas)>}")
(pact cof p.kas q.kas)
::
$plan (cope (abut:(meow p.kas q.kas) cof r.kas) faun)
$reef (faun cof pit)
$ride
%+ cool |.(leaf/"ford: build failed")
%+ cool |.(leaf#"ford: build failed")
%+ cope $(kas q.kas)
%- tabl-run
|= {cof+cafe cay+cage}
@ -1420,12 +1420,12 @@
==
::
$vale
%+ cool |.(leaf/"ford: vale {<p.kas>} {<`@p`(mug q.kas)>}")
%+ cool |.(leaf#"ford: vale {<p.kas>} {<`@p`(mug q.kas)>}")
%+ cope (lave cof p.kas q.kas)
(flux |=(vax+vase `gage`[%& p.kas vax]))
::
$volt
%+ cool |.(leaf/"ford: volt {<p.p.kas>}")
%+ cool |.(leaf#"ford: volt {<p.p.kas>}")
%+ cope $(kas [%bunt p.p.kas])
%- tabl-run
|= {cof+cafe cay+cage}
@ -1724,7 +1724,7 @@
$& (fine cof ..wilt(boy [p.hop boy]))
$|
=. r.p.hop ?:(?=({$ud $0} r.p.hop) r.how r.p.hop)
%+ cool |.(leaf/"ford: wilt {<[(tope p.hop)]>}")
%+ cool |.(leaf#"ford: wilt {<[(tope p.hop)]>}")
%+ cope (lend cof p.hop)
|= {cof+cafe arc+arch}
?: (~(has by dir.arc) %hoon)
@ -1768,13 +1768,13 @@
|= {cof+cafe cay+cage coy+cage} ^- (bolt gage)
?: ?=(?($hoon $hook) p.cay)
?. ?=($txt-diff p.coy)
(flaw cof leaf/"{<p.cay>} mark with bad diff type: {<p.coy>}" ~)
(flaw cof leaf#"{<p.cay>} mark with bad diff type: {<p.coy>}" ~)
=+ txt=((soft @t) q.q.cay)
?~ txt
(flaw cof leaf/"{<p.cay>} mark on bad data" ~)
(flaw cof leaf#"{<p.cay>} mark on bad data" ~)
=+ dif=((soft (urge cord)) q.q.coy)
?~ dif
=- (flaw cof leaf/"{<p.cay>} data with bad diff" -)
=- (flaw cof leaf#"{<p.cay>} data with bad diff" -)
[>type=p.q.coy< >want=p:!>(*(urge cord))< ~]
=+ pac=(role (lurk (lore (cat 3 u.txt '\0a')) u.dif))
(fine cof %& p.cay [%atom %t] (end 3 (dec (met 3 pac)) pac))
@ -1782,23 +1782,23 @@
%+ cope (fang cof p.cay)
|= {cof+cafe pro+vase}
?. (slab %grad p.pro)
(flaw cof leaf/"no ++grad" ~)
(flaw cof leaf#"no ++grad" ~)
=+ gar=(slap pro [%cnzy %grad])
?@ q.gar
=+ for=((sand %tas) q.gar)
?~ for (flaw cof leaf/"bad mark ++grad" ~)
?~ for (flaw cof leaf#"bad mark ++grad" ~)
(make cof %cast p.cay %pact [%cast u.for `cay] `coy)
?. (slab %form p.gar)
(flaw cof leaf/"no ++form:grad" ~)
(flaw cof leaf#"no ++form:grad" ~)
=+ for=((soft @tas) q:(slap gar [%cnzy %form]))
?~ for
(flaw cof leaf/"bad ++form:grad" ~)
(flaw cof leaf#"bad ++form:grad" ~)
?. =(u.for p.coy)
%+ flaw cof :_ ~
=< leaf/"pact on data with wrong form: {-} {+<} {+>}"
=< leaf#"pact on data with wrong form: {-} {+<} {+>}"
[(trip p.cay) (trip u.for) (trip p.coy)]
?. (slab %pact p.gar)
(flaw cof leaf/"no ++pact:grad" ~)
(flaw cof leaf#"no ++pact:grad" ~)
%+ cope (keel cof pro [[%& 6]~ q.cay]~)
|= {cof+cafe pox+vase}
%+ cope
@ -1858,17 +1858,17 @@
[%| $(a (turn (turn a2 head) |=(b+mass ?~(-.q.b !! p.q.b))))]
%+ turn (~(tap by pol))
|= {@ baby}
:~ =< cache/[%| (turn `(list term)`/hood/bake/lilt/slit/slim/slap/slam .)]
:~ =< cache#[%| (turn `(list term)`/hood/bake/lilt/slit/slim/slap/slam .)]
=- |=(a+term [a `(~(get ja dep) a)])
=< `dep+(jar term *)`(~(rep by jav) .)
|=({{* a+{term *}} b+(jar term *)} (~(add ja b) a))
::
=< depends/[%| (turn `(list term)`/init/sent/done .)]
=< depends#[%| (turn `(list term)`/init/sent/done .)]
=- |=(a+term [a `(~(get ja dep) a)])
=< `dep+(jar term *)`(~(rep by deh) .)
|=({{@ a+{term *}} b+(jar term *)} (~(add ja b) a))
::
tasks/`[dym tad]
tasks#`[dym tad]
==
=+ our=p.q.hic
=+ ^= bay ^- baby
@ -1916,7 +1916,7 @@
^- (unit (unit cage))
[~ ~]
::
++ stay :: save w/o cache
++ stay :: save w#o cache
`axle`+>-.$(pol (~(run by pol) |=(a+baby [tad.a dym.a deh.a ~])))
::
++ take :: response

28
arvo/gall.hoon
View File

@ -14,7 +14,7 @@
++ rook :: forward ames msg
$% {$m p+mark q+*} :: message
{$s p+path} :: subscribe
{$u $~} :: cancel/unsubscribe
{$u $~} :: cancel#unsubscribe
== ::
-- ::
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: local arvo
@ -125,7 +125,7 @@
::
++ mo-conf :: configure
|= {dap+dude lum+culm}
(mo-boot dap ?:((~(has by bum) dap) %old %new) p.p.lum q.p.lum da/now)
(mo-boot dap ?:((~(has by bum) dap) %old %new) p.p.lum q.p.lum da#now)
::
++ mo-pass :: standard pass
|= {pax+path noh+note-arvo}
@ -299,7 +299,7 @@
|= pax+path
^- beak
?> ?=({@ @ @ $~} pax)
[(slav %p i.pax) i.t.pax da/(slav %da i.t.t.pax)]
[(slav %p i.pax) i.t.pax da#(slav %da i.t.t.pax)]
::
++ mo-cyst :: take in /sys
|= {pax+path sih+sign-arvo}
@ -329,7 +329,7 @@
?- -.q.+.sih
$tabl ~|(%made-tabl !!)
$& (mo-give %unto %diff p.q.+>.sih)
$| =. p.q.+>.sih (turn p.q.+>.sih |=(a+tank rose/[~ "! " ~]^[a]~))
$| =. p.q.+>.sih (turn p.q.+>.sih |=(a+tank rose#[~ "! " ~]^[a]~))
~> %slog.`%*(. >[%wh %y]< +> [>%mo-cyst-fail< (flop p.q.+>.sih)])
(mo-give %unto %quit ~) :: XX better errors pls
==
@ -441,8 +441,8 @@
$& ap-abet:(ap-pout:pap t.t.t.pax %diff +.q.+>.q.hin)
$|
=+ why=p.q.+>.q.hin
=. why (turn why |=(a+tank rose/[~ "! " ~]^[a]~))
~> %slog.`rose/[" " "[" "]"]^[>%mo-cook-fail< (flop why)]
=. why (turn why |=(a+tank rose#[~ "! " ~]^[a]~))
~> %slog.`rose#[" " "[" "]"]^[>%mo-cook-fail< (flop why)]
~& [him=q.q.pry our=our pax=pax]
::
:: here we should crash because the right thing
@ -956,15 +956,15 @@
^+ +>
=+ cug=(ap-find /lame)
?~ cug
=. why [>%ap-lame dap wut< (turn why |=(a+tank rose/[~ "! " ~]^[a]~))]
~> %slog.`rose/[" " "[" "]"]^(flop why)
=. why [>%ap-lame dap wut< (turn why |=(a+tank rose#[~ "! " ~]^[a]~))]
~> %slog.`rose#[" " "[" "]"]^(flop why)
+>.$
=^ cam +>.$
%+ ap-call q.u.cug
!>([wut why])
?^ cam
=. why [>%ap-lame-lame< (turn u.cam |=(a+tank rose/[~ "! " ~]^[a]~))]
~> %slog.`rose/[" " "[" "]"]^(welp (flop why) leaf/"." (flop u.cam))
=. why [>%ap-lame-lame< (turn u.cam |=(a+tank rose#[~ "! " ~]^[a]~))]
~> %slog.`rose#[" " "[" "]"]^(welp (flop why) leaf#"." (flop u.cam))
+>.$
+>.$
::
@ -1230,9 +1230,9 @@
[%| $(a (turn (turn a2 head) |=(b+mass ?~(-.q.b !! p.q.b))))]
%+ turn (~(tap by pol.all))
|= {@ mast}
:~ foreign/`sap
blocked/[%| (sort :_(aor (~(tap by (~(run by wub) |=(sofa `+<))))))]
active/[%| (sort :_(aor (~(tap by (~(run by bum) |=(seat `+<))))))]
:~ foreign#`sap
blocked#[%| (sort :_(aor (~(tap by (~(run by wub) |=(sofa `+<))))))]
active#[%| (sort :_(aor (~(tap by (~(run by bum) |=(seat `+<))))))]
==
==
::
@ -1256,7 +1256,7 @@
^- (unit (unit (pair mark *)))
[~ ~]
::
++ stay :: save w/o cache
++ stay :: save w#o cache
`axle`all
::
++ take :: response

78
arvo/hoon.hoon
View File

@ -94,7 +94,7 @@
++ list |* a+$+(* *) :: null-term list
$@($~ {i+a t+(list a)}) ::
++ lone |*(a+$+(* *) p+a) :: just one thing
++ mane $@(@tas {@tas @tas}) :: XML name/space
++ mane $@(@tas {@tas @tas}) :: XML name#space
++ manx {g+marx c+marl} :: XML node
++ marl (list manx) :: XML node list
++ mars {t+{n+$$ a+{i+{n+$$ v+tape} t+$~}} c+$~} :: XML cdata
@ -120,7 +120,7 @@
[i=(-.a -.b) t=$(a +.a, b +.b)] ::
++ pass @ :: public key
++ path (list span) :: filesys location
++ pint {p+{p+@ q+@} q+{p+@ q+@}} :: line/column range
++ pint {p+{p+@ q+@} q+{p+@ q+@}} :: line#column range
++ pole |* a+$+(* *) :: nameless list
$@($~ {a (pole a)}) ::
++ port $: p+axis ::
@ -171,12 +171,12 @@
++ tile $^ {p+tile q+tile} :: ordered pair
$% {$axil p+base} :: base type
{$bark p+term q+tile} :: name
{$bush p+tile q+tile} :: pair/tag
{$bush p+tile q+tile} :: pair#tag
{$fern p+{i+tile t+(list tile)}} :: plain selection
{$herb p+twig} :: gate
{$kelp p+{i+line t+(list line)}} :: tag selection
{$leaf p+term q+@} :: constant atom
{$reed p+tile q+tile} :: atom/cell
{$reed p+tile q+tile} :: atom#cell
{$weed p+twig} :: example
== ::
++ toga :: face control
@ -237,14 +237,14 @@
:: :::::: invocations
{$cnbc p+twig} :: ^~($.p)
{$cncb p+wing q+tram} :: %+, then cast to p
{$cncl p+twig q+twig} :: pull $.p w/ sample q
{$cncl p+twig q+twig} :: pull $.p w# sample q
{$cndt p+twig q+twig} :: %-(q p)
{$cnhp p+twig q+tusk} :: slam p w/ sample q
{$cntr p+wing q+twig r+tram} :: pull p.q w/ changes
{$cnkt p+twig q+twig r+twig s+twig} :: slam p w/ :*(q r s)
{$cnls p+twig q+twig r+twig} :: slam p w/ :*(q r)
{$cnhp p+twig q+tusk} :: slam p w# sample q
{$cntr p+wing q+twig r+tram} :: pull p.q w# changes
{$cnkt p+twig q+twig r+twig s+twig} :: slam p w# :*(q r s)
{$cnls p+twig q+twig r+twig} :: slam p w# :*(q r)
{$cnsg p+wing q+twig r+twig} :: pull p from q with r
{$cnts p+wing q+tram} :: eval. p w/ q changes
{$cnts p+wing q+tram} :: eval. p w# q changes
{$cnzy p+term} :: pulls limb p
{$cnzz p+wing} :: pulls p
:: :::::: nock
@ -252,7 +252,7 @@
{$dtls p+twig} :: nock 4 increment
{$dtzy p+term q+@} :: atom constant
{$dtzz p+term q+*} :: cubical constant
{$dttr p+twig q+twig} :: nock p w/ formula q
{$dttr p+twig q+twig} :: nock p w# formula q
{$dtts p+twig q+twig} :: nock 5 equality test
{$dtwt p+twig} :: nock 3 cell test
:: :::::: prettyprinting
@ -275,8 +275,8 @@
{$sggl p+$@(term {p+term q+twig}) q+twig} :: hint p to product q
{$sggr p+$@(term {p+term q+twig}) q+twig} :: hint p to q
{$sgbc p+term q+twig} :: label q, profiling
{$sgls p+@ q+twig} :: cache/memoize
{$sgpm p+@ud q+twig r+twig} :: print q w/priority
{$sgls p+@ q+twig} :: cache#memoize
{$sgpm p+@ud q+twig r+twig} :: print q w#priority
{$sgts p+twig q+twig} :: avoid duplication
{$sgwt p+@ud q+twig r+twig s+twig} :: hint iff q is yes
{$sgzp p+twig q+twig} :: type in stacktrace
@ -295,7 +295,7 @@
{$tsgr p+twig q+twig} :: use p as .. of q
{$tskt p+twig q+twig r+twig s+twig} :: state machine wing
{$tsls p+twig q+twig} :: push p on .. of q
{$tstr p+term q+wing r+twig} :: make a $bull/alias
{$tstr p+term q+wing r+twig} :: make a $bull#alias
{$tssg p+tusk} :: compose twig list
:: :::::: conditionals
{$wtbr p+tusk} :: logical OR
@ -305,7 +305,7 @@
{$wtkt p+wing q+twig r+twig} :: if p is a cell
{$wtgl p+twig q+twig} :: assert |, ?:(p !! q)
{$wtgr p+twig q+twig} :: assert &, ?:(p q !!)
{$wtls p+wing q+twig r+tine} :: %wthp w/ default
{$wtls p+wing q+twig r+tine} :: %wthp w# default
{$wtpm p+tusk} :: logical AND
{$wtpt p+wing q+twig r+twig} :: if p is an atom
{$wtsg p+wing q+twig r+twig} :: if p is null
@ -315,7 +315,7 @@
{$zpcb p+spot q+twig} :: debug info in trace
{$zpcm p+twig q+twig} :: q twig with p type
{$zpfs p+twig} :: report .. as error
{$zpgr p+twig} :: vase w/ value p
{$zpgr p+twig} :: vase w# value p
{$zpsm p+twig q+twig} :: [type noun] pair
{$zpts p+twig} :: Nock formula of p
{$zpwt p+$@(p+@ {p+@ q+@}) q+twig} :: restrict hoon vers.
@ -362,7 +362,7 @@
{$core p+type q+coil} ::
{$cube p+* q+type} :: constant
{$face p+term q+type} :: name
{$fork p+type q+type} :: union/branch
{$fork p+type q+type} :: union#branch
{$hold p+(list {p+type q+twig})} :: infinite genrator
== ::
++ typo type :: old type
@ -1586,7 +1586,7 @@
::
++ swr ?+(r r $d %u, $u %d) :: flipped rounding
++ prc ?>((gth p 1) p) :: force >= 2 precision
++ den d :: denorm/flush/inf exp
++ den d :: denorm#flush#inf exp
++ emn v :: minimum exponent
++ emx (sum:si emn (sun:si w)) :: maximum exponent
++ spd [e=emn a=1] :: smallest denormal
@ -1814,7 +1814,7 @@
=+ r=(^add f (bex p))
[%f s q r]
::
++ bit |= {a+fn} (bif (rou:pa a)) :: fn to @r w/ rounding
++ bit |= {a+fn} (bif (rou:pa a)) :: fn to @r w# rounding
::
++ bif :: fn to @r no rounding
|= {a+fn} ^- @r
@ -2286,7 +2286,7 @@
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 2cJ, extra math ::
::
++ sqt :: sqrt w/remainder
++ sqt :: sqrt w#remainder
~/ %sqt
|= a+@ ^- {p+@ q+@}
?~ a [0 0]
@ -2958,7 +2958,7 @@
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 2eC, parsing (custom rules) ::
::
++ cold :: replace w/ constant
++ cold :: replace w# constant
~/ %cold
|* {cus+* sef+rule}
~/ %fun
@ -3118,7 +3118,7 @@
::
++ stew :: switch by first char
~/ %stew
|* leh+(list {p+?(@ {@ @}) q+rule}) :: char/range keys
|* leh+(list {p+?(@ {@ @}) q+rule}) :: char#range keys
=+ ^= wor :: range complete lth
|= {ort+?(@ {@ @}) wan+?(@ {@ @})}
?@ ort
@ -4673,7 +4673,7 @@
:+ %rose [":" ~ ~]
:~ (smyt p.sot)
=> [ud=|=(a+@u (scow %ud a)) q.sot]
leaf/"<[{(ud p.p)} {(ud q.p)}].[{(ud p.q)} {(ud q.q)}]>"
leaf#"<[{(ud p.p)} {(ud q.p)}].[{(ud p.q)} {(ud q.q)}]>"
== ==
::
++ mang
@ -5102,7 +5102,7 @@
(dif c $(b (rsh 0 1 b), c (dub c)))
$(b (rsh 0 1 b), c (dub c))
::
++ toe :: exp/log tables
++ toe :: exp#log tables
=+ ^= nu
|= {b+@ c+@}
^- (map @ @)
@ -5630,7 +5630,7 @@
(rep 5 (al xw ow))
::
++ rpp
|= {a+bloq b+@ c+@} :: rip w/filler blocks
|= {a+bloq b+@ c+@} :: rip w#filler blocks
=+ q=(rip a c)
=+ w=(lent q)
?. =(w b)
@ -5690,7 +5690,7 @@
(hml k (met 3 k) t (met 3 t))
::
++ hml
|= {k+@ kl+@ t+@ tl+@} :: w/length
|= {k+@ kl+@ t+@ tl+@} :: w#length
=> .(k (end 3 kl k), t (end 3 tl t))
=+ b=64
=. k ?. (gth kl b) k (shay kl k)
@ -5704,7 +5704,7 @@
|= {p+@ s+@ c+@ d+@}
(pbl p (met 3 p) s (met 3 s) c d)
::
++ pbl :: w/length
++ pbl :: w#length
~/ %pbl
|= {p+@ pl+@ s+@ sl+@ c+@ d+@}
=> .(p (end 3 pl p), s (end 3 sl s))
@ -5733,7 +5733,7 @@
|= {p+@ s+@ n+@ r+@ z+@ d+@}
(hsl p (met 3 p) s (met 3 s) n r z d)
::
++ hsl :: w/length
++ hsl :: w#length
~/ %hsl
|= {p+@ pl+@ s+@ sl+@ n+@ r+@ z+@ d+@}
=| v+(list (list @))
@ -6565,7 +6565,7 @@
?> (~(nest ut (~(peek ut gat) %free 6)) & sam)
(~(play ut [%cell gat sam]) [%cncl [~ 2] [~ 3]])
::
++ slym :: slam w/o sample-type
++ slym :: slam w#o sample-type
|= {gat+vase sam+*} ^- vase
(slap gat(+<.q sam) [%cnzy %$])
::
@ -7923,7 +7923,7 @@
[p.yad [%face p.sut q.yad]]
::
{$fork *}
?: =(p.sut fork/[cube/[%noun atom/%tas]]^[cube/[%void atom/%tas]])
?: =(p.sut fork#[cube#[%noun atom#%tas]]^[cube#[%void atom#%tas]])
[dex %type] :: XX proper print
=+ hin=$(sut p.sut)
=+ yon=$(dex p.hin, sut q.sut)
@ -9356,7 +9356,7 @@
==
==
::
++ puv :: wide/tall flow
++ puv :: wide#tall flow
%+ cook |=(a+(list beet) a)
%- star
;~ pose
@ -10321,11 +10321,11 @@
++ mark @tas :: content type
++ mash |=(* (mass +<)) :: producing mass
++ mass (pair cord (each noun (list mash))) :: memory usage
++ mill (each vase milt) :: vase/metavase
++ mill (each vase milt) :: vase#metavase
++ milt {p+* q+*} :: metavase
++ monk (each ship {p+@tas q+@ta}) :: general identity
++ mold :: new kernel action
|* {a+$+(* *) b+$+(* *)} :: forward/reverse
|* {a+$+(* *) b+$+(* *)} :: forward#reverse
$% {$pass p+path q+a} :: advance
{$slip p+a} :: lateral
{$sick p+b} :: lame refactoring
@ -10776,11 +10776,11 @@
q.q
:- %userspace
:- %|
:~ hoon/`pit
zuse/`bud
hoon-cache/`p.niz
:~ hoon#`pit
zuse#`bud
hoon-cache#`p.niz
q.q.i.ova
dot/`.
dot#`.
==
==
=+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])
@ -10835,7 +10835,7 @@
^- {p+(list ovum) q+*}
=+ pax=(weld hap `path`[%hoon ~])
~& [%vega-start hap]
=+ src=((hard @t) (need (peek now cx/pax)))
=+ src=((hard @t) (need (peek now cx#pax)))
=+ saz=(shax src)
=+ gen=(rain hap src)
~& %vega-parsed
@ -10850,7 +10850,7 @@
=+ raw=.*([-.gat [sam +>.gat]] -.gat)
[[[~ %vega hap] ((list ovum) -.raw)] +.raw]
::
++ veer :: install vane/tang
++ veer :: install vane#tang
|= {now+@da fav+curd}
=> .(fav ((hard {$veer lal+@ta pax+path txt+@t}) fav))
?: =(%$ lal.fav)

6
arvo/jael.hoon
View File

@ -1,6 +1,6 @@
:: %jael, secret storage
::
:::: /hoon/jael
:::: /hoon#jael
::
!? 164
::::
@ -18,7 +18,7 @@
:: /userid :: user identity
::
:: /urb :: urbit secrets
:: /tok/hash
:: /tok#hash
|= pit=vase
=> =~
@ -137,7 +137,7 @@
:: actually scry
~
::
++ stay :: save w/o cache
++ stay :: save w#o cache
`axle`+>-.$(pol (~(run by pol) |=(a=baby [tad.a dym.a ~])))
::
++ take :: response

6
arvo/kahn.hoon
View File

@ -1,6 +1,6 @@
:: %kahn, social state
::
:::: /hoon/kahn
:::: /hoon#kahn
::
!? 164
::::
@ -30,7 +30,7 @@
[%know p=monk q=(map monk link)] :: set forward links
[%nuke ~] :: erase subscriber
== ::
++ link (pair rank ,@da) :: trust/expiration
++ link (pair rank ,@da) :: trust#expiration
++ monk (each ship khan) :: general identity
++ rank :: privilege ring
$? %0 :: complete trust
@ -93,7 +93,7 @@
(
::
++ stay :: save w/o cache
++ stay :: save w#o cache
`axle`+>-.$
::
++ take :: response

4
arvo/lunt.hoon
View File

@ -1,6 +1,6 @@
:: %lunt, fleet job control
::
:::: /hoon/lunt
:::: /hoon#lunt
::
!? 164
::::
@ -94,7 +94,7 @@
^- (unit (unit (pair mark ,*)))
~
::
++ stay :: save w/o cache
++ stay :: save w#o cache
`axle`+>-.$
::
++ take :: response

12
arvo/musk.hoon
View File

@ -1,6 +1,6 @@
:: %musk, realm management
::
:::: /hoon/musk
:::: /hoon#musk
::
!? 164
::::
@ -38,10 +38,10 @@
++ rank :: relative privilege
$? %0 :: enemy
%1 :: neighbor
%2 :: guest/customer
%3 :: friend/employee
%4 :: officer/family
%5 :: self/admin
%2 :: guest#customer
%3 :: friend#employee
%4 :: officer#family
%5 :: self#admin
== ::
++ girl ::
$: hop=pony :: status
@ -84,7 +84,7 @@
^- (unit (unit (pair mark ,*)))
~
::
++ stay :: save w/o cache
++ stay :: save w#o cache
`axle`+>-.$
::
++ take :: response

58
arvo/zuse.hoon
View File

@ -553,7 +553,7 @@
;~ pfix bas
;~ pose
doq fas soq bas
(sear ~(get by `(map @t @)`(mo b/8 t/9 n/10 f/12 r/13 ~)) low)
(sear ~(get by `(map @t @)`(mo b#8 t#9 n#10 f#12 r#13 ~)) low)
;~(pfix (just 'u') (cook tuft qix:ab)) :: 4-digit hex to UTF-8
==
==
@ -1182,7 +1182,7 @@
tup=|*({a+@tas b+(pole @tas)} =+(c=(odo:raid a) ?~(b c {c (..$ b)})))
::
:: .= [p=%ack q=~sarnel r=&]
:: (raid /ack/~sarnel/.y p=%tas q=%p r=%f ~)
:: (raid /ack#~sarnel#.y p=%tas q=%p r=%f ~)
++ raid :: demand path odors
=- |* {a+path b+{@tas (pole @tas)}}
?~ +.b `(odo -.b)`(slav -.b -.a)
@ -1299,7 +1299,7 @@
==
--
::
++ urlp :: url/header parser
++ urlp :: url#header parser
|%
++ apat :: 2396 abs_path
%+ cook deft
@ -1356,7 +1356,7 @@
++ tock (cook crip (plus pcok)) :: 6265 cookie-value
++ tosk ;~(pose tock (ifix [doq doq] tock)) :: 6265 cookie-value
++ toke (cook crip (plus ptok)) :: 2616 token
++ thor :: 2396 host/port
++ thor :: 2396 host#port
%+ cook |*(a+{* *} [+.a -.a])
;~ plug
thos
@ -1401,7 +1401,7 @@
(stag %| ;~(plug apat yque))
==
--
++ epur :: url/header parser
++ epur :: url#header parser
=>(urlp |=(a+cord `(unit purl)`(rush a auri)))
::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ -1475,15 +1475,15 @@
:: |= [pax=path src=*]
:: ^- (each twig (list tank))
:: ?. ?=(@ src)
:: [%| ~[[leaf/"musk: malformed: {<pax>}"]]]
:: [%| ~[[leaf#"musk: malformed: {<pax>}"]]]
:: =+ ^= mud
:: %- mule |.
:: ((full vest) [1 1] (trip src))
:: ?: ?=(| -.mud) mud
:: ?~ q.p.mud
:: :~ %|
:: leaf/"musk: syntax error: {<pax>}"
:: leaf/"musk: line {<p.p.p.mud>}, column {<q.p.p.mud>}"
:: leaf#"musk: syntax error: {<pax>}"
:: leaf#"musk: line {<p.p.p.mud>}, column {<q.p.p.mud>}"
:: ==
:: [%& p.u.q.p.mud]
:: ::
@ -1723,15 +1723,15 @@
{$king p+@t} :: 16-bit ship
{$pawn p+(unit @t)} :: 128-bit ship
== ::
++ govt path :: country/postcode
++ govt path :: country#postcode
++ hand @uvH :: hash of code
++ hart {p+? q+(unit @ud) r+host} :: http sec/port/host
++ hart {p+? q+(unit @ud) r+host} :: http sec#port#host
++ hate {p+purl q+@p r+moth} :: semi-cooked request
++ heir {p+@ud q+mess r+(unit love)} :: status/headers/data
++ heir {p+@ud q+mess r+(unit love)} :: status#headers#data
++ hiss {p+purl q+moth} :: outbound request
++ hist {p+@ud q+(list @t)} :: depth texts
++ hole @t :: session identity
++ hort {p+(unit @ud) q+host} :: http port/host
++ hort {p+(unit @ud) q+host} :: http port#host
++ host (each (list @t) @if) :: http host
++ hoke %+ each {$localhost $~} :: local host
?($.0.0.0.0 $.127.0.0.1) ::
@ -1762,7 +1762,7 @@
== ::
++ lane :: packet route
$% {$if p+@da q+@ud r+@if} :: IP4/public UDP/addr
{$is p+@ud q+(unit lane) r+@is} :: IPv6 w/alternates
{$is p+@ud q+(unit lane) r+@is} :: IPv6 w#alternates
{$ix p+@da q+@ud r+@if} :: IPv4 provisional
== ::
++ lang @ta :: IETF lang as code
@ -1783,7 +1783,7 @@
{$mid p+mite q+octs} :: mime-typed data
{$raw p+httr} :: raw http response
{$wan p+wain} :: text lines
{$zap p+@ud q+(list tank)} :: status/error
{$zap p+@ud q+(list tank)} :: status#error
== ::
++ maki {p+@ta q+@ta r+@ta s+path} ::
++ mace (list {p+life q+ring}) :: private secrets
@ -1793,7 +1793,7 @@
{$buck p+coop q+flap r+@dr} :: e2e ack
{$bond p+life q+path r+@ud s+*} :: message
{$bund p+life q+path r+@ud s+*} :: e2e message
{$carp p+@ q+@ud r+@ud s+flap t+@} :: skin/inx/cnt/hash
{$carp p+@ q+@ud r+@ud s+flap t+@} :: skin#inx#cnt#hash
{$fore p+ship q+(unit lane) r+@} :: forwarded packet
== ::
++ mess (list {p+@t q+@t}) :: raw http headers
@ -1829,7 +1829,7 @@
++ moat {p+case q+case r+path} :: change range
++ mood {p+care q+case r+path} :: request in desk
++ 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
++ name {p+@t q+(unit @t) r+(unit @t) s+@t} :: first mid#nick last
++ newt ?($boot $kick $mess $slay $wake) :: lifecycle events
++ nori :: repository action
$% {$& p+soba} :: delta
@ -1853,7 +1853,7 @@
++ purf (pair purl (unit @t)) :: url with fragment
++ purl {p+hart q+pork r+quay} :: parsed url
++ putt :: outgoing message
$: ski+snow :: sequence acked/sent
$: ski+snow :: sequence acked#sent
wyv+(list rock) :: packet list XX gear
== ::
++ pyre :: cascade stash
@ -1895,7 +1895,7 @@
$: sed+@ud :: sent
san+(map @ud duct) :: outstanding
== ::
++ riot (unit rant) :: response/complete
++ riot (unit rant) :: response#complete
++ road :: secured oneway route
$: exp+@da :: expiration date
lun+(unit lane) :: route to friend
@ -1904,7 +1904,7 @@
++ rock @uvO :: packet
++ rout {p+(list host) q+path r+oryx s+path} :: http route (new)
++ rump {p+care q+case r+@tas s+path} :: relative path
++ saba {p+ship q+@tas r+moar s+dome} :: patch/merge
++ saba {p+ship q+@tas r+moar s+dome} :: patch#merge
++ sack {p+ship q+ship} :: incoming [our his}
++ sufi :: domestic host
$: hoy+(list ship) :: hierarchy
@ -1935,7 +1935,7 @@
cag+@ud :: congest thresh
== ::
$: diq+(map flap @ud) :: packets sent
pyz+(map soup @ud) :: message/unacked
pyz+(map soup @ud) :: message#unacked
puq+(qeu {p+@ud q+soul}) :: packet queue
== ::
== ::
@ -1976,12 +1976,12 @@
{$lord p+whom} :: male person []
{$punk p+sect q+@t} :: opaque handle ""
== ::
++ whom {p+@ud q+govt r+sect s+name} :: year/govt/id
++ whom {p+@ud q+govt r+sect s+name} :: year#govt#id
++ woof $@ $know :: udon transform
{$chan (list {$@(@ud {p+@ud q+@ud})})} ::
++ wund (list {p+life q+ring r+acru}) :: mace in action
++ will (list deed) :: certificate
++ zuse %310 :: hoon/zuse kelvin
++ zuse %310 :: hoon#zuse kelvin
:: ::
:::: :::: this will become `%york`, vane structures.
:: ::
@ -2032,7 +2032,7 @@
dir+(unit (map @ta (unit khan))) ::
== ::
++ mode (list {path (unit mime)}) ::
++ riff {p+desk q+(unit rave)} :: request/desist
++ riff {p+desk q+(unit rave)} :: request#desist
:::: ::
++ gift-clay :: out result <-$
$% {$ergo p+@tas q+mode} :: version update
@ -2098,7 +2098,7 @@
{$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
{$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
@ -2176,7 +2176,7 @@
{$mack p+(unit tang)} :: message ack
{$sigh p+cage} :: marked http response
{$thou p+httr} :: raw http response
{$thus p+@ud q+(unit hiss)} :: http request/cancel
{$thus p+@ud q+(unit hiss)} :: http request#cancel
{$veer p+@ta q+path r+@t} :: drop-through
{$vega p+path} :: drop-through
== ::
@ -2210,7 +2210,7 @@
{$saw p+twig q+horn} :: /; operate on
{$see p+beam q+horn} :: /: relative to
{$sic p+twig q+horn} :: /^ cast
{$toy p+mark} :: /mark/ static
{$toy p+mark} :: /mark# static
== ::
++ milk (trel ship desk silk) :: sourced silk
++ silk :: construction layer
@ -2239,7 +2239,7 @@
== ::
::::
++ bilk (pair beak silk) :: sourced request
++ gage :: recursive cage/tang
++ gage :: recursive cage#tang
$% {$& p+cage} :: success
{$| p+tang} :: error
{$tabl p+(list (pair gage gage))} :: table of results
@ -2264,7 +2264,7 @@
{$puff p+mark q+noun} :: unchecked poke
{$pull $~} :: unsubscribe
{$punk p+mark q+cage} :: translated poke
{$pump $~} :: pump yes/no
{$pump $~} :: pump yes#no
== ::
++ cuft :: internal gift
$% {$coup p+(unit tang)} :: poke result
@ -2274,7 +2274,7 @@
{$reap p+(unit tang)} :: peer result
== ::
++ culm :: config action
$% {$load p+scup} :: load/reload
$% {$load p+scup} :: load#reload
:: {$kick $~} :: restart everything
:: {$stop $~} :: toggle suspend
:: {$wipe $~} :: destroy all state

14
gen/cat.hoon
View File

@ -1,15 +1,15 @@
:: ConCATenate file listings
::
:::: /hoon/gen/cat
:::: /hoon#gen#cat
::
// /%%/ls/subdir
// /%%/ls#subdir
// /%/pretty
!:
::::
::
:- %say
|= {^ {arg+(list path)} $~}
=- tang/(flop `tang`(zing -))
=- tang#(flop `tang`(zing -))
%+ turn arg
|= pax+path
^- tang
@ -17,17 +17,17 @@
?^ fil.ark
?: =(%sched -:(flop pax))
[>;;((map ,@da cord) .^(%cx pax))<]~
[leaf/(spud pax) (pretty-file .^(%cx pax))]
[leaf#(spud pax) (pretty-file .^(%cx pax))]
?- dir.ark :: handle ambiguity
$~
[rose/[" " `~]^~[leaf/"~" (smyt pax)]]~
[rose#[" " `~]^~[leaf#"~" (smyt pax)]]~
::
{{@t $~} $~ $~}
$(pax (welp pax /[p.n.dir.ark]))
::
*
=- [palm/[": " ``~]^-]~
:~ rose/[" " `~]^~[leaf/"*" (smyt pax)]
=- [palm#[": " ``~]^-]~
:~ rose#[" " `~]^~[leaf#"*" (smyt pax)]
`tank`(subdir pax dir.ark)
==
==

8
gen/cat/pretty.hoon
View File

@ -3,10 +3,10 @@
++ pretty-noun
|= pri=* ^- tank
?~ pri
leaf/"~"
leaf#"~"
?@ pri
leaf/?:(((sane %tas) pri) <`@tas`pri> <pri>)
=< rose/[" " ?:(- "~[" "[") "]"]^+
leaf#?:(((sane %tas) pri) <`@tas`pri> <pri>)
=< rose#[" " ?:(- "~[" "[") "]"]^+
|- ^- [? (list tank)]
?~ +.pri
[& ^$(pri -.pri) ~]
@ -17,7 +17,7 @@
++ vale-cord |=(a=cord `?`(levy (trip a) |=(b=@ |((gte b 32) =(10 b)))))
::
++ pretty-file
=+ wain-to-tang=|=(a=wain (turn a |=(b=cord leaf/(trip b))))
=+ wain-to-tang=|=(a=wain (turn a |=(b=cord leaf#(trip b))))
|= fyl=* ^- tang
=+ `(unit wain)`?@(fyl `(lore fyl) ((soft wain) fyl))
?^ - (wain-to-tang u)

2
gen/curl/url.hoon
View File

@ -7,4 +7,4 @@
!:
:- %say
|= {^ {arg+tape $~} $~}
purl/(scan arg auri:epur)
purl#(scan arg auri:epur)

2
gen/hello.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/hello/gen
:::: /hoon#hello#gen
::
/? 314
::

4
gen/hood/ask.hoon
View File

@ -2,5 +2,5 @@
|= {^ {mel+cord $~} $~}
=+ adr=(star ;~(less (mask "\"\\()[],:;<>@") prn))
=+ dom=[;~(plug dlab dot (most dot dlab))]:urlp
=+ ~|(bad-email/mel (rash mel ;~((glue pat) adr dom)))
helm-send-ask/mel
=+ ~|(bad-email#mel (rash mel ;~((glue pat) adr dom)))
helm-send-ask#mel

2
gen/hood/autoload.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/autoload/hood/gen
:::: /hoon#autoload#hood#gen
::
/? 314
::

2
gen/hood/begin.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/begin/hood/gun
:::: /hoon#begin#hood#gun
::
/? 314
/- sole

2
gen/hood/breload.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/reload/hood/gen
:::: /hoon#reload#hood#gen
::
/? 314
::

2
gen/hood/cancel.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/cancel/hood/gen
:::: /hoon#cancel#hood#gen
::
/? 314
::

2
gen/hood/cp.hoon
View File

@ -1,2 +1,2 @@
:- %say
|=({^ {input+path output+path $~} $~} kiln-cp/[input output])
|=({^ {input+path output+path $~} $~} kiln-cp#[input output])

2
gen/hood/deset.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/deset/hood/gen
:::: /hoon#deset#hood#gen
::
/? 314
::

2
gen/hood/hi.hoon
View File

@ -1,2 +1,2 @@
:- %say
|=({^ {who+ship mez+$@($~ {a+tape $~})} $~} helm-send-hi/[who ?~(mez ~ `a.mez)])
|=({^ {who+ship mez+$@($~ {a+tape $~})} $~} helm-send-hi#[who ?~(mez ~ `a.mez)])

2
gen/hood/init.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/reload/hood/gen
:::: /hoon#reload#hood#gen
::
/? 314
::

2
gen/hood/invite.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/invite/hood/gen
:::: /hoon#invite#hood#gen
::
/? 314
::

2
gen/hood/label.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/label/hood/gen
:::: /hoon#label#hood#gen
::
/? 314
::

2
gen/hood/link.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/link/hood/gen
:::: /hoon#link#hood#gen
::
/? 314
::

2
gen/hood/mass.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/mass/hood/gen
:::: /hoon#mass#hood#gen
::
/? 314
::

2
gen/hood/merge.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/merge/hood/gen
:::: /hoon#merge#hood#gen
::
/? 314
!:

2
gen/hood/mount.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/mount/hood/gen
:::: /hoon#mount#hood#gen
::
/? 314
::

2
gen/hood/mv.hoon
View File

@ -1,2 +1,2 @@
:- %say
|=({^ {input+path output+path $~} $~} kiln-mv/[input output])
|=({^ {input+path output+path $~} $~} kiln-mv#[input output])

2
gen/hood/overload.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/overload/hood/gen
:::: /hoon#overload#hood#gen
::
/? 314
::

2
gen/hood/rc.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/reload/hood/gen
:::: /hoon#reload#hood#gen
::
/? 314
::

2
gen/hood/reboot.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/reload/hood/gen
:::: /hoon#reload#hood#gen
::
/? 314
::

2
gen/hood/reload-desk.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/reload/hood/gen
:::: /hoon#reload#hood#gen
::
/? 314
::

2
gen/hood/reload.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/reload/hood/gen
:::: /hoon#reload#hood#gen
::
/? 314
::

2
gen/hood/reset.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/reset/hood/gen
:::: /hoon#reset#hood#gen
::
/? 314
::

2
gen/hood/rf.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/reload/hood/gen
:::: /hoon#reload#hood#gen
::
/? 314
::

2
gen/hood/rm.hoon
View File

@ -1,2 +1,2 @@
:- %say
|=({^ {input+path $~} $~} kiln-rm/input)
|=({^ {input+path $~} $~} kiln-rm#input)

2
gen/hood/schedule.hoon
View File

@ -1,2 +1,2 @@
:- %say
|=({^ {where+path tym+@da eve+@t $~} $~} kiln-schedule/[where tym eve])
|=({^ {where+path tym+@da eve+@t $~} $~} kiln-schedule#[where tym eve])

2
gen/hood/start.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/start/hood/gen
:::: /hoon#start#hood#gen
::
/? 314
::

2
gen/hood/sync.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/sync/hood/gen
:::: /hoon#sync#hood#gen
::
/? 314
::

2
gen/hood/unix.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/unix/hood/gen
:::: /hoon#unix#hood#gen
::
/? 314
::

2
gen/hood/unlink.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/link/hood/gen
:::: /hoon#link#hood#gen
::
/? 314
::

2
gen/hood/unmount.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/mount/hood/gen
:::: /hoon#mount#hood#gen
::
/? 314
::

2
gen/hood/unsync.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/unsync/hood/gen
:::: /hoon#unsync#hood#gen
::
/? 314
::

2
gen/hood/verb.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/verb/hood/gun
:::: /hoon#verb#hood#gun
::
/? 314
/- sole

4
gen/ls.hoon
View File

@ -1,6 +1,6 @@
:: LiSt directory subnodes
::
:::: /hoon/ls/gen
:::: /hoon#ls#gen
::
// /%/subdir
!:
@ -9,4 +9,4 @@
:- %say
|= {^ {arg+path $~} $~}
=+ lon=((hard arch) .^(%cy arg))
tang/[?~(dir.lon leaf/"~" (subdir arg dir.lon))]~
tang#[?~(dir.lon leaf#"~" (subdir arg dir.lon))]~

2
gen/ls/subdir.hoon
View File

@ -7,7 +7,7 @@
|= {kid+@ta $~}
=+ paf=`path`/[kid]
=- :+ %rose ["/" ~ ?:(dir "/" ~)]
(turn paf |=(a+span leaf/(trip a)))
(turn paf |=(a+span leaf#(trip a)))
|- ^- {dir+? paf+path}
=+ arf=;;(arch .^(%cy (weld pax paf)))
?^ fil.arf

2
gen/make.hoon
View File

@ -1,2 +1,2 @@
:- %say
|=({^ arg+(list @) foo+_`@`1 bar+_`@`2} noun/[arg foo bar])
|=({^ arg+(list @) foo+_`@`1 bar+_`@`2} noun#[arg foo bar])

4
gen/moon.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/ticket/gen
:::: /hoon#ticket#gen
::
/? 314
::
@ -12,5 +12,5 @@
:- %noun
?> =(1 (met 5 p.bec))
=+ mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)
=+ tic=((hard @p) .^(/a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon)))
=+ tic=((hard @p) .^(/a#(scot %p p.bec)/tick#(scot %da now)/(scot %p mon)))
"moon: {<`@p`mon>}; ticket: {<tic>}"

6
gen/pope.hoon
View File

@ -8,7 +8,7 @@
{{who+ship $~} $~}
==
^- (sole-result (cask tang))
%+ sole-yo leaf/"generating carrier {(scow %p who)} (#{(scow %ud who)})"
%+ sole-yo leaf#"generating carrier {(scow %p who)} (#{(scow %ud who)})"
%+ sole-lo [%| %pope-pass "passphrase: "]
%+ sole-go (boss 256 (star prn))
|= fra+@t
@ -19,6 +19,6 @@
~& %computing-fingerprint
=+ arc=(cryp 2.048 bur)
%+ sole-so %tang
:~ leaf/"generator: {(scow %uw bur)}"
leaf/"fingerprint: {(scow %uw fig:ex:arc)}"
:~ leaf#"generator: {(scow %uw bur)}"
leaf#"fingerprint: {(scow %uw fig:ex:arc)}"
==

2
gen/solid.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/solid/gen
:::: /hoon#solid#gen
::
/? 314
::

4
gen/ticket.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/ticket/gen
:::: /hoon#ticket#gen
::
/? 314
::
@ -10,4 +10,4 @@
{{her+@p ~} ~}
==
:- %noun
((hard @p) .^(/a/(scot %p p.bec)/tick/(scot %da now)/(scot %p her)))
((hard @p) .^(/a#(scot %p p.bec)/tick#(scot %da now)/(scot %p her)))

4
gen/tree.hoon
View File

@ -1,6 +1,6 @@
:: Tree view recursive directory contents
::
:::: /hoon/tree/gen
:::: /hoon#tree#gen
::
!:
::::
@ -11,7 +11,7 @@
=+ rend=?^(fla smyt |=(a+path (smyt (slag len a))))
:- %tang %- flop
|- ^- tang
=+ ark=;;(arch .^(cy/pax))
=+ ark=;;(arch .^(cy#pax))
=- ?~ fil.ark -
[(rend pax) -]
%- zing

4
gen/twit/tweet.hoon
View File

@ -3,11 +3,11 @@
|_ {hide $~}
++ peer _`.
++ poke--args
%+ add-subs [[our /twit] our /post/(scot %uv eny)]
%+ add-subs [[our /twit] our /post#(scot %uv eny)]
%^ gate-mess .
|=([a=span b=cord ~] [/twit %twit-do !>([a %post eny b])])
,_`.
++ posh-twit-stat
(args-into-gate . |=({@ @ a+@da @} tang/~[leaf/"tweet received {<a>}"]))
(args-into-gate . |=({@ @ a+@da @} tang#~[leaf#"tweet received {<a>}"]))
++ pour |*({ost+@ * sih+{@ ^}} :_(+>.$ [ost %give +.sih]~))
--

8
gen/twit/twitter-feed.hoon
View File

@ -1,6 +1,6 @@
:: Display twitter feed
::
:::: /hook/core/twitter-feed/app
:::: /hook#core#twitter-feed#app
::
/+ sh-utils
!:
@ -11,12 +11,12 @@
++ stat {id+@u who+@ta now+@da txt+@t}
++ rens
:- %say
|=(stat rose/[": " `~]^~[leaf/"{<now>} @{(trip who)}" leaf/(trip txt)])
|=(stat rose#[": " `~]^~[leaf#"{<now>} @{(trip who)}" leaf#(trip txt)])
++ peer _`.
++ poke--args
|= {ost+bone his+ship who+span $~}
%.(+< (add-subs [[our /twit] our /user/[who]] ,_`+>.$))
%.(+< (add-subs [[our /twit] our /user#[who]] ,_`+>.$))
::
++ posh-twit-feed
(args-into-gate . |+(a=(list stat) tang/(turn a rens)))
(args-into-gate . |+(a=(list stat) tang#(turn a rens)))
--

2
lib/down-jet.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/down-jet/lib
:::: /hoon#down-jet#lib
::
/- markdown
::

46
lib/down-jet/parse.hoon
View File

@ -16,12 +16,12 @@
=+ pax=/==5%%/html5-entities/json :: XX %%/
=+ maf=%.(pax ;~(biff file (soft json) (om so):jo))
?^ maf u.maf
~& no-enty/pax
(mo amp/'&' quot/'"' apos/'\'' lt/'<' gt/'>' ~) :: fallback
~& no-enty#pax
(mo amp#'&' quot#'"' apos#'\'' lt#'<' gt#'>' ~) :: fallback
::
++ skem-symb (star ;~(pose dot alp))
++ skem-set ~+ ^- (set cord) :: URI schemes
:: (sa `wain`/http/https/javascript)
:: (sa `wain`/http#https#javascript)
=- (sa `wain`(rash - (more gah (cook crip skem-symb))))
'''
coap doi javascript aaa aaas about acap cap cid crid data dav dict dns file
@ -233,12 +233,12 @@
++ auto
%+ ifix gal^gar
;~ pose
(cook |=(a+tape [link/["mailto:{a}" ~] ~[`a]]) mail)
(cook |=(a+tape [link#["mailto:{a}" ~] ~[`a]]) mail)
::
=+ cha=;~(pose htm-enty ;~(less (mask "<> ") prn))
%+ cook
|= a+_["" ""]
[link/[(weld a) ~] ~[`(weld a)]]
[link#[(weld a) ~] ~[`(weld a)]]
;~(plug uri-skem col (star cha))
==
::
@ -365,7 +365,7 @@
++ push :: continue with head
|= a+$@(char inline)
^- nuft
~? ?@(a | bug) fon/a
~? ?@(a | bug) fon#a
?~ t (veld a done)
=: noz &
i i ::?+(i i fens p)
@ -426,7 +426,7 @@
=^ b t (flome tak)
?~ b
(push (empa a))
~? > bug clot/[a i t]
~? > bug clot#[a i t]
?: =(i u.b)
(push (empa a))
?~ ins :: outermost
@ -662,7 +662,7 @@
=^ nol nod
[nod [%defn ~]]
?: ?=($defn -.nol) self
~? > bug clod/[nol tub]
~? > bug clod#[nol tub]
?~ cur self(top [nol top])
self(q.q.i.cur [nol q.q.i.cur])
::
@ -754,7 +754,7 @@
|= a+(list (pair @ tops)) ^+ +>
?~ a +>
:: ?: ?=([[@ *] ~] a) +>
~? bug yank/[i.a blos]
~? bug yank#[i.a blos]
?> (match q.i.a)
:: ~& [%no-match a cur]
:: !!
@ -787,7 +787,7 @@
(. cur)
[i.cur (. t.cur)]
|= a+_cur ^+ a
~? > bug naro/[debu nil-li a cur]
~? > bug naro#[debu nil-li a cur]
?~ a a
?: ?=({{$item $~} $~} q.i.a)
a
@ -800,12 +800,12 @@
::
++ eat-line :: high-level line nom
^+ .
~? >> bug line/curlin
~? >> bug line#curlin
:: => [bup=bun sepa:eat]
:: ?: bun:+ + :: blank line nommed
:: =< .(bun |)
:: =. bun bup
~? bug line-stat/[debu cur]
~? bug line-stat#[debu cur]
?: ?=($html -.nod)
=+ sep=(sepa:eat)
?: bun.sep sep
@ -815,7 +815,7 @@
code:eat
=+ sep=(sepa:eat ruc)
?: bun.sep
~? bug nilli/[debu nil-li nod cur]:sep
~? bug nilli#[debu nil-li nod cur]:sep
=. bun.sep
?^(ruc & ?^(cur | !nil-li:sep)) :: XX Chesterton fence
sep
@ -825,7 +825,7 @@
news:eat
node:eat
span:eat
:: ~? bug seated/[nod blos] .
:: ~? bug seated#[nod blos] .
==
::
++ curlin (scab q.tub (star prn))
@ -838,7 +838,7 @@
=^ buf tub (snack ;~(sfix (star ace) nal))
?~ buf
self(bun |)
~? bug seat/cur
~? bug seat#cur
=. self
?: bun
delist
@ -864,7 +864,7 @@
?: =(~ q.tub)
[~ halt]
?~ ruc [ruc self]
~? bug heat/[debu q.i.ruc cur]
~? bug heat#[debu q.i.ruc cur]
?- -.p.q.i.ruc
$bloq
=^ neu tub (snack blomar:donp)
@ -875,7 +875,7 @@
?~ t.ruc !!
:: $(t.ruc [p.i.ruc [%item ~] ~]~) :: XX why this
?> ?=($item -.p.q.i.t.ruc)
~? bug leat/[p.i.t.ruc debu]
~? bug leat#[p.i.t.ruc debu]
=^ den tub (snack (stun [p p]:i.t.ruc ace))
?^ den $(ruc t.t.ruc)
?. =(self horz) [ruc self] :: XX efficiency
@ -899,7 +899,7 @@
++ lazy :: errant prev bloqs
|= ruc+(list (pair @ tops))
^+ self
~? bug laze/[debu ruc]
~? bug laze#[debu ruc]
?. ?=($para -.nod)
(collapse (flop ruc))
?: |([?=(^ -)]:lead [?=(^ -)]:(snack leaf:donp)) :: XX efficiency
@ -931,7 +931,7 @@
::
++ node :: consume leaf node
^+ self
~? bug neat/curlin
~? bug neat#curlin
::=. self ?.(bun self cull)
?^ [q]:((leas htm-head):donp tub) :: XX efficiency
(pump [%html ~])
@ -944,7 +944,7 @@
=+ saf=q.p.+:(snack (star ace)) :: XX efficiency
=^ neu tub
(snack ;~(pose hez ico leaf:donp))
~? bug feat/[bun saf blos neu]
~? bug feat#[bun saf blos neu]
=. cur
?.(bun cur widen)
?~ neu
@ -964,7 +964,7 @@
++ code
^+ self
?> ?=({$code ^ *} nod) :: XX do type stuff
~? bug ceas/[sap]
~? bug ceas#[sap]
=. tub (aces sap)
=+ [neu tup]=(snack ;~(sfix (leas fcode):donp eol))
?: &(?=(^ neu) (closes-code p.nod p.u.neu))
@ -982,14 +982,14 @@
(snack line:donp)
?~ lin
halt
~? bug adva/u.lin
~? bug adva#u.lin
|-
?~ u.lin
?+ -.nod cull
$code self
$html self(p.nod ['' p.nod])
==
?+ -.nod (pump para/~[`u.lin])
?+ -.nod (pump para#~[`u.lin])
$para self(p.nod :_(p.nod `u.lin))
$head ?^ q.nod $(self cull)
self(q.nod [`(dehax u.lin)]~)

6
lib/down-jet/rend.hoon
View File

@ -125,10 +125,10 @@
$para [/p (sung p.a)]
$head
=+ [hed=(add %h0 (lsh 3 1 p.a)) kid=(sung q.a)]
[[hed id/(sanitize kid) ~] kid]
[[hed id#(sanitize kid) ~] kid]
::
$hrul ;hr;
$meta =+ jon=`json`o/(~(run by p.a) |=(cord s/+<))
$meta =+ jon=`json`o#(~(run by p.a) |=(cord s#+<))
;meta(value "{(pojo jon)}", name "frontmatter", urb_front "");
:: %html
::=+ tex=(role (turn p.a crip))
@ -224,7 +224,7 @@
=+ res=`manx`;img(src (urly p.p.b), alt (flat (turn q.b ..$)));
:: ;img@"{p.p.b}";
?~ q.p.b res
res(a.g (welp a.g.res title/u.q.p.b ~))
res(a.g (welp a.g.res title#u.q.p.b ~))
=+ kid=(sung q.b)
%+ into-inner kid
?- p.b

8
lib/drum.hoon
View File

@ -87,7 +87,7 @@
:* %&
*(unit search)
*history
[%& %sole "{(scow %p our)}# "]
[%& %sole "{(scow %p our)}/ "]
*sole-command
==
::
@ -159,7 +159,7 @@
?. ?| =(our src) :: ourself
&(=(%duke (clan our)) =(our (sein src))) :: or our own yacht
== ::
~| [%drum-unauthorized our/our src/src] :: very simplistic
~| [%drum-unauthorized our#our src#src] :: very simplistic
!!
se-view:(se-text "[{<src>}, driving {<our>}]")
::
@ -305,7 +305,7 @@
++ se-anon :: rotate index
=+ wag=se-amor
?~ wag +
:: ~& [%se-anon inx/inx wag/wag nex/(mod +(inx) (lent se-amor))]
:: ~& [%se-anon inx#inx wag#wag nex#(mod +(inx) (lent se-amor))]
+(inx (mod +(inx) (lent se-amor)))
::
++ se-agon :: current gill
@ -515,7 +515,7 @@
^+ ..ta
?. liv
?: (~(has in (deft-fish our)) gyl)
(se-blit qit/~)
(se-blit qit#~)
(se-nuke gyl)
..ta(fug (~(put by fug) gyl ``target`+<+))
::

4
lib/frontmatter.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/frontmatter/lib
:::: /hoon#frontmatter#lib
::
/? 314
!:
@ -28,7 +28,7 @@
?^ (rush i.t.wan (star ace))
$(wan t.wan)
=- $(wan t.wan, atr (~(put by atr) (crip key) (crip val)))
~| malformed-attribute/i.t.wan
~| malformed-attribute#i.t.wan
^- {key+tape ^ val+tape}
+>:(atr-key 1^1 (trip i.t.wan))
--

4
lib/helm.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/helm/lib :: ::
:::: /hoon/helm/lib :: ::
:: :: ::
/? 310 :: version
/- sole
@ -80,7 +80,7 @@
::
++ poke-init :: initialize
|= him+ship =< abet
(emit %flog /helm %crud %hax-init leaf/(scow %p him) ~)
(emit %flog /helm %crud %hax-init leaf#(scow %p him) ~)
::
++ poke-mass
|= $~ =< abet

2
lib/http.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/http/lib
:::: /hoon#http#lib
::
::
::

70
lib/kiln.hoon
View File

@ -83,15 +83,15 @@
::
++ render
|= {mez+tape sud+desk who+ship syd+desk}
:^ %palm [" " ~ ~ ~] leaf/mez
~[leaf/"from {<sud>}" leaf/"on {<who>}" leaf/"to {<syd>}"]
:^ %palm [" " ~ ~ ~] leaf#mez
~[leaf#"from {<sud>}" leaf#"on {<who>}" leaf#"to {<syd>}"]
::
++ poke-mount
|= kiln-mount
=+ bem=(tome pax)
?~ bem
=+ "can't mount bad path: {<pax>}"
abet:(spam leaf/- ~)
abet:(spam leaf#- ~)
abet:(emit %mont /mount pot p.u.bem q.u.bem (flop s.u.bem))
::
++ poke-unmount
@ -100,7 +100,7 @@
=+ bem=(tome mon)
?~ bem
=+ "can't unmount bad path: {<mon>}"
abet:(spam leaf/- ~)
abet:(spam leaf#- ~)
abet:(emit %ogre /unmount-beam [[p q %ud 0] s]:u.bem)
abet:(emit %ogre /unmount-point mon)
::
@ -128,14 +128,14 @@
::
++ do-info
|= {mez+tape tor+toro}
abet:(emit:(spam leaf/mez ~) %info /kiln our tor)
abet:(emit:(spam leaf#mez ~) %info /kiln our tor)
::
++ poke-rm |=(a+path (do-info "removed" (fray a)))
++ poke-cp
|= {input+path output+path}
%+ do-info "copied"
?> =(-:(flop input) -:(flop output))
(foal output -:(flop input) atom/%t .^(%cx input)) :: XX type
(foal output -:(flop input) atom#%t .^(%cx input)) :: XX type
::
++ poke-mv
|= {input+path output+path}
@ -161,7 +161,7 @@
?^ lod
abet(autoload u.lod)
=< abet(autoload !autoload)
(spam leaf/"turning autoload o{?:(autoload "ff" "n")}" ~)
(spam leaf#"turning autoload o{?:(autoload "ff" "n")}" ~)
::
++ poke-start-autoload
|= $~
@ -172,7 +172,7 @@
|= syd+term
^- card
:* %warp /kiln/autoload/[syd] [our our] %home ~
%next %y da/now /arvo/[syd]/hoon
%next %y da#now /arvo/[syd]/hoon
==
::
++ poke-overload
@ -226,7 +226,7 @@
=. +>.$
%- emit :*
%warp /kiln/autoload/[syd] [our our] %home ~
%next %y da/now /arvo/[syd]/hoon
%next %y da#now /arvo/[syd]/hoon
==
abet
::
@ -280,14 +280,14 @@
|= rot+riot
?~ rot
%^ spam
leaf/"bad %writ response"
leaf#"bad %writ response"
(render "on sync" sud her syd)
~
=. let ?. ?=($w p.p.u.rot) let ((hard @ud) q.q.r.u.rot)
%- blab :_ ~
:* ost %merg
/kiln/sync/[syd]/(scot %p her)/[sud]
our syd her sud ud/let
our syd her sud ud#let
?: =(0 .^(%cw /(scot %p our)/[syd]/(scot %da now)))
%init
%mate
@ -302,16 +302,16 @@
[(render "sync succeeded" sud her syd) ~]
?+ p.p.mes
:* (render "sync failed" sud her syd)
leaf/"please manually merge the desks with"
leaf/"|merge %{(trip syd)} {(scow %p her)} %{(trip sud)}"
leaf/""
leaf/"error code: {<p.p.mes>}"
leaf#"please manually merge the desks with"
leaf#"|merge %{(trip syd)} {(scow %p her)} %{(trip sud)}"
leaf#""
leaf#"error code: {<p.p.mes>}"
q.p.mes
==
::
$no-ali-desk
:~ (render "sync activated" sud her syd)
leaf/"note: blank desk {<sud>} on {<her>}"
leaf#"note: blank desk {<sud>} on {<her>}"
==
==
%- blab :_ ~
@ -403,12 +403,12 @@
++ coup-fancy
|= saw+(unit tang)
?~ saw
=> (spam leaf/"%melding %{(trip sud)} into scratch space" ~)
=> (spam leaf#"%melding %{(trip sud)} into scratch space" ~)
%- blab :_ ~
[ost %merg /kiln/[syd] our (cat 3 syd '-scratch') her sud cas gem]
=+ :- "failed to set up conflict resolution scratch space"
"I'm out of ideas"
lose:(spam leaf/-< leaf/-> u.saw)
lose:(spam leaf#-< leaf#-> u.saw)
::
++ mere
|= are+(each (set path) (pair term tang))
@ -417,16 +417,16 @@
?: ?=($& -.are)
?. auto
=+ "merged with strategy {<gem>}"
win:(spam leaf/- ?~(p.are ~ [>`(set path)`p.are< ~]))
win:(spam leaf#- ?~(p.are ~ [>`(set path)`p.are< ~]))
:: ~? > =(~ p.are) [%mere-no-conflict syd]
=+ "mashing conflicts"
=> .(+>.$ (spam leaf/- ~))
=> .(+>.$ (spam leaf#- ~))
=+ tic=(cat 3 syd '-scratch')
%- blab :_ ~
:* ost %exec /kiln/[syd]
our ~ [our tic %da now] %tabl
^- (list (pair silk silk))
:: ~& > kiln-mashing/[p.are syd=syd +<.abet]
:: ~& > kiln-mashing#[p.are syd=syd +<.abet]
%+ turn (~(tap in p.are))
|= pax+path
^- (pair silk silk)
@ -442,50 +442,50 @@
[%mash for [her sud dali] [our syd dbob]]
==
=+ "failed to merge with strategy meld"
lose:(spam leaf/- >p.p.are< q.p.are)
lose:(spam leaf#- >p.p.are< q.p.are)
?: ?=($& -.are)
=+ "merged with strategy {<gem>}"
win:(spam leaf/- ?~(p.are ~ [>`(set path)`p.are< ~]))
win:(spam leaf#- ?~(p.are ~ [>`(set path)`p.are< ~]))
?. auto
=+ "failed to merge with strategy {<gem>}"
lose:(spam leaf/- >p.p.are< q.p.are)
lose:(spam leaf#- >p.p.are< q.p.are)
?+ gem
(spam leaf/"strange auto" >gem< ~)
(spam leaf#"strange auto" >gem< ~)
::
$init
=+ :- "auto merge failed on strategy %init"
"I'm out of ideas"
lose:(spam leaf/-< leaf/-> [>p.p.are< q.p.are])
lose:(spam leaf#-< leaf#-> [>p.p.are< q.p.are])
::
$fine
?. ?=($bad-fine-merge p.p.are)
=+ "auto merge failed on strategy %fine"
lose:(spam leaf/- >p.p.are< q.p.are)
=> (spam leaf/"%fine merge failed, trying %meet" ~)
lose:(spam leaf#- >p.p.are< q.p.are)
=> (spam leaf#"%fine merge failed, trying %meet" ~)
perform(gem %meet)
::
$meet
?. ?=($meet-conflict p.p.are)
=+ "auto merge failed on strategy %meet"
lose:(spam leaf/- >p.p.are< q.p.are)
=> (spam leaf/"%meet merge failed, trying %mate" ~)
lose:(spam leaf#- >p.p.are< q.p.are)
=> (spam leaf#"%meet merge failed, trying %mate" ~)
perform(gem %mate)
::
$mate
?. ?=($mate-conflict p.p.are)
=+ "auto merge failed on strategy %mate"
lose:(spam leaf/- >p.p.are< q.p.are)
lose:(spam leaf#- >p.p.are< q.p.are)
=> .(gem %meld)
=+ tic=(cat 3 syd '-scratch')
=> =+ :- "%mate merge failed with conflicts,"
"setting up scratch space at %{(trip tic)}"
[tic=tic (spam leaf/-< leaf/-> q.p.are)]
[tic=tic (spam leaf#-< leaf#-> q.p.are)]
(fancy-merge tic our syd %init)
==
::
++ tape-to-tanks
|= a+tape ^- (list tank)
(scan a (more (just '\0a') (cook |=(a+tape leaf/a) (star prn))))
(scan a (more (just '\0a') (cook |=(a+tape leaf#a) (star prn))))
::
++ tanks-if-any
|= {a+tape b+(list path) c+tape} ^- (list tank)
@ -497,7 +497,7 @@
^+ +>
?: ?=($| -.reg)
=+ "failed to mash"
lose:(spam leaf/- p.reg)
lose:(spam leaf#- p.reg)
=+ ^- can+(list (pair path (unit miso)))
%+ turn (gage-to-cages reg)
|= {pax+cage dif+cage}
@ -506,7 +506,7 @@
~| "strange path mark: {<p.pax>}"
!!
[((hard path) q.q.pax) ?:(?=($null p.dif) ~ `[%dif dif])]
:: ~& > kiln-made/[(turn can head) syd=syd +<.abet]
:: ~& > kiln-made#[(turn can head) syd=syd +<.abet]
=+ notated=(skid can |=({path a+(unit miso)} ?=(^ a)))
=+ annotated=(turn `(list (pair path *))`-.notated head)
=+ unnotated=(turn `(list (pair path *))`+.notated head)

4
lib/oct1.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/oct1/lib :::::: dependencies
:::: /hoon#oct1/lib :::::: dependencies
:: :: ::
/? 310 :: arvo version
/- oct1 :: structures
@ -38,6 +38,6 @@
++ row |= y+@ :- (add y '1') %- zing :: print row
(turn (gulf 0 3) |=(@ ~[' ' ~(v at y +<)])) ::
++ tab ~["+ 1 2 3" (row 0) (row 1) (row 2)] :: print table
++ voy ": {<~[(icon who)]>} (row/col): " :: print prompt
++ voy ": {<~[(icon who)]>} (row#col): " :: print prompt
--
--

6
lib/oct2.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/oct2/lib :::::: dependencies
:::: /hoon#oct2/lib :::::: dependencies
:: :: ::
/? 310 :: arvo version
/- oct2 :: structures
@ -32,7 +32,7 @@
++ y .(box (~(set bo box) +<), p.sag `src) :: play at x
-- ::
++ ept =+(own |(&(=(~ -) !=(oth `src)) =(`src -))) :: we can play
++ hey |=(? +>+<+(aud ((stat ship) +< src aud))) :: enter/leave
++ hey |=(? +>+<+(aud ((stat ship) +< src aud))) :: enter#leave
++ muy |= (list ship) ?~ +< +>+<+ :: many in audience
$(+< t.+<, aud ((stat ship) & i.+< aud)) ::
++ nam =+ ?: =(p.sag `src) ['=' (icon &) ~] :: print name
@ -54,6 +54,6 @@
?~ dow ~ =+ mor=$(dow t.dow) ::
:(weld nam(src p.i.dow) ?~(mor "" ", ") mor) ::
++ voy =+ ~[(icon who)] %+ weld vew :: print prompt
?.(ept " ({-}'s turn) " ": {-} (row/col): ")::
?.(ept " ({-}'s turn) " ": {-} (row#col): ")::
--
--

8
lib/oct3.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/oct3/lib :::::: dependencies
:::: /hoon#oct3/lib :::::: dependencies
:: :: ::
/? 310 :: arvo version
/- oct3 :: structures
@ -13,7 +13,7 @@
|_ bud+board ::
++ bit |=(@ =(1 (cut 0 [+< 1] bud))) :: moved at address
++ get |=(point (bit (off +<))) :: get point
++ jon a/(turn (gulf 0 9) |=(@ b/(bit +<))) :: to json
++ jon a#(turn (gulf 0 9) |=(@ b#(bit +<))) :: to json
++ off |=(point (add x (mul 3 y))) :: bitfield address
++ set |=(point (con bud (bex (off +<)))) :: set point
++ win %- lien :_ |=(a+@ =(a (dis a bud))) :: test for win
@ -33,7 +33,7 @@
++ y .(box (~(set bo box) +<), p.sag `src) :: play at x
-- ::
++ ept =+(own |(&(=(~ -) !=(oth `src)) =(`src -))) :: we can play
++ hey |=(? +>+<+(aud ((stat ship) +< src aud))) :: enter/leave
++ hey |=(? +>+<+(aud ((stat ship) +< src aud))) :: enter#leave
++ muy |= (list ship) ?~ +< +>+<+ :: many in audience
$(+< t.+<, aud ((stat ship) & i.+< aud)) ::
++ nam =+ ?: =(p.sag `src) ['=' (icon &) ~] :: print name
@ -55,6 +55,6 @@
?~ dow ~ =+ mor=$(dow t.dow) ::
:(weld nam(src p.i.dow) ?~(mor "" ", ") mor) ::
++ voy =+ ~[(icon who)] %+ weld vew :: print prompt
?.(ept " ({-}'s turn) " ": {-} (row/col): ")::
?.(ept " ({-}'s turn) " ": {-} (row#col): ")::
--
--

8
lib/oct4.hoon
View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/oct4/lib :: :: dependencies
:::: /hoon#oct4/lib :: :: dependencies
:: :: ::
/? 310 :: arvo version
/- oct4 :: structures
@ -13,7 +13,7 @@
|_ bud+board ::
++ bit |=(@ =(1 (cut 0 [+< 1] bud))) :: moved at address
++ get |=(point (bit (off +<))) :: get point
++ jon a/(turn (gulf 0 9) |=(@ b/(bit +<))) :: to json
++ jon a#(turn (gulf 0 9) |=(@ b#(bit +<))) :: to json
++ off |=(point (add x (mul 3 y))) :: bitfield address
++ set |=(point (con bud (bex (off +<)))) :: set point
++ win %- lien :_ |=(a+@ =(a (dis a bud))) :: test for win
@ -33,7 +33,7 @@
++ y .(box (~(set bo box) +<), p.sag `src) :: play at x
-- ::
++ ept =+(own |(&(=(~ -) !=(oth `src)) =(`src -))) :: we can play
++ hey |=(? +>+<+(aud ((stat ship) +< src aud))) :: enter/leave
++ hey |=(? +>+<+(aud ((stat ship) +< src aud))) :: enter#leave
++ muy |= (list ship) ?~ +< +>+<+ :: many in audience
$(+< t.+<, aud ((stat ship) & i.+< aud)) ::
++ nam =+ ?: =(p.sag `src) ['=' (icon &) ~] :: print name
@ -55,6 +55,6 @@
?~ dow ~ =+ mor=$(dow t.dow) ::
:(weld nam(src p.i.dow) ?~(mor "" ", ") mor) ::
++ voy =+ ~[(icon who)] %+ weld vew :: print prompt
?.(ept " ({-}'s turn) " ": {-} (row/col): ")::
?.(ept " ({-}'s turn) " ": {-} (row#col): ")::
--
--

10
lib/react.hoon
View File

@ -68,9 +68,9 @@
== ==
==
%- jobe :~
c/a/(turn c.src ..$)
gn/s/(mane-to-cord n.g.src)
=< ga/(jobe (turn a.g.src .))
c#a#(turn c.src ..$)
gn#s#(mane-to-cord n.g.src)
=< ga#(jobe (turn a.g.src .))
|= {a+mane b+tape} ^- {cord json}
:_ (jape b)
?^ a (mane-to-cord a)
@ -125,8 +125,8 @@
=< ~(ram re %rose [", " "[" "]"] (turn c.src .))
|= a+manx
?: ?=(_:/(**) a)
leaf/(pojo (jape v.i.a.g.a))
leaf/^$(src a)
leaf#(pojo (jape v.i.a.g.a))
leaf#^$(src a)
")"
==
--

6
lib/sole.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/sole/lib
:::: /hoon#sole#lib
::
/? 310
/- sole
@ -101,14 +101,14 @@
|= sole-change
^- {sole-edit sole-share}
?. &(=(his.ler his.ven) (lte own.ler own.ven))
~& [%receive-sync his/[his.ler his.ven] own/[own.ler own.ven]]
~& [%receive-sync his#[his.ler his.ven] own#[own.ler own.ven]]
!!
?> &(=(his.ler his.ven) (lte own.ler own.ven))
?> |(!=(own.ler own.ven) =(0 haw) =(haw (sham buf)))
=. leg (scag (sub own.ven own.ler) leg)
:: ~? !=(own.ler own.ven) [%miss-leg leg]
=+ dat=(transmute [%mor leg] ted)
:: ~? !=(~ leg) [%transmute from/ted to/dat ~]
:: ~? !=(~ leg) [%transmute from#ted to#dat ~]
[dat abet:(apply(his.ven +(his.ven)) dat)]
::
++ remit :: conditional accept

2
lib/talk.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/talk/lib
:::: /hoon#talk#lib
::
:: This file is in the public domain.
::

2
lib/tree.hoon
View File

@ -40,7 +40,7 @@
|= a+json ^- json
=- (fall `(unit json)`- ~)
%. a
%+ find-in-tree (ot c/(ar some) gn/so ga/(om so) ~):jo
%+ find-in-tree (ot c#(ar some) gn#so ga#(om so) ~):jo
|= {nom+span atr+(map span cord)} ^- (unit json)
?. (~(has by atr) 'urb:front') ~
?> ?=($meta nom)

222
lib/twitter.hoon
View File

@ -1,6 +1,6 @@
:: A Twitter API library.
::
:::: /hoon/twitter/lib
:::: /hoon#twitter#lib
::
/? 314
/- twitter
@ -76,7 +76,7 @@
eny+@
==
^- hiss
=+ url="https://api.twitter.com/1.1{rus}.json"
=+ url="https://api.twitter.com#1.1{rus}.json"
=+ req=|=(a+tape (scan a auri:epur))
=+ ^= help
|= quy+(list {tape tape})
@ -94,7 +94,7 @@
=+ ^= head
%- ~(gas by *math)
:~ ['authorization' [(oauth med url hab key est eny) ~]]
['content-type' ['application/x-www-form-urlencoded' ~]]
['content-type' ['application#x-www-form-urlencoded' ~]]
==
?: =(%get med)
?~ voy
@ -110,27 +110,27 @@
|%
++ mean
|= {msg+@t num+@ud} ^- tank
rose/[": " `~]^~[leaf/"Error {<num>}" leaf/(trip msg)]
rose#[": " `~]^~[leaf#"Error {<num>}" leaf#(trip msg)]
--
++ twir :: response parsers
|%
++ fasp |*({a+@tas b+*} [(gsub '-' '_' a) b])
++ user (cook crip (plus ;~(pose aln cab)))
++ mean (ot errors/(ar (ot message/so code/ni ~)) ~):jo
++ mean (ot errors#(ar (ot message#so code#ni ~)) ~):jo
++ stat
=+ jo
^- $+(json (unit {id+@u who+@ta now+@da txt+@t}))
%- ot
:~ id/ni
user/(ot (fasp screen-name/(su user)) ~)
(fasp created-at/da)
text/so
:~ id#ni
user#(ot (fasp screen-name#(su user)) ~)
(fasp created-at#da)
text#so
==
++ usel
=+ jo
^- $+(json (unit (list who+@ta)))
=- (ot users/(ar -) ~)
(ot (fasp screen-name/(su user)) ~)
=- (ot users#(ar -) ~)
(ot (fasp screen-name#(su user)) ~)
--
++ twit
=> |% :: request structures
@ -227,52 +227,52 @@
==
::
++ stat-ment
(mold %get /statuses/mentions-timeline $~)
(mold %get /statuses#mentions-timeline $~)
::
++ stat-user
(mold %get /statuses/user-timeline {sd $~})
(mold %get /statuses#user-timeline {sd $~})
::
++ stat-home
(mold %get /statuses/home-timeline $~)
(mold %get /statuses#home-timeline $~)
::
++ stat-retw
(mold %get /statuses/retweets-of-me $~)
(mold %get /statuses#retweets-of-me $~)
::
++ stat-rets-iddd
(mold %get /statuses/retweets {ii $~})
(mold %get /statuses#retweets {ii $~})
::
++ stat-show
(mold %get /statuses/show {id $~})
(mold %get /statuses#show {id $~})
::
++ stat-dest-iddd
(mold %post /statuses/destroy {ii $~})
(mold %post /statuses#destroy {ii $~})
::
++ stat-upda
(mold %post /statuses/update {st $~})
(mold %post /statuses#update {st $~})
::
++ stat-retw-iddd
(mold %post /statuses/retweet {ii $~})
(mold %post /statuses#retweet {ii $~})
::
++ stat-oemb-iddd
(mold %get /statuses/oembed {id $~})
(mold %get /statuses#oembed {id $~})
::
++ stat-oemb-urll
(mold %get /statuses/oembed {ur $~})
(mold %get /statuses#oembed {ur $~})
::
++ stat-retw-idss
(mold %get /statuses/retweeters/ids {id $~})
(mold %get /statuses#retweeters#ids {id $~})
::
++ sear-twee
(mold %get /search/tweets {qq $~})
(mold %get /search#tweets {qq $~})
::
++ stat-filt-foll
(mold %post /statuses/filter {?(fo tr) $~})
(mold %post /statuses#filter {?(fo tr) $~})
::
++ stat-samp
(mold %get /statuses/sample $~)
(mold %get /statuses#sample $~)
::
++ stat-fire
(mold %get /statuses/firehose $~)
(mold %get /statuses#firehose $~)
::
++ user
(mold %get /user $~)
@ -284,238 +284,238 @@
(mold %get /direct-messages $~)
::
++ dire-sent
(mold %get /direct-messages/sent $~)
(mold %get /direct-messages#sent $~)
::
++ dire-show
(mold %get /direct-messages/show {id $~})
(mold %get /direct-messages#show {id $~})
::
++ dire-dest
(mold %post /direct-messages/destroy {id $~})
(mold %post /direct-messages#destroy {id $~})
::
++ dire-neww
(mold %post /direct-messages/new {sd te $~})
(mold %post /direct-messages#new {sd te $~})
::
++ frie-nore-idss
(mold %get /friendships/no-retweets/ids $~)
(mold %get /friendships#no-retweets#ids $~)
::
++ frie-idss
(mold %get /friends/ids {sd $~})
(mold %get /friends#ids {sd $~})
::
++ foll-idss
(mold %get /followers/ids {sd $~})
(mold %get /followers#ids {sd $~})
::
++ frie-inco
(mold %get /friendships/incoming $~)
(mold %get /friendships#incoming $~)
::
++ frie-outg
(mold %get /friendships/outgoing $~)
(mold %get /friendships#outgoing $~)
::
++ frie-crea
(mold %post /friendships/create {sd $~})
(mold %post /friendships#create {sd $~})
::
++ frie-dest
(mold %post /friendships/destroy {sd $~})
(mold %post /friendships#destroy {sd $~})
::
++ frie-upda
(mold %post /friendships/update {sd $~})
(mold %post /friendships#update {sd $~})
::
++ frie-show
(mold %get /friendships/show {?(si os) ?(ti ts) $~})
(mold %get /friendships#show {?(si os) ?(ti ts) $~})
::
++ frie-list
(mold %get /friends/list {sd $~})
(mold %get /friends#list {sd $~})
::
++ foll-list
(mold %get /followers/list {sd $~})
(mold %get /followers#list {sd $~})
::
++ frie-look
(mold %get /friendships/lookup {?(us ss) $~})
(mold %get /friendships#lookup {?(us ss) $~})
::
++ acco-sett-gett
(mold %get /account/settings $~)
(mold %get /account#settings $~)
::
++ acco-veri
(mold %get /account/verify-credentials $~)
(mold %get /account#verify-credentials $~)
::
++ acco-sett-post
(mold %post /account/settings $~)
(mold %post /account#settings $~)
::
++ acco-upda-deli
(mold %post /account/update-delivery-device {de $~})
(mold %post /account#update-delivery-device {de $~})
::
++ acco-upda-prof
(mold %post /account/update-profile $~)
(mold %post /account#update-profile $~)
::
++ acco-upda-prof-back
(mold %post /account/update-profile-background-image $~)
(mold %post /account#update-profile-background-image $~)
::
++ acco-upda-prof-colo
(mold %post /account/update-profile-colors $~)
(mold %post /account#update-profile-colors $~)
::
++ bloc-list
(mold %get /blocks/list $~)
(mold %get /blocks#list $~)
::
++ bloc-idss
(mold %get /blocks/ids $~)
(mold %get /blocks#ids $~)
::
++ bloc-crea
(mold %post /blocks/create {sd $~})
(mold %post /blocks#create {sd $~})
::
++ bloc-dest
(mold %post /blocks/destroy {sd $~})
(mold %post /blocks#destroy {sd $~})
::
++ user-look
(mold %get /users/lookup {?(us ss) $~})
(mold %get /users#lookup {?(us ss) $~})
::
++ user-show
(mold %get /users/show {sd $~})
(mold %get /users#show {sd $~})
::
++ user-sear
(mold %get /users/search {qq $~})
(mold %get /users#search {qq $~})
::
++ user-cont-tees
(mold %get /users/contributees {sd $~})
(mold %get /users#contributees {sd $~})
::
++ user-cont-tors
(mold %get /users/contributors {sd $~})
(mold %get /users#contributors {sd $~})
::
++ acco-remo
(mold %post /account/remove-profile-banner $~)
(mold %post /account#remove-profile-banner $~)
::
++ user-prof
(mold %get /users/profile-banner {sd $~})
(mold %get /users#profile-banner {sd $~})
::
++ mute-user-crea
(mold %post /mutes/users/create {sd $~})
(mold %post /mutes#users#create {sd $~})
::
++ mute-user-dest
(mold %post /mutes/users/destroy {sd $~})
(mold %post /mutes#users#destroy {sd $~})
::
++ mute-user-idss
(mold %get /mutes/users/ids $~)
(mold %get /mutes#users#ids $~)
::
++ mute-user-list
(mold %get /mutes/users/list $~)
(mold %get /mutes#users#list $~)
::
++ user-sugg-slug
(mold %get /users/suggestions {sl $~})
(mold %get /users#suggestions {sl $~})
::
++ user-sugg
(mold %get /users/suggestions $~)
(mold %get /users#suggestions $~)
::
++ favo-list
(mold %get /favorites/list $~)
(mold %get /favorites#list $~)
::
++ favo-dest
(mold %post /favorites/destroy {id $~})
(mold %post /favorites#destroy {id $~})
::
++ favo-crea
(mold %post /favorites/create {id $~})
(mold %post /favorites#create {id $~})
::
++ list-list
(mold %get /lists/list $~)
(mold %get /lists#list $~)
::
++ list-stat
(mold %get /lists/statuses $~)
(mold %get /lists#statuses $~)
::
++ list-memb-dest
(mold %post /lists/members/destroy $~)
(mold %post /lists#members#destroy $~)
::
++ list-memb-hips
(mold %get /lists/memberships {sd $~})
(mold %get /lists#memberships {sd $~})
::
++ list-subs-bers
(mold %get /lists/subscribers $~)
(mold %get /lists#subscribers $~)
::
++ list-subs-crea
(mold %post /lists/subscribers/create $~)
(mold %post /lists#subscribers#create $~)
::
++ list-subs-show
(mold %get /lists/subscribers/show {sd $~})
(mold %get /lists#subscribers#show {sd $~})
::
++ list-subs-dest
(mold %post /lists/subscribers/destroy $~)
(mold %post /lists#subscribers#destroy $~)
::
++ list-memb-crea-alll
(mold %post /lists/members/create-all {?(us ss) $~})
(mold %post /lists#members#create-all {?(us ss) $~})
::
++ list-memb-show
(mold %get /lists/members/show {sd $~})
(mold %get /lists#members#show {sd $~})
::
++ list-memb-bers
(mold %get /lists/members $~)
(mold %get /lists#members $~)
::
++ list-memb-crea
(mold %post /lists/members/create {sd $~})
(mold %post /lists#members#create {sd $~})
::
++ list-dest
(mold %post /lists/destroy $~)
(mold %post /lists#destroy $~)
::
++ list-upda
(mold %post /lists/update $~)
(mold %post /lists#update $~)
::
++ list-crea
(mold %post /lists/create {na $~})
(mold %post /lists#create {na $~})
::
++ list-show
(mold %get /lists/show $~)
(mold %get /lists#show $~)
::
++ list-subs-ions
(mold %get /lists/subscriptions {sd $~})
(mold %get /lists#subscriptions {sd $~})
::
++ list-memb-dest-alll
(mold %post /lists/members/destroy-all {?(us ss) $~})
(mold %post /lists#members#destroy-all {?(us ss) $~})
::
++ list-owne
(mold %get /lists/ownerships {sd $~})
(mold %get /lists#ownerships {sd $~})
::
++ save-list
(mold %get /saved-searches/list $~)
(mold %get /saved-searches#list $~)
::
++ save-show-iddd
(mold %get /saved-searches/show {ii $~})
(mold %get /saved-searches#show {ii $~})
::
++ save-crea
(mold %post /saved-searches/create {qq $~})
(mold %post /saved-searches#create {qq $~})
::
++ save-dest-iddd
(mold %post /saved-searches/destroy {ii $~})
(mold %post /saved-searches#destroy {ii $~})
::
++ geoo-iddd-plac
(mold %get /geo/id {ii $~})
(mold %get /geo#id {ii $~})
::
++ geoo-reve
(mold %get /geo/reverse-geocode {la lo $~})
(mold %get /geo#reverse-geocode {la lo $~})
::
++ geoo-sear
(mold %get /geo/search $~)
(mold %get /geo#search $~)
::
++ geoo-simi
(mold %get /geo/similar-places {la lo na $~})
(mold %get /geo#similar-places {la lo na $~})
::
++ tren-plac
(mold %get /trends/place {id $~})
(mold %get /trends#place {id $~})
::
++ tren-avai
(mold %get /trends/available $~)
(mold %get /trends#available $~)
::
++ tren-clos
(mold %get /trends/closest {la lo $~})
(mold %get /trends#closest {la lo $~})
::
++ user-repo
(mold %post /users/report-spam {sd $~})
(mold %post /users#report-spam {sd $~})
::
++ oaut-auth-cate
(mold %get /oauth/authenticate $~)
(mold %get /oauth#authenticate $~)
::
++ oaut-auth-rize
(mold %get /oauth/authorize $~)
(mold %get /oauth#authorize $~)
::
++ oaut-acce
(mold %post /oauth/access-token $~)
(mold %post /oauth#access-token $~)
::
++ oaut-requ
(mold %post /oauth/request-token {oa $~})
(mold %post /oauth#request-token {oa $~})
::
++ oaut-toke
(mold %post /oauth2/token {gr $~})
@ -524,21 +524,21 @@
(mold %post /oauth2/invalidate-token {at $~})
::
++ help-conf
(mold %get /help/configuration $~)
(mold %get /help#configuration $~)
::
++ help-lang
(mold %get /help/languages $~)
(mold %get /help#languages $~)
::
++ help-priv
(mold %get /help/privacy $~)
(mold %get /help#privacy $~)
::
++ help-toss
(mold %get /help/tos $~)
(mold %get /help#tos $~)
::
++ appl-rate
(mold %get /application/rate-limit-status $~)
(mold %get /application#rate-limit-status $~)
::
++ stat-look
(mold %get /statuses/lookup {us $~})
(mold %get /statuses#lookup {us $~})
--
--

2
mar/acto-game.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/octo-game/mar
:::: /hoon#octo-game#mar
::
/? 310
!:

4
mar/ask-mail.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/ask-mail/mar
:::: /hoon#ask-mail#mar
::
/? 314
|_ txt+cord
@ -12,6 +12,6 @@
++ grow
|%
++ psal ;div: {(trip txt)}
++ mime [text//plain (taco txt)]
++ mime [text#/plain (taco txt)]
--
--

2
mar/atom.hoon
View File

@ -10,5 +10,5 @@
++ mime |=({* p+octs} q.p)
--
++ grow |%
++ mime [/aplication/x-urb-unknown (taco ato)]
++ mime [/application/x-urb-unknown (taco ato)]
-- --

6
mar/bit/accounts.hoon
View File

@ -1,6 +1,6 @@
:: this mark is used to receive a confirmed transaction
::
:::: /hoon/bit-accounts/mar
:::: /hoon#bit-accounts#mar
::
/? 310
/- bit-api
@ -15,7 +15,7 @@
~| jon
%- need %. jon
=> jo
=+ bal=(ot amount/so currency/(cu cass sa) ~)
(ot accounts/(ar (ot id/so name/so balance/bal ~)) ~)
=+ bal=(ot amount#so currency#(cu cass sa) ~)
(ot accounts#(ar (ot id#so name#so balance#bal ~)) ~)
--
--

4
mar/bit/api-call.hoon
View File

@ -12,7 +12,7 @@
::
++ order
|= {amount+@t currency+@t} ^- json
(jobe qty/s/amount ?~(currency ~ [currency/s/currency ~]))
(jobe qty#s#amount ?~(currency ~ [currency#s#currency ~]))
++ grow
|% ++ httpreq
%- wrap
@ -24,7 +24,7 @@
$send $(req [%txt-send (rsh 3 2 (scot %uc adr.req)) btc.req])
$txt-send
:+ /transactions/'send_money' %post
(joba %transaction (jobe to/s/to.req amount/s/btc.req ~))
(joba %transaction (jobe to#s#to.req amount#s#btc.req ~))
==
--

4
mar/bit/transaction.hoon
View File

@ -1,6 +1,6 @@
:: this mark is used to receive a confirmed transaction
::
:::: /hoon/bit-transaction/mar
:::: /hoon#bit-transaction#mar
::
/? 310
!:
@ -11,7 +11,7 @@
++ noun @t :: clam from noun
++ json |= jon+^json
~| jon
(need ((ot transaction/(ot id/so ~) ~):jo jon))
(need ((ot transaction#(ot id#so ~) ~):jo jon))
--
--

2
mar/client-secret.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/client-secret/mar
:::: /hoon#client-secret#mar
::
/? 314
|_ txt+cord

4
mar/cloud/auth.hoon
View File

@ -1,6 +1,6 @@
:: this mark is used to receive incoming oauth2 tokens that we use to poke our %gall server
::
:::: /hook/door/do-auth/mar
:::: /hook#door#do-auth#mar
::
/? 310
!:
@ -9,7 +9,7 @@
++ grab :: converter arm
|%
++ noun @t :: clam from noun
++ json (cork (ot authcode/so platform/so ~):jo need) :: (need (so:jo jon))
++ json (cork (ot authcode#so platform#so ~):jo need) :: (need (so:jo jon))
--
--

2
mar/cloud/secret.hoon
View File

@ -4,6 +4,6 @@
++ grab :: converter am
|%
++ noun @t :: clam from noun
++ json (cork (ot secret/so platform/so ~):jo need)
++ json (cork (ot secret#so platform#so ~):jo need)
--
--

8
mar/dill/belt.hoon
View File

@ -1,5 +1,5 @@
::
:::: /hoon/dill-belt/mar
:::: /hoon#dill-belt#mar
::
/? 314
/- kyev, sole
@ -16,17 +16,17 @@
|= jon+^json ^- ^kyev
%- need
%. jon => jo %- ot
:~ mod/(cu ^sa (ar (su (perk ~[%ctrl %shift %alt %meta]))))
:~ mod#(cu ^sa (ar (su (perk ~[%ctrl %shift %alt %meta]))))
:- %key
%+ cu |*(a+$%({$str @t} {$act @}) ?+(-.a a $str +.a))
=- (of str/so act/(su (perk -)) ~)
=- (of str#so act#(su (perk -)) ~)
:~ %ctrl %shift %alt %meta %entr %esc %caps %uncap
%pgup %pgdn %home %end %baxp %del %ins
%up %down %left %right
== ==
++ kyev
|= kev+^kyev ^- dill-belt
~| dill-belt-incomplete/kev
~| dill-belt-incomplete#kev
?: ?=({$act ?($ctrl $shift $alt $meta)} q.kev)
[%txt ~] :: ignore
=+ mod=(~(del in p.kev) %shift)

Some files were not shown because too many files have changed in this diff Show More