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")
?~(a-path ~ `(pave:neo u.a-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)
=. result.cell
(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

View File

@ -11,7 +11,7 @@
|= col=@ud
%+ turn (gulf rowstart rowend)
|= 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
@ -56,7 +56,11 @@
:_ sta
=; conf
:~ :- (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
?~ refa.poke

View File

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

View File

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