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

Stash commit.

Browse Source
This commit is contained in:
C. Guy Yarvin 2018-01-03 18:31:22 -08:00
parent f64a2f2cd0
commit 0749d2b3e7
5 changed files with 37 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/hood/drum.hoon
View File

@ -14,11 +14,11 @@
:: ::
++ pith-1 :: pre-style
%+ cork pith-2 ::
|=(pith-2 +<(bin *(map bone source-1))) ::
|:($:pith-2 +<(bin ((map bone source-1)))) ::
:: ::
++ source-1 ::
%+ cork source ::
|=(source +<(mir *(pair @ud (list @c)))) :: style-less mir
|:($:source +<(mir ((pair @ud (list @c))))) :: style-less mir
:: ::
++ pith-2 ::
$: sys/(unit bone) :: local console
@ -237,7 +237,7 @@
^+ .
%+ roll ~(tap in ray)
=< .(con +>)
|= {wel/well:gall con/_..se-adit} ^+ con
|: $:{wel/well:gall con/_..se-adit} ^+ con
=. +>.$ con
=+ hig=(~(get by fur) q.wel)
?: &(?=(^ hig) |(?=($~ u.hig) =(p.wel syd.u.u.hig))) +>.$
@ -249,7 +249,7 @@
^+ .
%+ roll ~(tap in eel)
=< .(con +>)
|= {gil/gill:gall con/_.} ^+ con
|: $:{gil/gill:gall con/_.} ^+ con
=. +>.$ con
?: (~(has by fug) gil)
+>.$
@ -261,7 +261,7 @@
^+ .
%- ~(rep by bin)
=< .(con +>)
|= {{ost/bone dev/source} con/_.} ^+ con
|: $:{{ost/bone dev/source} con/_.} ^+ con
=+ xeno=se-subze-local:%_(con ost.hid ost, dev dev)
xeno(ost.hid ost.hid.con, dev dev.con, bin (~(put by bin) ost dev.xeno))
::
@ -269,7 +269,7 @@
^+ .
%- ~(rep by fug)
=< .(con +>)
|= {{gil/gill:gall *} con/_.} ^+ con
|: $:{{gil/gill:gall *} con/_.} ^+ con
=. +>.$ con
?: (~(has in eel) gil)
+>.$

16
lib/hood/helm.hoon
View File

@ -1,4 +1,4 @@
:: :: ::
:: :: ::
:::: /hoon/helm/hood/lib :: ::
:: :: ::
/? 310 :: version
@ -42,8 +42,8 @@
:: :: ::
:::: :: ::
:: :: ::
|= {bowl:gall part} :: main helm work
=+ sez=(fall (~(get by hoc) ost) *session)
|: $:{bowl:gall part} :: main helm work
=+ sez=(fall (~(get by hoc) ost) $:session)
=> |% :: arvo structures
++ card ::
$% {$cash wire p/@p q/buck:ames} ::
@ -64,7 +64,8 @@
{$hall-action action:hall} ::
== ::
--
|_ moz/(list move)
=+ moz=((list move))
|%
++ abet :: resolve
[(flop moz) %_(+<+.$ hoc (~(put by hoc) ost sez))]
::
@ -141,14 +142,15 @@
::
++ poke-reload |=(all/(list term) (poke-reload-desk %home all))
++ poke-reload-desk :: reload vanes
|= {syd/desk all/(list term)} =< abet
|: $:{syd/desk all/(list term)} =< abet
%- emil
%- flop
%+ turn all
=+ top=`path`/(scot %p our)/[syd]/(scot %da now)
=/ van/(list {term $~})
:- zus=[%zuse ~]
~(tap by dir:.^(arch %cy (welp top /sys/vane)))
=+ arc=.^(arch %cy (welp top /sys/vane))
~(tap by dir:arc)
|= nam/@tas
=. nam
?. =(1 (met 3 nam))
@ -212,7 +214,7 @@
[%flog /reset %veer p way txt]
::
++ poke-will :: hear certificate
|= wil/(unit wyll:ames)
|: wil=((unit wyll:ames))
?> ?=(^ bur)
?> ?=(^ wil)
=< abet

14
lib/hood/womb.hoon
View File

