shrub/main/bin/ye.hoon

!:
::  /=main=/toy/hi/hoon
::
=>  .(-< `who=@p`-<)
|=  *
|=  [ebb=$|(~ [tex=tape ~])]
=+  bud=(sein who)
^-  bowl
:-  :~  [%sq bud %ye /request ?~(ebb '' (rap 3 tex.ebb))]
    ==
:-  ~
:-  ^-  (list slip)
    :~  [/request [%ow ~]]
        [/prompt [%up %none "waiting for {(scow %p bud)}" ~]]
    ==
|=  [now=@da pax=path nut=note]
?>  =(/request pax)
?>  ?=(%ow -.nut)
:-  ?:  =(%good p.nut)
      ~
    :_  ~
    :-  %ha
    :-  %leaf
    "hi: {(scow %p bud)} rejected a message"
~
Cleaning up old code 2013-09-29 00:21:18 +04:00			`!:`
More printfs... 2013-10-08 22:26:59 +04:00			`:: /=main=/toy/hi/hoon`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`::`
			=> .(-< `who=@p`-<)
			`\|= *`
			`\|= [ebb=$\|(~ [tex=tape ~])]`
			`=+ bud=(sein who)`
			`^- bowl`
More printfs... 2013-10-08 22:26:59 +04:00			`:- :~ [%sq bud %ye /request ?~(ebb '' (rap 3 tex.ebb))]`
			`==`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`:- ~`
			`:- ^- (list slip)`
More printfs... 2013-10-08 22:26:59 +04:00			`:~ [/request [%ow ~]]`
			`[/prompt [%up %none "waiting for {(scow %p bud)}" ~]]`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`==`
			`\|= [now=@da pax=path nut=note]`
More printfs... 2013-10-08 22:26:59 +04:00			`?> =(/request pax)`
			`?> ?=(%ow -.nut)`
			`:- ?: =(%good p.nut)`
Ye olde whitespace cleanup Run using find . -type f \| xargs sed -i '\s\+$' And not even glanced at. It's fine. Don't worry about it. 2013-12-09 01:23:03 +04:00			`~`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`:_ ~`
			`:- %ha`
			`:- %leaf`
More printfs... 2013-10-08 22:26:59 +04:00			`"hi: {(scow %p bud)} rejected a message"`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`~`