urbit/gen/hood/begin.hoon

::
::::  /hoon/begin/hood/gen
  ::
/?    310
/-  sole
::
::::
  !:
=>  |%
    ++  begs  {his/@p tic/@p yen/@t ges/gens}
    ++  scug  |*({a/@ b/(pole)} ?~(b ~ ?~(a ~ [-.b $(b +.b, a (dec a))])))
    --
[sole .]
:-  %ask
|=  $:  {now/@da eny/@uvI bec/beak}
        {arg/_(scug *@ *{his/@p tic/@p $~})}
        safety/?($on $off)
    ==
^-  (sole-result (cask begs))
?.  =(safety %off)
  %+  sole-yo
    :-  %leaf
    "|begin is deprecated, please invoke urbit with -w [name] -t [ticket]"
  sole-no
=-  -
%+  sole-lo
  [%& %helm-begin "your urbit: ~"]
%+  sole-go  fed:ag
|=  his/@p
%+  sole-lo
  [%& %helm-ticket "your ticket: ~"]
%+  sole-go  fed:ag
|=  tic/@p
%+  sole-lo  
  [%& %helm-entropy "some entropy: "]
%+  sole-go  (boss 256 (more gon qit))
|=  yen/@t
=+  ney=(shax yen)
%+  sole-yo  `tank`[%leaf "entropy check: {(scow %p `@p`(mug ney))}"]
%+  sole-so  %helm-begin
:*  his
    tic
    ney
::
    ^-  gens
    :-  %en
    =+  can=(clan his)
    ?-  can
      $czar  [%czar ~]
      $duke  [%duke %anon ~]
      $earl  [%earl (scot %p his)]
      $king  [%king ?:(=(~doznec his) 'Urban Republic' (scot %p his))]
      $pawn  [%pawn ~]
    ==
==
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`::`
fix hoon location header information 2016-02-05 06:05:37 +03:00			`:::: /hoon/begin/hood/gen`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`::`
formal reponsibility taken gen/ 314->310 2016-02-17 04:40:32 +03:00			`/? 310`
Sur disqualification moved to userspace sed -i'' -e '/^\|/{x;/./{p;s/.//;};x;};/ \\/-.\\/{h;s/ //g;s/,[a-z]//g;s/^[^a-z]/[/;s/ ::.$//;s/$/ .]/;s// /g;x;s/\\//g;}' urb/zod/**.{hoon,hook} Followed by manual fixes where e.g. the file didn't start with a core 2015-09-01 23:56:42 +03:00			`/- sole`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`::`
			`::::`
			`!:`
			`=> \|%`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`++ begs {his/@p tic/@p yen/@t ges/gens}`
			`++ scug \|*({a/@ b/(pole)} ?~(b ~ ?~(a ~ [-.b $(b +.b, a (dec a))])))`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`--`
Sur disqualification moved to userspace sed -i'' -e '/^\|/{x;/./{p;s/.//;};x;};/ \\/-.\\/{h;s/ //g;s/,[a-z]//g;s/^[^a-z]/[/;s/ ::.$//;s/$/ .]/;s// /g;x;s/\\//g;}' urb/zod/**.{hoon,hook} Followed by manual fixes where e.g. the file didn't start with a core 2015-09-01 23:56:42 +03:00			`[sole .]`
rename generators to %say, %ask, %get 2015-09-12 03:24:51 +03:00			`:- %ask`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`\|= $: {now/@da eny/@uvI bec/beak}`
151ify various generators 2016-02-17 04:35:52 +03:00			`{arg/_(scug @ {his/@p tic/@p $~})}`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`safety/?($on $off)`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`==`
			`^- (sole-result (cask begs))`
Deprecate \|begin 2015-11-20 01:29:54 +03:00			`?. =(safety %off)`
More actionable \|begin deprecation message 2015-11-20 08:20:36 +03:00			`%+ sole-yo`
			`:- %leaf`
			`"\|begin is deprecated, please invoke urbit with -w [name] -t [ticket]"`
Deprecate \|begin 2015-11-20 01:29:54 +03:00			`sole-no`
Fix a couple broken generators so we can breach 2016-02-16 03:20:42 +03:00			`=- -`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`%+ sole-lo`
doc reorg and clean, tree blank item fix 2015-09-30 00:12:57 +03:00			`[%& %helm-begin "your urbit: ~"]`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`%+ sole-go fed:ag`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`\|= his/@p`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`%+ sole-lo`
minor renaming 2015-06-24 21:01:25 +03:00			`[%& %helm-ticket "your ticket: ~"]`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`%+ sole-go fed:ag`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`\|= tic/@p`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`%+ sole-lo`
minor renaming 2015-06-24 21:01:25 +03:00			`[%& %helm-entropy "some entropy: "]`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`%+ sole-go (boss 256 (more gon qit))`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`\|= yen/@t`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`=+ ney=(shax yen)`
			%+ sole-yo `tank`[%leaf "entropy check: {(scow %p `@p`(mug ney))}"]
minor renaming 2015-06-24 21:01:25 +03:00			`%+ sole-so %helm-begin`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`:* his`
			`tic`
			`ney`
			`::`
			`^- gens`
			`:- %en`
			`=+ can=(clan his)`
			`?- can`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`$czar [%czar ~]`
			`$duke [%duke %anon ~]`
			`$earl [%earl (scot %p his)]`
			`$king [%king ?:(=(~doznec his) 'Urban Republic' (scot %p his))]`
			`$pawn [%pawn ~]`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`==`
			`==`