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

comment out releasing ships

Browse Source 
(should implicitly release self?)
This commit is contained in:
Anton Dyudin 2016-10-12 16:16:47 -07:00
parent eea13f8ce3
commit d29e30acdb
2 changed files with 59 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/hood.hoon
View File

@ -170,11 +170,11 @@
++ poke-womb-do-claim (wrap poke-do-claim):from-womb ++ poke-womb-do-claim (wrap poke-do-claim):from-womb
++ poke-womb-rekey (wrap poke-rekey):from-womb ++ poke-womb-rekey (wrap poke-rekey):from-womb
++ poke-womb-report (wrap poke-report):from-womb ++ poke-womb-report (wrap poke-report):from-womb
++ poke-womb-manage (wrap poke-manage):from-womb :: ++ poke-womb-manage (wrap poke-manage):from-womb
++ poke-womb-recycle (wrap poke-recycle):from-womb ++ poke-womb-recycle (wrap poke-recycle):from-womb
++ poke-womb-manage-old-key (wrap poke-manage-old-key):from-womb ++ poke-womb-manage-old-key (wrap poke-manage-old-key):from-womb
++ poke-womb-release (wrap poke-release):from-womb :: ++ poke-womb-release (wrap poke-release):from-womb
++ poke-womb-release-ships (wrap poke-release-ships):from-womb :: ++ poke-womb-release-ships (wrap poke-release-ships):from-womb
++ poke-womb-reinvite (wrap poke-reinvite):from-womb ++ poke-womb-reinvite (wrap poke-reinvite):from-womb
++ poke-womb-replay-log (wrap poke-replay-log):from-womb ++ poke-womb-replay-log (wrap poke-replay-log):from-womb
++ poke-write-sec-atom (wrap poke-sec-atom):from-write ++ poke-write-sec-atom (wrap poke-sec-atom):from-write

112
lib/womb.hoon
View File

@ -138,8 +138,8 @@
:: ::
++ transaction :: logged poke ++ transaction :: logged poke
$% {$report her/@p wyl/will} $% {$report her/@p wyl/will}
{$release gal/@ud sta/@ud} :: {$release gal/@ud sta/@ud}
{$release-ships (list ship)} :: {$release-ships (list ship)}
{$claim aut/passcode her/@p} {$claim aut/passcode her/@p}
{$recycle who/mail him/knot tik/knot} {$recycle who/mail him/knot tik/knot}
{$bonus tid/cord pla/@ud sta/@ud} {$bonus tid/cord pla/@ud sta/@ud}
@ -607,10 +607,10 @@
$bonus (teba (poke-bonus +.pok.i.a)) $bonus (teba (poke-bonus +.pok.i.a))
$invite (teba (poke-invite +.pok.i.a)) $invite (teba (poke-invite +.pok.i.a))
$report (teba (poke-report +.pok.i.a)) $report (teba (poke-report +.pok.i.a))
$release (teba (poke-release +.pok.i.a)) :: $release (teba (poke-release +.pok.i.a))
$recycle (teba (poke-recycle +.pok.i.a)) $recycle (teba (poke-recycle +.pok.i.a))
$reinvite (teba (poke-reinvite +.pok.i.a)) $reinvite (teba (poke-reinvite +.pok.i.a))
$release-ships (teba (poke-release-ships +.pok.i.a)) :: $release-ships (teba (poke-release-ships +.pok.i.a))
== ==
== ==
:: ::
@ -703,56 +703,56 @@
(email /ticket adr "Ticket for {<her>}: {<`@pG`tik>}") (email /ticket adr "Ticket for {<her>}: {<`@pG`tik>}")
:: ::
:: ::
++ poke-release-ships :: release specific :: ++ poke-release-ships :: release specific
|= a/(list ship) :: |= a/(list ship)
=< abet ^+ +> :: =< abet ^+ +>
=. log-transaction (log-transaction %release-ships +<) :: =. log-transaction (log-transaction %release-ships +<)
?> =(our src) :: privileged :: ?> =(our src) :: privileged
%+ roll a :: %+ roll a
=+ [who=*@p res=+>.$] :: =+ [who=*@p res=+>.$]
|. ^+ res :: |. ^+ res
?+ (clan who) ~|(bad-size+(clan who) !!) :: ?+ (clan who) ~|(bad-size+(clan who) !!)
$king (release-star who res) :: $king (release-star who res)
$czar (release-galaxy who res) :: $czar (release-galaxy who res)
== :: ==
:: :: ::
++ poke-release :: release to subdivide :: ++ poke-release :: release to subdivide
|= {gal/@ud sta/@ud} :: :: |= {gal/@ud sta/@ud} ::
=< abet ^+ +> :: =< abet ^+ +>
=. log-transaction (log-transaction %release +<) :: =. log-transaction (log-transaction %release +<)
?> =(our src) :: privileged :: ?> =(our src) :: privileged
=. +> :: =. +>
?~ gal +> :: ?~ gal +>
=+ all=(take-n [0 gal] shop-galaxies) :: =+ all=(take-n [0 gal] shop-galaxies)
?. (gth gal (lent all)) :: ?. (gth gal (lent all))
(roll all release-galaxy) :: (roll all release-galaxy)
~|(too-few-galaxies+[want=gal has=(lent all)] !!) :: ~|(too-few-galaxies+[want=gal has=(lent all)] !!)
^+ +> :: ^+ +>
?~ sta +> :: ?~ sta +>
=+ all=(take-n [0 sta] shop-stars) :: =+ all=(take-n [0 sta] shop-stars)
~& got-stars+all :: ~& got-stars+all
%- (slog leaf+"For issuing to proceed smoothly, immediately upon boot, ". :: %- (slog leaf+"For issuing to proceed smoothly, immediately upon boot, ".
"each should |obey {<our>} to honor ticket requests." ~) :: "each should |obey {<our>} to honor ticket requests." ~)
?. (gth sta (lent all)) :: ?. (gth sta (lent all))
(roll all release-star) :: (roll all release-star)
~|(too-few-stars+[want=sta has=(lent all)] !!) :: ~|(too-few-stars+[want=sta has=(lent all)] !!)
:: :: ::
++ release-galaxy :: subdivide %czar :: ++ release-galaxy :: subdivide %czar
=+ [who=*@p res=.] :: =+ [who=*@p res=.]
|. ^+ res :: |. ^+ res
%+ mod-managed-galaxy:res who :: %+ mod-managed-galaxy:res who
|= gal/galaxy ^- galaxy :: |= gal/galaxy ^- galaxy
~& release+who :: ~& release+who
?^ gal ~|(already-used+who !!) :: ?^ gal ~|(already-used+who !!)
(some %& (fo-init 5) (fo-init 4) (fo-init 3)) :: (some %& (fo-init 5) (fo-init 4) (fo-init 3))
:: :: ::
++ release-star :: subdivide %king :: ++ release-star :: subdivide %king
=+ [who=*@p res=.] :: =+ [who=*@p res=.]
|. ^+ res :: |. ^+ res
=. res (emit.res %poke /womb/tick [(sein who) %hood] [%womb-do-ticket who]) :: =. res (emit.res %poke /womb/tick [(sein who) %hood] [%womb-do-ticket who])
%+ mod-managed-star:res who :: %+ mod-managed-star:res who
|= sta/star ^- star :: |= sta/star ^- star
~& release+who :: ~& release+who
?^ sta ~|(already-used+[who u.sta] !!) :: ?^ sta ~|(already-used+[who u.sta] !!)
(some %& (fo-init 5) (fo-init 4)) :: (some %& (fo-init 5) (fo-init 4))
-- --