ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 13:19:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

Moved from to bowl.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-05-27 23:51:32 -07:00
parent ec1bb36984
commit 7ec596e1b5
11 changed files with 112 additions and 119 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
base/ape/bit/core.hook
View File

@ -65,7 +65,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
:: ::
++ callback-uri (weld hostname "/~/to/{(trip app.hid)}/json.json?anon&wire=/") ++ callback-uri (weld hostname "/~/to/{(trip app.hid)}/json.json?anon&wire=/")
++ poke-auth ++ poke-auth
|= [[ost=bone you=ship] arg=[secr=cord id=cord]] |= [arg=[secr=cord id=cord]]
=: app-secret.vat [~ secr.arg] =: app-secret.vat [~ secr.arg]
client-id.vat [~ id.arg] client-id.vat [~ id.arg]
== ==
@ -84,7 +84,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
[ost %send way [his app.hid] %poke mez] [ost %send way [his app.hid] %poke mez]
:: ::
++ poke-bit-send :: send to address ++ poke-bit-send :: send to address
|= [[ost=bone @] addr=@uc amount=@t] |= [addr=@uc amount=@t]
:_ +>.$ :_ +>.$
:_ ~ :_ ~
=+ info=[to/s/(rsh 3 2 (scot %uc addr)) amount/s/amount ~] =+ info=[to/s/(rsh 3 2 (scot %uc addr)) amount/s/amount ~]
@ -92,13 +92,13 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
(api-call ost /send /transactions/'send_money' %post jon) (api-call ost /send /transactions/'send_money' %post jon)
:: ::
++ poke-bit-ship-send :: send to ship ++ poke-bit-ship-send :: send to ship
|= [[ost=bone @] to=ship amount=@t] |= [to=ship amount=@t]
=. outgoing.vat (~(put by outgoing.vat) to amount) =. outgoing.vat (~(put by outgoing.vat) to amount)
:_ +>.$ :_ +>.$
:_ ~ :_ ~
(send-friend ost /sent to %bit-addr-request ~) (send-friend ost /sent to %bit-addr-request ~)
++ poke-bit-addr-request :: give your address to receive bit ++ poke-bit-addr-request :: give your address to receive bit
|= [[ost=bone his=ship] req=~] :: gen new address with callback |= [req=~] :: gen new address with callback
:_ +>.$ :_ +>.$
:_ ~ :_ ~
%^ api-call ost /addr-request/(scot %p his) %^ api-call ost /addr-request/(scot %p his)
@ -121,7 +121,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
(send-friend ost [%message ~] his %bit-addr-made adr) (send-friend ost [%message ~] his %bit-addr-made adr)
:: ::
++ poke-bit-addr-made :: receive address for sending ++ poke-bit-addr-made :: receive address for sending
|= [[ost=bone his=ship] addr=@t] |= [addr=@t]
:_ +>.$ :_ +>.$
:_ ~ :_ ~
=+ amount=(~(got by outgoing.vat) his) :: get amount to send =+ amount=(~(got by outgoing.vat) his) :: get amount to send
@ -130,7 +130,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
(api-call ost /send /transactions/'send_money' %post jon) (api-call ost /send /transactions/'send_money' %post jon)
:: ::
++ poke-oauth2-code ++ poke-oauth2-code
|= [[ost=bone you=ship] code=cord] |= [code=cord]
=. oauth-code.vat =. oauth-code.vat
[~ code] [~ code]
?< |(?=(~ client-id.vat) ?=(~ oauth-code.vat)) ?< |(?=(~ client-id.vat) ?=(~ oauth-code.vat))
@ -145,7 +145,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
:- (httpreq ost /auth-token /com/coinbase /oauth/token [%post ~] ~ queries) :- (httpreq ost /auth-token /com/coinbase /oauth/token [%post ~] ~ queries)
~ ~
++ poke-buy ++ poke-buy
|= [[ost=bone you=ship] arg=[amount=@t currency=@t]] |= [arg=[amount=@t currency=@t]]
?< =(~ amount.arg) ?< =(~ amount.arg)
=+ query=['access_token' (need auth-token.vat)]~ =+ query=['access_token' (need auth-token.vat)]~
=+ ^= pst =+ ^= pst
@ -157,14 +157,14 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
~ ~
:: ::
++ poke-list ++ poke-list
|= [[ost=bone you=ship] arg=~] |= [arg=~]
=+ query=['access_token' (need auth-token.vat)]~ =+ query=['access_token' (need auth-token.vat)]~
:_ +>.$ :_ +>.$
:- (httpreq ost /list /com/coinbase/api /v1/accounts %get ~ query) :- (httpreq ost /list /com/coinbase/api /v1/accounts %get ~ query)
~ ~
:: ::
++ poke-sell ++ poke-sell
|= [[ost=bone you=ship] arg=[amount=@t currency=@t]] |= [arg=[amount=@t currency=@t]]
?< =(amount.arg ~) ?< =(amount.arg ~)
=+ query=['access_token' (need auth-token.vat)]~ =+ query=['access_token' (need auth-token.vat)]~
=+ ^= pst =+ ^= pst
@ -177,9 +177,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
~ ~
:: ::
++ poke-send-raw ++ poke-send-raw
|= $: [ost=bone you=ship] |= arg=[to=@t amone=(unit ,@t) cur=(unit ,@t) amtwo=(unit ,@t) nt=(unit ,@t)]
arg=[to=@t amone=(unit ,@t) cur=(unit ,@t) amtwo=(unit ,@t) nt=(unit ,@t)]
==
=+ adr=?~((~(get by contacts.vat) to.arg) to ~&('contact-exists' (~(get by contacts.vat) to.arg))) =+ adr=?~((~(get by contacts.vat) to.arg) to ~&('contact-exists' (~(get by contacts.vat) to.arg)))
=+ query=['access_token' (need auth-token.vat)]~ =+ query=['access_token' (need auth-token.vat)]~
=+ ^= info =+ ^= info
@ -195,7 +193,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
~ ~
:: ::
++ poke-json ++ poke-json
|= [[ost=bone you=ship] arg=json] |= [arg=json]
~& arg ~& arg
:_ +>.$ :_ +>.$
=+ [adr amo]=(need %.(arg (ot address/so amount/no ~):jo)) =+ [adr amo]=(need %.(arg (ot address/so amount/no ~):jo))
@ -211,7 +209,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
!! !!
:: ::
++ thou ++ thou
|= [[ost=bone @ way=wire] res=httr] |= [way=wire res=httr]
?+ -.way !! ?+ -.way !!
%auth-token %auth-token
~| 'must receive a 200'^oauth-code.vat ~| 'must receive a 200'^oauth-code.vat

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

