System Commands in PForth

[MichaelM]

Hello Everyone,

I am new to the group. I'm trying to implement a glue routine for running bash commands from Pforth on my mac. I've just started programming in C. I know a Forth string address points to the count byte, but I'm not sure how to convert it to a C string and call system(). Here is what I have tried in pfcustom.c , with the various components separated by dashes:

------
#include <stdlib.h>
-------
static void Shell( const char *Val3 );
-------
static void Shell( const char *Val3 )
{


   int system( const char *Val3 );


}
-------
CustomFunctionTable[2] = Shell;
-------
(CFunc0) Shell
-------
 err = CreateGlueToC( "SHELL", i++, C_RETURNS_VOID, 1 );
    if( err < 0 ) return err;
-------

It compiles fine, but doesn't produce the desired result. My test goal is to have the directory listing appear in the terminal within Pforth. Any ideas or suggestions you may have would be greatly appreciated!

Thank you,

Michael

[Phil Burk]

Hello Michael,

Welcome to the list.

>  I know a Forth string address points to the count byte, but I'm not sure how to convert it to a C string

Check out the ForthStringToC() function here:

https://github.com/philburk/pforth/blob/49a54f16c613407ada65dee32493f4878d199aa1/csrc/pf_text.c#L138

If your Forth terminal is just stdout then the results of the system call should just show up. But if you are drawing Forth output in a graphics window then you may need to redirect stdout to your own text handler.

Phil Burk

--
You received this message because you are subscribed to the Google Groups "pforthdev" group.
To unsubscribe from this group and stop receiving emails from it, send an email to pforthdev+unsubscribe@googlegroups.com.
To post to this group, send email to pfor...@googlegroups.com.
Visit this group at https://groups.google.com/group/pforthdev.
For more options, visit https://groups.google.com/d/optout.

[MichaelM]

Hi Phil,

That's perfect. Thanks!

Michael

To unsubscribe from this group and stop receiving emails from it, send an email to pforthdev+...@googlegroups.com.

[craig.c...@gmail.com]

Hi Michael,

Did you ever get this implemented? I am going to work on popen() and pclose() words so that I can shell out to things like curl/wget and others. Was interested in writing some web API clients like slack, whatever.

Cheers,

Craig