@ -18,16 +18,17 @@
max/@u :: maximum entry
box/(map @u a) :: entries
== ::
-- ::
:: ::
:::: ::
:: ::
|% ::
++ managed :: managed plot
|* mold ::
%- unit :: unsplit
%+ each +< :: subdivided
mail :: delivered
++ mail @t :: email address
-- ::
:: ::
:::: ::
:: ::
|% ::
:: ::
++ divided :: get division state
|* (managed) ::
@ -51,7 +52,6 @@
++ ticket @G :: old 64-bit ticket
++ passcode @uvH :: 128-bit passcode
++ passhash @uwH :: passocde hash
++ mail @t :: email address
++ balance :: invitation balance
$: planets/@ud :: planet count
stars/@ud :: star count
@ -166,7 +166,7 @@
%- malt
%+ murn ~(tap by a)
?~ a $~
|= _c=n.a ^- (unit _[p.n.a (need (b q.n.a))])
|: c=n.a ^- (unit _[p.n.a (need (b q.n.a))])
=+ d=(b q.c)
?~(d ~ (some [p.c u.d]))
::

2
lib/sole.hoon
View File

@ -4,7 +4,7 @@
/? 310
/- sole
=, ^sole
::
::
::::
::
|_ sole-share :: shared-state engine

28
lib/twitter.hoon
View File

@ -38,9 +38,9 @@
::
++ find-req
=+ all=doc-data-dry:reqs
|= a/_-:*endpoint:reqs ^- {?($get $post) path}
|: a=-:$:endpoint:reqs ^- {?($get $post) path}
?~ all ~|(endpoint-lost+a !!) :: type error, should never happen
?: =(a -:*typ.i.all)
?: =(a -:$:typ.i.all)
+.i.all
$(all t.all)
--
@ -56,14 +56,14 @@
rose+[": " `~]^~[leaf+"Error {<num>}" leaf+(trip msg)]
::
++ user-url
|= a/scr ^- purf
|: a=$:scr ^- purf
:_ ~
%^ into-url:interpolate 'https://twitter.com/:scr'
~
~[scr+a]
::
++ post-url
|= {a/scr b/tid} ^- purf
|: $:{a/scr b/tid} ^- purf
:_ ~
%^ into-url:interpolate 'https://twitter.com/:scr/status/:tid'
~
@ -77,7 +77,7 @@
++ reparse :: json reparsers
=, parse
|%
++ ce =>(dejs |*({a/_* b/fist} (cu |=(c/a c) b))) :: output type
++ ce |*({a/$-(* *) b/fist:dejs} (cu:dejs |:(c=$:a c) b)) :: output type
++ fasp |*(a/{@tas *} [(hep-to-cab -.a) +.a])
++ mean (ot errors+(ar (ot message+so code+ni ~)) ~):dejs
++ post
@ -101,11 +101,11 @@
++ tid |=(@u `@t`(rsh 3 2 (scot %ui +<)))
++ scr |=(@t +<)
++ lsc
|= a/$@(^scr ^lsc) ^- @t
|: a=$:$@(^scr ^lsc) ^- @t
?@(a `@t`a (join ',' a))
::
++ lid
|= a/$@(^tid (list ^tid)) ^- @t
|: a=$:$@(^tid (list ^tid)) ^- @t
?~ a ~|(%nil-id !!)
?@(a (tid a) (join ',' (turn `(list ^tid)`a tid)))
--
@ -114,14 +114,14 @@
=+ args:reqs
|%
++ apex
|= {a/endpoint b/quay} ^- hiss
|: $:{a/endpoint b/quay} ^- hiss
=+ [med pax]=(find-req -.a)
(valve med (cowl pax +.a b))
::
++ lutt |=(@u `@t`(rsh 3 2 (scot %ui +<)))
++ llsc
:: => args:reqs
|= a/$@(scr (list scr)) ^- @t
|: a=$:$@(scr (list scr)) ^- @t
?@(a `@t`a (join ',' a))
::
++ llst
@ -130,21 +130,21 @@
::
++ llid
:: =+ args:reqs
|= a/$@(tid (list tid)) ^- @t
|: a=$:$@(tid (list tid)) ^- @t
?~ a ~|(%nil-id !!)
?@(a (lutt a) (join ',' (turn `(list tid)`a lutt)))
::
++ cowl :: handle parameters
|= $: pax/path
ban/(list param)
quy/quay
|: :* pax=*path
ban=((list param))
quy=*quay
==
^- {path quay}
%+ into-path-partial:interpolate
(path:hep-to-cab pax)
=- (weld - quy)
%+ turn ban
|= p/param
|: p=$:param
^- {@t @t}
:- (hep-to-cab -.p)
?+ -.p p.p :: usually plain text