@ -138,7 +138,7 @@ $% [%thou p=httr]
== ==
-- --
!: !:
|_ [hid=bowl vat=axle] |_ [hid=hide vat=axle]
:: ::
++ auth-queries ++ auth-queries
:~ 'grant_type'^'authorization_code' :~ 'grant_type'^'authorization_code'

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

@ -715,15 +715,15 @@
-- --
:: ::
++ peer-sole ++ peer-sole
|= [from pax=path] |= [pax=path]
^- (quip move +>) ^- (quip move +>)
~? !=(src our.hid) [%dojo-peer-stranger ost src pax] ~? !=(src.hid our.hid) [%dojo-peer-stranger ost.hid src.hid pax]
:: ?> =(src our.hid) :: ?> =(src.hid our.hid)
?< (~(has by hoc) ost) ?< (~(has by hoc) ost.hid)
?> =(~ pax) ?> =(~ pax)
=< he-abet =< he-abet
%~ he-peer he %~ he-peer he
:- [ost ~] :- [ost.hid ~]
^- session ^- session
:* *sole-share :: say=sole-share :* *sole-share :: say=sole-share
%home :: syd=desk %home :: syd=desk
@ -734,24 +734,24 @@
== ==
:: ::
++ poke-sole-action ++ poke-sole-action
|= [from act=sole-action] |= [act=sole-action]
^- (quip move +>) ^- (quip move +>)
:: ~& [%dojo-poke ost src act] :: ~& [%dojo-poke ost.hid src.hid act]
:: ~? !=(src our.hid) [%dojo-poke ost src] :: ~? !=(src.hid our.hid) [%dojo-poke ost.hid src.hid]
he-abet:(~(he-type he [ost ~] (~(got by hoc) ost)) act) he-abet:(~(he-type he [ost.hid ~] (~(got by hoc) ost.hid)) act)
:: ::
++ made ++ made
|= [then dep=@uvH reg=(each gage tang)] |= [then dep=@uvH reg=(each gage tang)]
he-abet:(~(he-made he [[ost ~] (~(got by hoc) ost)]) way dep reg) he-abet:(~(he-made he [[ost.hid ~] (~(got by hoc) ost.hid)]) way dep reg)
:: ::
++ unto ++ unto
|= [then cit=cuft] |= [then cit=cuft]
he-abet:(~(he-unto he [[ost ~] (~(got by hoc) ost)]) cit) he-abet:(~(he-unto he [[ost.hid ~] (~(got by hoc) ost.hid)]) cit)
:: ::
++ pull ++ pull
|= [from pax=path] |= [pax=path]
^- (quip move +>) ^- (quip move +>)
=^ moz +> =^ moz +>
he-abet:~(he-stop he [[ost ~] (~(got by hoc) ost)]) he-abet:~(he-stop he [[ost.hid ~] (~(got by hoc) ost.hid)])
[moz +>.$(hoc (~(del by hoc) ost))] [moz +>.$(hoc (~(del by hoc) ost.hid))]
-- --

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

