Under windows 98 the following cpp program will execute system commands
from the REBOL console. If the version of dos used supports redirections,
the output, if any, will appear on the console screen. If not, the results
will appear in the dos box from which command.exe has been invoked. I use
4dos, which does support redirection. The cpp file was compiled using
Borland C++.

Jerry

// command.cpp
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dos.h>
void main()
{
   FILE *fp;
   while(5==5)
        {
      sleep(2);
      if (fp = fopen("f.bat","rt"))
      {
         system("f.bat >& c.txt");
         fclose(fp);
         sleep(2);
         system("erase f.bat");
      }
   }
}

The REBOL function to invoke the system call is:

dos: func [cmd][
    write %f.bat cmd
    wait 2
    print read %c.txt 
    exit
]

Reply via email to