Re: Forth stdin and stdout

jihtungpai@xxxxxxxxx writes Re: Forth stdin and stdout

I have a Chinese chess program that I would like to plug into a
graphic interface through UCCI protocol, which takes stdin and stdout.
I know western chess UCI protocol also use the stdin and stdout as
communication channel. So far, I have some troubles doing it in
Win32for and iForth. I wonder if someone have experience in this area
in any flavor of Forth that can be shared.

This is very awkward in iForth for Windows (but also other Forths, as
you may have noticed from the answers up to now).

I did something along the lines you want for the Winboard graphical
chessboard display and GUI under windows:
see ./include/ichess.prf (files winboard.frt etc.) Please consult
the notes in the ./dfwforth/bugs.frt file on redirection. You need
a commandline switch to turn on redirection: #10 (input), #01 (output),
or #11 (both input and output).

( I have found that for most problems you need both the commands piped
from the input, and programmed input from a Forth scripts intermixed.
Simple redirection is normally not sufficient. )

Here's how to to use printf() from iForth. Put the following in a
file c:\input.frt :

-- ---------------------------------------------------------------------------
NEEDS -dynlink

: TEST-FPRINTF2 ( -- )
0 0 0 LOCALS| dll 'printf |
S" msvcrt.dll" LIBRARY-OPEN ABORT" LIBRARY-OPEN failed" TO dll
S" printf" dll LIBRARY-FIND ABORT" LIBRARY-FIND failed" TO 'printf
S\" Number: %d\n" DROP 1234 2 'printf VFOREIGN
S\" Number: %g\n" DROP PI FPUSHD 3 'printf VFOREIGN
S\" Number: float %g, int %d\n" DROP PI FPUSHD 73823 4 'printf VFOREIGN
dll LIBRARY-CLOSE ABORT" LIBRARY-CLOSE failed" ;

TEST-FPRINTF2
BYE
-- ----------------------------------------------------------------------------

Then call iForth as follows:

C:>/dfwforth/ifwinnt/bin/iwserver #01 include iforth.prf include c:\input.frt >test.txt

Note the "#01". Without enabled output redirection, printf()'s result
will end in a Windows bitbucket somewhere.

Also note that floating-point arguments are put on the stack with FPUSHD .

Pay attention to the S\" ..." strings. With S" ..\n" the printf() outputs
something won't find useful.

To use fprintf(), first create a valid FILE* with still other C library
functions. The C library apparently gets confused with stdout, stdin and stderr,
and the common "small-integer == file" tricks won't work. The problem is even
more severe because the iForth commandline is a parallel thread detached from
the main executable (it's input gets redirected twice).

The other approach I am trying is to use the C function calls "fgets"
and "fprintf" from dynamic link library. However, I have troubles
figuring out how to put the parameters on the stack for "fprintf". I
know how to prepare parameters for Win32for and iForth if they are
integer or address. The "fprintf" and "printf" parameters just puzzle
me. Take the following examples:

printf("Number: %d", 1234);
fprintf(stdout,"Number: %d", 1234);

What will be the parameters arrangement on the stack in Win32for or
iForth?

This is demonstrated above, but note that "stdout" will never work
for the Windows iForth. I suggest to create a valid FILE* to use here.
I warn against trying to get smart with fdopen() -- I wasted a few
fruitless hours with it already.

One related question: how do you pass floating number parameter?

Demonstrated above, use help FPUSHD for explanations.

-marcel

.

Relevant Pages

  • Re: Forth stdin and stdout
    ... which takes stdin and stdout. ... Win32for and iForth. ... the notes in the ./dfwforth/bugs.frt file on redirection. ...
    (comp.lang.forth)
  • Re: llseek - not an easy question!
    ... > FWIW, you keep referring to stdout, but note that all those llseek calls ... Why is the file pointer for stdin ... Is that how redirection in a cshell actually works? ... The processes are being kicked off in a cshell like this: ...
    (comp.unix.solaris)
  • [9fans] rc output redirection
    ... I got confused by output redirection, even though I have used it like ... this pipes cmd1 stdout to cmd2's stdin and finally cmd2's stdout is ... piped to cmd3's stdin. ... All cmdstderr are displayed ...
    (comp.os.plan9)
  • Re: How to redirect stdout to stdin?
    ... stdout of nc to its stdin. ... A similar question is how to use IO redirection to set up a ... $ mkfifo F ...
    (comp.unix.shell)
  • Re: why standard files?
    ... opened namely STDIN, STDOUT, STDERR. ... an output data stream that the program can write it's normal ...
    (comp.lang.c)