@ -51,7 +51,7 @@
:: :: :: :: :: ::
++ coup-kiln-fancy :: ++ coup-kiln-fancy ::
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
(ably (take-coup-fancy:(kiln-work [hid ost src] (able %kiln)) way +<+)) (ably (take-coup-fancy:(kiln-work hid (able %kiln)) way +<+))
:: ::
++ coup-kiln-spam :: ++ coup-kiln-spam ::
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
@ -60,67 +60,67 @@
:: ::
++ coup-drum :: ++ coup-drum ::
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
(ably (take-coup:(drum-work [hid ost src] (able %drum)) way +<+)) (ably (take-coup:(drum-work hid (able %drum)) way +<+))
:: ::
++ diff-sole-effect-drum ++ diff-sole-effect-drum
|= [then sole-effect] |= [then sole-effect]
(ably (diff-sole-effect:(drum-work [hid ost src] (able %drum)) way +<+)) (ably (diff-sole-effect:(drum-work hid (able %drum)) way +<+))
:: ::
++ poke-hood-begin :: ++ poke-hood-begin ::
|= [from hood-begin] |= hood-begin
(ably (poke-begin:(helm-work [hid +<-] (able %helm)) +<+)) (ably (poke-begin:(helm-work hid (able %helm)) +<))
:: ::
++ poke-helm-init :: ++ poke-helm-init ::
|= [from hood-init] |= hood-init
(ably (poke-init:(helm-work [hid +<-] (able %helm)) +<+)) (ably (poke-init:(helm-work hid (able %helm)) +<))
:: ::
++ poke-hood-mass :: ++ poke-hood-mass ::
|= [from ~] |= ~
(ably poke-mass:(helm-work [hid +<-] (able %helm))) (ably poke-mass:(helm-work hid (able %helm)))
:: ::
++ poke-hood-merge :: ++ poke-hood-merge ::
|= [from hood-merge] |= hood-merge
(ably (poke-merge:(kiln-work [hid +<-] (able %kiln)) +<+)) (ably (poke-merge:(kiln-work hid (able %kiln)) +<))
:: ::
++ poke-hood-reload :: ++ poke-hood-reload ::
|= [from hood-reload] |= hood-reload
(ably (poke-reload:(helm-work [hid +<-] (able %helm)) +<+)) (ably (poke-reload:(helm-work hid (able %helm)) +<))
:: ::
++ poke-hood-reset :: ++ poke-hood-reset ::
|= [from ~] |= ~
(ably (poke-reset:(helm-work [hid +<-] (able %helm)) +<+)) (ably (poke-reset:(helm-work hid (able %helm)) +<))
:: ::
++ poke-hood-sync :: ++ poke-hood-sync ::
|= [from hood-sync] |= hood-sync
(ably (poke-sync:(kiln-work [hid +<-] (able %kiln)) +<+)) (ably (poke-sync:(kiln-work hid (able %kiln)) +<))
:: ::
++ poke-hood-unix :: ++ poke-hood-unix ::
|= [from hood-unix] |= hood-unix
(ably (poke-unix:(kiln-work [hid +<-] (able %kiln)) +<+)) (ably (poke-unix:(kiln-work hid (able %kiln)) +<))
:: ::
++ poke-hood-verb :: ++ poke-hood-verb ::
|= [from ~] |= ~
(ably (poke-verb:(helm-work [hid +<-] (able %helm)) +<+)) (ably (poke-verb:(helm-work hid (able %helm)) +<))
:: ::
++ poke-hood-start :: ++ poke-hood-start ::
|= [from drum-start] |= drum-start
(ably (poke-start:(drum-work [hid +<-] (able %drum)) +<+)) (ably (poke-start:(drum-work hid (able %drum)) +<))
:: ::
++ poke-dill-belt ++ poke-dill-belt
|= [from dill-belt] |= dill-belt
(ably (poke-dill-belt:(drum-work [hid +<-] (able %drum)) +<+)) (ably (poke-dill-belt:(drum-work hid (able %drum)) +<))
:: ::
++ poke-will :: ++ poke-will ::
|= [from (unit will)] |= (unit will)
(ably (poke-will:(helm-work [hid +<-] (able %helm)) +<+)) (ably (poke-will:(helm-work hid (able %helm)) +<))
:: ::
++ mere-kiln :: ++ mere-kiln ::
|= [then are=(each (set path) (pair term tang))] |= [then are=(each (set path) (pair term tang))]
(ably (take-mere:(kiln-work [hid ost src] (able %kiln)) way +<+)) (ably (take-mere:(kiln-work hid (able %kiln)) way +<+))
:: ::
++ made-kiln :: ++ made-kiln ::
|= [then @uvH (each gage tang)] |= [then @uvH (each gage tang)]
(ably (take-made:(kiln-work [hid ost src] (able %kiln)) way +<+)) (ably (take-made:(kiln-work hid (able %kiln)) way +<+))
:: ::
++ init-helm :: ++ init-helm ::
|= [then *] |= [then *]
@ -128,25 +128,25 @@
:: ::
++ note-helm :: ++ note-helm ::
|= [then (pair ,@tD tank)] |= [then (pair ,@tD tank)]
(ably (take-note:(helm-work [hid ost src] (able %helm)) way +<+)) (ably (take-note:(helm-work hid (able %helm)) way +<+))
:: ::
++ reap-drum ++ reap-drum
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
(ably (reap:(drum-work [hid ost src] (able %drum)) way +<+)) (ably (reap:(drum-work hid (able %drum)) way +<+))
:: ::
++ onto-drum :: ++ onto-drum ::
|= [then saw=(each ,[term @tas @da] tang)] |= [then saw=(each ,[term @tas @da] tang)]
(ably (take-onto:(drum-work [hid ost src] (able %drum)) way +<+)) (ably (take-onto:(drum-work hid (able %drum)) way +<+))
:: ::
++ peer-drum ++ peer-drum
|= [from pax=path] |= pax=path
(ably (peer:(drum-work [hid +<-] (able %drum)) +<+)) (ably (peer:(drum-work hid (able %drum)) +<))
:: ::
++ quit-drum ++ quit-drum
|= then |= then
(ably (quit:(drum-work [hid ost src] (able %drum)) way)) (ably (quit:(drum-work hid (able %drum)) way))
:: ::
++ went-helm :: ++ went-helm ::
|= [then her=ship kay=cape] |= [then her=ship kay=cape]
(ably (take-went:(helm-work [hid ost src] (able %helm)) way +<+)) (ably (take-went:(helm-work hid (able %helm)) way +<+))
-- --

