command interface - give a cell a target pith and stud, and output will route to that pith

This commit is contained in:
hanfel-dovned 2024-05-20 12:48:01 -07:00 committed by Will Hanlen
parent 6fd8378779
commit ae372ea6c1
5 changed files with 16 additions and 3 deletions

View File

@ -25,4 +25,5 @@
(vol:mu "code") (vol:mu "code")
?~(a-path ~ `(pave:neo u.a-path)) ?~(a-path ~ `(pave:neo u.a-path))
?~(b-path ~ `(pave:neo u.b-path)) ?~(b-path ~ `(pave:neo u.b-path))
~ :: XX fill in target
== ==

View File

@ -65,7 +65,13 @@
=/ vavb=[vase vase] (get-deps-vases bowl) =/ vavb=[vase vase] (get-deps-vases bowl)
=. result.cell =. result.cell
(render-hoon code.cell vavb) (render-hoon code.cell vavb)
[~ !>(cell)] :_ !>(cell)
?~ target.cell ~
?~ result.cell ~
?- -.u.result.cell
%.n ~
%.y [pith.u.target.cell %poke [stud.u.target.cell p.u.result.cell]]~
==
-- --
|% |%
++ state %accel-cell ++ state %accel-cell

View File

@ -11,7 +11,7 @@
|= col=@ud |= col=@ud
%+ turn (gulf rowstart rowend) %+ turn (gulf rowstart rowend)
|= row=@ud |= row=@ud
[#/[p/our.bowl]/home/accel/[ud/col]/[ud/row] %make %accel-cell `!>(['~' ~ ~ ~]) ~] [#/[p/our.bowl]/home/accel/[ud/col]/[ud/row] %make %accel-cell `!>(['~' ~ ~ ~ ~]) ~]
-- --
:: ::
^- firm:neo ^- firm:neo
@ -56,7 +56,11 @@
:_ sta :_ sta
=; conf =; conf
:~ :- (welp here.bowl ~[[ud/row.poke] [ud/column.poke]]) :~ :- (welp here.bowl ~[[ud/row.poke] [ud/column.poke]])
[%make %accel-cell `!>([text.poke ~ refa.poke refb.poke]) conf] :* %make
%accel-cell
`!>([text.poke ~ refa.poke refb.poke target.poke])
conf
==
== ==
:: there has to be a more elegant way to do this :: there has to be a more elegant way to do this
?~ refa.poke ?~ refa.poke

View File

@ -2,4 +2,5 @@ $: code=@t
result=(unit (each vase tang)) result=(unit (each vase tang))
refa=(unit pith) refa=(unit pith)
refb=(unit pith) refb=(unit pith)
target=(unit [=pith =stud:neo])
== ==

View File

@ -9,5 +9,6 @@ $% [%inc-width ~]
text=@t text=@t
refa=(unit pith) refa=(unit pith)
refb=(unit pith) refb=(unit pith)
target=(unit [pith stud:neo])
== ==
== ==