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

prettier ape/talk hoon

Browse Source
This commit is contained in:
Anton Dyudin 2015-10-28 16:10:23 -07:00
parent cf4ed327fc
commit 7ae44679ab
1 changed files with 15 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ape/talk.hoon
View File

@ -1168,7 +1168,8 @@
^+ +> ^+ +>
=+ shu=(~(get by shells) ost.hid) =+ shu=(~(get by shells) ost.hid)
?~ shu ?~ shu
~& [%ra-console-broken ost.hid ?:((~(has by sup.hid) ost.hid) %lost %unknown)] ~& :+ %ra-console-broken ost.hid
?:((~(has by sup.hid) ost.hid) %lost %unknown)
+>.$ +>.$
sh-abet:(~(sh-sole sh ~ u.shu) act) sh-abet:(~(sh-sole sh ~ u.shu) act)
:: ::
@ -1311,11 +1312,7 @@
(ra-house(general (~(put in general) ost.hid)) ost.hid) (ra-house(general (~(put in general) ost.hid)) ost.hid)
?. ?=([@ @ *] pax) ?. ?=([@ @ *] pax)
(ra-evil %talk-bad-path) (ra-evil %talk-bad-path)
=+ ^= vab ^- (set ,@tas) =+ vab=(~(gas in *(set ,@tas)) (rip 3 i.pax))
=| vab=(set ,@tas)
|- ^+ vab
?: =(0 i.pax) vab
$(i.pax (rsh 3 1 i.pax), vab (~(put in vab) (end 3 1 i.pax)))
=+ pur=(~(get by stories) i.t.pax) =+ pur=(~(get by stories) i.t.pax)
?~ pur ?~ pur
~& [%bad-subscribe-story-c i.t.pax] ~& [%bad-subscribe-story-c i.t.pax]
@ -1585,7 +1582,8 @@
|= riv=river |= riv=river
^+ +> ^+ +>
=- :: ~& [%pa-start riv lab] =- :: ~& [%pa-start riv lab]
=. +>.$ (pa-sauce ost.hid [[%diff %talk-report %grams q.lab r.lab] ~]) =. +>.$
(pa-sauce ost.hid [[%diff %talk-report %grams q.lab r.lab] ~])
?: p.lab ?: p.lab
(pa-sauce ost.hid [[%quit ~] ~]) (pa-sauce ost.hid [[%quit ~] ~])
+>.$(guests (~(put by guests) ost.hid riv)) +>.$(guests (~(put by guests) ost.hid riv))
@ -1612,17 +1610,16 @@
~& [%pa-listen-admire ~] ~& [%pa-listen-admire ~]
(pa-sauce ost.hid [%quit ~]~) (pa-sauce ost.hid [%quit ~]~)
=+ ^= ruv ^- (unit river) =+ ^= ruv ^- (unit river)
?: ?=(~ pax) %+ biff
`[[%ud ?:((lth count 64) 0 (sub count 64))] [%da (dec (bex 128))]] (zl:jo (turn pax ;~(biff slay |=(a=coin `(unit dime)`?~(-.a a ~)))))
?: ?=([@ ~] pax) |= paf=(list dime)
=+ say=(slay i.pax) ?~ paf
?. ?=([~ %$ ?(%ud %da) @] say) ~ $(paf [%ud (sub (max 64 count) 64)]~)
`[(point +>.say) [%da (dec (bex 128))]] ?~ t.paf
?. ?=([@ @ ~] pax) ~ $(t.paf [%da (dec (bex 128))]~)
=+ [say=(slay i.pax) den=(slay i.t.pax)] ?. ?=([[?(%ud %da) @] [?(%ud %da) @] ~] paf)
?. ?=([~ %$ ?(%ud %da) @] say) ~ ~
?. ?=([~ %$ ?(%ud %da) @] den) ~ `[[?+(- . %ud .)]:i.paf [?+(- . %ud .)]:i.t.paf] :: XX types
`[(point +>.say) (point +>.den)]
:: ~& [%pa-listen her pax ruv] :: ~& [%pa-listen her pax ruv]
?~ ruv ?~ ruv
~& [%pa-listen-malformed pax] ~& [%pa-listen-malformed pax]