30
base/ape/octo/core.hook
View File

@ -35,7 +35,7 @@
-- :: -- ::
|_ [hid=bowl moz=(list move) %1 axle] :: per agent |_ [hid=bowl moz=(list move) %1 axle] :: per agent
++ ce :: per client ++ ce :: per client
|_ from :: |_ [ost=bone src=ship] ::
:: :: :: :: :: ::
:::: :: :: common logic :::: :: :: common logic
:: :: :: :: :: ::
@ -183,25 +183,25 @@
|= [then mex=(each game tape)] :: |= [then mex=(each game tape)] ::
abet:(~(diff-octo-update ce ost src) way mex) :: abet:(~(diff-octo-update ce ost src) way mex) ::
++ peer-octo :: urbit peer ++ peer-octo :: urbit peer
|= [from path] :: |= path ::
abet:(~(peer-octo ce +<-) +<+) :: abet:(~(peer-octo ce ost src) +<) ::
++ peer-sole :: console subscribe ++ peer-sole :: console subscribe
|= [from path] :: |= path ::
abet:(~(peer-sole ce +<-) +<+) :: abet:(~(peer-sole ce ost src) +<) ::
++ poke-sole-action :: console input ++ poke-sole-action :: console input
|= [from sole-action] :: |= sole-action ::
abet:(~(poke-sole-action ce +<-) +<+) :: abet:(~(poke-sole-action ce ost src) +<) ::
++ poke-octo-move :: ++ poke-octo-move ::
|= [from point] :: |= point ::
abet:(~(poke-octo-move ce +<-) +<+) :: abet:(~(poke-octo-move ce ost src) +<) ::
++ prep |= [from (unit ,[(list move) axon])] :: initialize ++ prep |= (unit ,[(list move) axon]) :: initialize
abet:(~(prep ce +<-) +<+) :: abet:(~(prep ce ost src) +<) ::
++ pull-octo :: unsubscribe ++ pull-octo :: unsubscribe
|= [from path] :: |= path ::
abet:(~(pull-octo ce +<-) +<+) :: abet:(~(pull-octo ce ost src) +<) ::
++ pull-sole :: disconnect console ++ pull-sole :: disconnect console
|= [from path] :: |= path ::
abet:(~(pull-sole ce +<-) +<+) :: abet:(~(pull-sole ce ost src) +<) ::
++ quit-octo :: unlinked by friend ++ quit-octo :: unlinked by friend
|= then :: |= then ::
abet:(~(quit-octo ce ost src) way) :: abet:(~(quit-octo ce ost src) way) ::

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

