:) frogd extr -p
EOT isn't unique
CLEAR isn't unique
= isn't unique
DROP isn't unique
.. isn't unique
Memory allocated from heap 144297968: 0 144232448 1024

RO isn't unique
0x0ELF_32X8_6_64 Frog Version 1.0d

co:start
-- IPC:HR: 5
-- IPC:HW: 4
-- CO:PID: 1,419
-- COPROC ready ok
ss:clear ok
"job" /go

Coproc string edits

: /ss:erx ss:pop /co:echo ipc:rx ; \ pop, echo, and receive
ipc:show \ print receive data
asc ; \ make simi-colon string delimiter
ss:= foo="Bad magic found here" ; ss:pop /co:write \ coproc var assignment
ss:= -e "${foo}" ; /ss:erx \ see the coproc var
Bad magic found here
ss:= -e "${foo/magic/XYZZY}" ; /ss:erx \ string substitution
Bad XYZZY found here
ss:= -e "${foo:4:5}" ; /ss:erx \ sub-string extraction
magic
ss:= -e "${foo#*\ }" ; /ss:erx \ lop a little
magic found here
ss:= -e "${foo##*\ }" ; /ss:erx \ lop a lot
here
ss:= -e "${foo%\ *}" ; /ss:erx \ chop a little
Bad magic found
ss:= -e "${foo%%\ *}" ; /ss:erx \ chop a lot
Bad
co:hup \ hang-up coproc

-fin-
ok
:) --
me

Host as resource, three shells and a Forth:
:) frogd
ELF32X86_64 Frog Version 1.0d

co:start
-- IPC:HR: 5
-- IPC:HW: 4
-- CO:PID: 603
-- COPROC ready ok
"ps" /sys PID TTY TIME CMD
314 pts/1 00:00:00 bash \ parent shell
601 pts/1 00:00:00 frogd \ the Forth
603 pts/1 00:00:00 bash \ coproc shell
606 pts/1 00:00:00 sh \ forked shell
607 pts/1 00:00:00 ps
ok
--
me

Made new word CO:MECHO to echo with the '-e' option.
Using strings directly not parsing with string stack.
) frogd -p extr
Memory allocated from heap 147,722,224: 0 147,656,704 1,024

0x0ELF_32X8_6_64 Frog Version 1.0d

"comecho" demo

Coproc mecho demo

: /merx /co:mecho ipc:rx ; \ co mecho, and ipc receive
co:start \ start coproc
-- IPC:HR: 6
-- IPC:HW: 5
-- CO:PID: 428
-- COPROC ready
'foo="Bad magic found here."' /co:write \ coproc var assignment
ipc:show \ print receive data
'"${foo}"' /merx \ see the coproc var
Bad magic found here.
'"${foo/magic/XYZZY}"' /merx \ string substitution
Bad XYZZY found here.
'"${foo:4:5}"' /merx \ sub-string extraction
magic
'"${foo#*\ }"' /merx \ lop a little
magic found here.
'"${foo##*\ }"' /merx \ lop a lot
here.
'"${foo%\ *}"' /merx \ chop a little
Bad magic found
'"${foo%%\ *}"' /merx \ chop a lot
Bad
co:hup \ hang-up coproc

-fin-
ok--
me

On Tuesday, February 22, 2022 at 4:40:15 PM UTC-6, S Jack wrote:

ok
'eval "echo -n abc|sha512sum"' /co:trx
ddaf35a193617abacc417349ae20413112e6fa4e89a97ea20a9eeee64b55d39a2192992a274fc1a836ba3c23a3feebbd454d4423643ce80e2a9ac94fa54ca49f - ok

Wanted to use a Here String but it always ends in a newline which in this case is
not wanted :(

--
me

Some refinement:
i. For the various co: transfers no strings are composed in the Forth.
Instead the composition takes place in the output buffer via
multiple writes from the Forth. Data from the Forth input buffer
is written directly to the co: output buffer.
i. The gstring parser G is used to parse string input rather than
using a string operator. Thus the Forth does not contribute any
quotes to the data; the data has only the quoting required by the
shell.

:) frogd
ELF32X86_64 Frog Version 1.0d

-p ok
s comecho demo

Coproc mecho demo

: /co:merx /co:mecho ipc:rx ; \ co mecho, and ipc receive
co:start \ start coproc
-- IPC:HR: 6
-- IPC:HW: 5
-- CO:PID: 826
-- COPROC ready
ipc:show \ set receive to print
g foo="Good magic found here." ; /CO:SEND \ coproc var assignment
g ${foo} ; /co:merx \ see the coproc var
Good magic found here.
g ${foo/magic/XYZZY} ; /co:merx \ string substitution
Good XYZZY found here.
g ${foo:5:5} ; /co:merx \ sub-string extraction
magic
g ${foo#*\ } ; /co:merx \ lop a little
magic found here.
g ${foo##*\ } ; /co:merx \ lop a lot
here.
g ${foo%\ *} ; /co:merx \ chop a little
Good magic found
g ${foo%%\ *} ; /co:merx \ chop a lot
Good
co:hup \ hang-up coproc

-fin-
ok
--
me