git.iko.soy/luau
on master help sign in
updated strandio
853229fiko
desk/lib/strandio.hoon+21−1
compare with master
unifiedsplit
@@ -197,6 +197,20 @@
197 `[%done +>.sign-arvo.u.in.tin]
197 `[%done +>.sign-arvo.u.in.tin]
198 ==
198 ==
199::
199::
200+++ take-near
201+ |= =wire
202+ =/ m (strand ,[spar:ames (unit (unit page))])
203+ ^- form:m
204+ |= tin=strand-input:strand
205+ ?+ in.tin `[%skip ~]
206+ ~ `[%wait ~]
207+ ::
208+ [~ %sign * %ames %near ^ *]
209+ ?. =(wire wire.u.in.tin)
210+ `[%skip ~]
211+ `[%done +>.sign-arvo.u.in.tin]
212+ ==
213+::
200++ take-poke-ack
214++ take-poke-ack
201 |= =wire
215 |= =wire
202 =/ m (strand ,~)
216 =/ m (strand ,~)
@@ -335,7 +349,13 @@
335 |= [=wire =spar:ames]
349 |= [=wire =spar:ames]
336 =/ m (strand ,~)
350 =/ m (strand ,~)
337 ^- form:m
351 ^- form:m
338− (send-raw-card %pass wire %arvo %a %keen spar)
352+ (send-raw-card %pass wire %arvo %a %keen ~ spar)
353+::
354+++ keen-shut
355+ |= [=wire =spar:ames]
356+ =/ m (strand ,~)
357+ ^- form:m
358+ (send-raw-card %pass wire %keen & spar)
339::
359::
340++ sleep
360++ sleep
341 |= for=@dr
361 |= for=@dr