@ -1658,35 +1658,35 @@
-- --
:: ::
++ peer :: accept subscription ++ peer :: accept subscription
|= [from pax=path] |= [pax=path]
^- [(list move) _+>] ^- [(list move) _+>]
:: ~& [%talk-peer src ost pax] :: ~& [%talk-peer src.hid ost.hid pax]
?: ?=([%sole *] pax) ?: ?=([%sole *] pax)
?> =(our.hid src) ?> =(our.hid src.hid)
?< (~(has by shells) ost) ?< (~(has by shells) ost.hid)
ra-abet:(~(ra-console ra ost ~) src t.pax) ra-abet:(~(ra-console ra ost.hid ~) src.hid t.pax)
:: ~& [%talk-peer-data ost src pax] :: ~& [%talk-peer-data ost.hid src.hid pax]
ra-abet:(~(ra-subscribe ra ost ~) src pax) ra-abet:(~(ra-subscribe ra ost.hid ~) src.hid pax)
:: ::
++ poke-talk-command :: accept command ++ poke-talk-command :: accept command
|= [from cod=command] |= [cod=command]
^- [(list move) _+>] ^- [(list move) _+>]
:: ~& [%talk-poke-command src cod] :: ~& [%talk-poke-command src.hid cod]
ra-abet:(~(ra-apply ra ost ~) src cod) ra-abet:(~(ra-apply ra ost.hid ~) src.hid cod)
:: ::
++ poke-sole-action :: accept console ++ poke-sole-action :: accept console
|= [from act=sole-action] |= [act=sole-action]
ra-abet:(~(ra-sole ra ost ~) act) ra-abet:(~(ra-sole ra ost.hid ~) act)
:: ::
++ diff-talk-report :: ++ diff-talk-report ::
|= [then rad=report] |= [then rad=report]
%+ etch-friend way |= [man=span cuz=station] %+ etch-friend way |= [man=span cuz=station]
ra-abet:(~(ra-diff-talk-report ra ost ~) man cuz rad) ra-abet:(~(ra-diff-talk-report ra ost.hid ~) man cuz rad)
:: ::
++ coup-repeat :: ++ coup-repeat ::
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
%+ etch-repeat [%repeat way] |= [num=@ud src=@p man=span] %+ etch-repeat [%repeat way] |= [num=@ud src=@p man=span]
ra-abet:(~(ra-coup-repeat ra ost ~) [num src man] saw) ra-abet:(~(ra-coup-repeat ra ost.hid ~) [num src man] saw)
:: ::
++ etch :: parse wire ++ etch :: parse wire
|= way=wire |= way=wire
@ -1717,29 +1717,29 @@
?~ saw [~ +>] ?~ saw [~ +>]
%+ etch-friend [%friend way] |= [man=span cuz=station] %+ etch-friend [%friend way] |= [man=span cuz=station]
~& [%reap-friend-fail man cuz u.saw] ~& [%reap-friend-fail man cuz u.saw]
ra-abet:(~(ra-quit ra ost ~) man cuz) ra-abet:(~(ra-quit ra ost.hid ~) man cuz)
:: ::
++ quit-friend :: ++ quit-friend ::
|= then |= then
%+ etch-friend [%friend way] |= [man=span cuz=station] %+ etch-friend [%friend way] |= [man=span cuz=station]
ra-abet:(~(ra-retry ra ost ~) man cuz) ra-abet:(~(ra-retry ra ost.hid ~) man cuz)
:: ::
++ pull :: ++ pull ::
|= [from pax=path] |= [pax=path]
^- [(list move) _+>] ^- [(list move) _+>]
~& [%talk-pull src ost pax] ~& [%talk-pull src.hid ost.hid pax]
=^ moz +>.$ ra-abet:(~(ra-cancel ra ost ~) src pax) =^ moz +>.$ ra-abet:(~(ra-cancel ra ost.hid ~) src.hid pax)
[moz +>.$(shells (~(del by shells) ost))] [moz +>.$(shells (~(del by shells) ost.hid))]
:: ::
::++ poke-bit ::++ poke-bit
:: |= [from ~] :: |= [~]
:: ^- (quip move +>) :: ^- (quip move +>)
:: :_ +>.$ :: :_ +>.$
:: =+ paf=/(scot %p our.hid)/try/(scot %da now.hid)/talk/backlog/jam :: =+ paf=/(scot %p our.hid)/try/(scot %da now.hid)/talk/backlog/jam
:: [ost %info /jamfile our.hid (foal paf (jam +<+.+>.$))]~ :: [ost.hid %info /jamfile our.hid (foal paf (jam +<+.+>.$))]~
:: ::
++ prep ++ prep
|= [from old=(unit house)] |= [old=(unit house)]
^- (quip move +>) ^- (quip move +>)
?~ old ?~ old
ra-abet:~(ra-init ra 0 ~) ra-abet:~(ra-init ra 0 ~)

18
base/arvo/gall.hoon
View File

@ -546,8 +546,8 @@
=+ ^= arg ^- vase =+ ^= arg ^- vase
%- slop %- slop
?: =(0 p.u.cug) ?: =(0 p.u.cug)
[!>([`@ud`ost `@p`q.q.pry `path`+.pax]) !>(cag)] [!>(`path`+.pax) !>(cag)]
[!>([`@ud`ost `@p`q.q.pry (slag (dec p.u.cug) `path`+.pax)]) q.cag] [!>((slag (dec p.u.cug) `path`+.pax)) q.cag]
=^ cam +>.$ (ap-call q.u.cug arg) =^ cam +>.$ (ap-call q.u.cug arg)
?^ cam ?^ cam
(ap-pump:(ap-lame q.u.cug u.cam) | her pax) (ap-pump:(ap-lame q.u.cug u.cam) | her pax)
@ -782,7 +782,7 @@
=. zip ~ =. zip ~
=^ cam +>.$ =^ cam +>.$
%+ ap-call q.u.cug %+ ap-call q.u.cug
!>([[`@ud`ost `@p`q.q.pry] `path`(slag p.u.cug pax)]) !>(`path`(slag p.u.cug pax))
=. zip (weld zip `(list cove)`[[ost %give %reap cam] old]) =. zip (weld zip `(list cove)`[[ost %give %reap cam] old])
?^(cam ap-pule +>.$) ?^(cam ap-pule +>.$)
:: ::
@ -802,8 +802,6 @@
:: ~& [%ap-poke dap p.cag cug] :: ~& [%ap-poke dap p.cag cug]
=^ tur +>.$ =^ tur +>.$
%+ ap-call q.u.cug %+ ap-call q.u.cug
%+ slop
!>([`@ud`ost `@p`q.q.pry])
?. =(0 p.u.cug) q.cag ?. =(0 p.u.cug) q.cag
(slop (ap-term %tas p.cag) q.cag) (slop (ap-term %tas p.cag) q.cag)
(ap-give %coup tur) (ap-give %coup tur)
@ -817,7 +815,7 @@
+>.$ +>.$
=^ cam +>.$ =^ cam +>.$
%+ ap-call q.u.cug %+ ap-call q.u.cug
!>([[`@ud`ost `@p`q.q.pry] wut why]) !>([wut why])
?^ cam ?^ cam
~&([%ap-lame-lame u.cam] +>.$) ~&([%ap-lame-lame u.cam] +>.$)
+>.$ +>.$
@ -833,7 +831,7 @@
=^ cam +>.$ =^ cam +>.$
%+ ap-call q.u.cug %+ ap-call q.u.cug
%+ slop %+ slop
!>([`@ud`ost `@p`q.q.pry `path`(slag p.u.cug pax)]) !>(`path`(slag p.u.cug pax))
(slot 3 vax) (slot 3 vax)
?^ cam (ap-lame -.q.vax u.cam) ?^ cam (ap-lame -.q.vax u.cam)
+>.$ +>.$
@ -869,8 +867,6 @@
`+>.$(+13.q.hav +13.q.u.vux) `+>.$(+13.q.hav +13.q.u.vux)
=^ tur +>.$ =^ tur +>.$
%+ ap-call %prep %+ ap-call %prep
%+ slop
!>([`@ud`ost `@p`q.q.pry])
?~(vux !>(~) (slop !>(~) (slot 13 u.vux))) ?~(vux !>(~) (slop !>(~) (slot 13 u.vux)))
?~(tur `+>.$ :_(+>.$ `u.tur)) ?~(tur `+>.$ :_(+>.$ `u.tur))
:: ::
@ -894,7 +890,7 @@
?~ cug +> ?~ cug +>
=^ cam +> =^ cam +>
%+ ap-call q.u.cug %+ ap-call q.u.cug
!>([[`@ud`ost `@p`q.q.pry] (slag p.u.cug q.u.wim)]) !>((slag p.u.cug q.u.wim))
?^ cam (ap-lame q.u.cug u.cam) ?^ cam (ap-lame q.u.cug u.cam)
+>+ +>+
:: ::
@ -911,7 +907,7 @@
+>.$ +>.$
=^ cam +>.$ =^ cam +>.$
%+ ap-call q.u.cug %+ ap-call q.u.cug
=+ den=!>([`@ud`ost `@p`q.q.pry (slag p.u.cug pax)]) =+ den=!>((slag p.u.cug pax))
?~(vux den (slop den u.vux)) ?~(vux den (slop den u.vux))
?^ cam (ap-lame q.u.cug u.cam) ?^ cam (ap-lame q.u.cug u.cam)
+>.$ +>.$

3
base/arvo/hoon.hoon
View File

@ -9619,7 +9619,6 @@
++ curd ,[p=@tas q=*] :: typeless card ++ curd ,[p=@tas q=*] :: typeless card
++ duct (list wire) :: causal history ++ duct (list wire) :: causal history
++ gage (pair marc vase) :: structured cage ++ gage (pair marc vase) :: structured cage
++ from ,[ost=bone src=ship] :: forward problem
++ hypo |*(a=$+(* *) (pair type a)) :: type associated ++ hypo |*(a=$+(* *) (pair type a)) :: type associated
++ hobo |* a=$+(* *) :: kiss wrapper ++ hobo |* a=$+(* *) :: kiss wrapper
$? $% [%soft p=*] :: $? $% [%soft p=*] ::
@ -9664,7 +9663,7 @@
++ slad $+ [(unit (set monk)) term beam] :: undertyped ++ slad $+ [(unit (set monk)) term beam] :: undertyped
(unit (unit (cask))) :: (unit (unit (cask))) ::
++ slut $+(* (unit (unit))) :: old namespace ++ slut $+(* (unit (unit))) :: old namespace
++ then ,[ost=bone src=ship way=wire] :: backward problem ++ then ,[way=wire] :: backward problem
++ vile :: reflexive constants ++ vile :: reflexive constants
$: typ=type :: -:!>(*type) $: typ=type :: -:!>(*type)
duc=type :: -:!>(*duct) duc=type :: -:!>(*duct)

2
base/lib/drum/core.hook
View File

@ -122,7 +122,7 @@
?>(?=([@ @ ~] way) [(slav %p i.way) i.t.way]) ?>(?=([@ @ ~] way) [(slav %p i.way) i.t.way])
:: ::
++ drum-work :: work in drum ++ drum-work :: work in drum
|= [[bowl from] drum-part] |= [bowl drum-part]
=+ (fall (~(get by bin) ost) (deft-pipe our)) =+ (fall (~(get by bin) ost) (deft-pipe our))
=> |% :: arvo structures => |% :: arvo structures
++ pear :: request ++ pear :: request

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

@ -43,7 +43,7 @@
!: :: :: !: :: ::
|% :: helm library |% :: helm library
++ helm-work :: work in helm ++ helm-work :: work in helm
|= [[bowl from] helm-part] |= [bowl helm-part]
=+ sez=(fall (~(get by hoc) ost) *helm-session) =+ sez=(fall (~(get by hoc) ost) *helm-session)
=> |% :: arvo structures => |% :: arvo structures
++ card :: ++ card ::

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

@ -41,7 +41,7 @@
!: :: :: !: :: ::
|% :: kiln library |% :: kiln library
++ kiln-work :: work in kiln ++ kiln-work :: work in kiln
|= [[bowl from] kiln-part] |= [bowl kiln-part]
?> =(src our) ?> =(src our)
=> |% :: arvo structures => |% :: arvo structures
++ card :: ++ card ::