crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add unix:popen and unix:pclose

Browse source 
FossilOrigin-Name: 53698064ecfb0147075a38a1b53a0b62480135b1461c8fd35d99724520f759af
This commit is contained in:
crc 2017-11-05 21:52:49 +00:00
parent f1177aefba
commit 029d08dd4d
3 changed files with 38 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
interfaces/image.c
View file

File diff suppressed because one or more lines are too long

31
interfaces/rre.c
View file

@ -318,6 +318,35 @@ void update_rx() {
#define UNIX_EXEC3 -8007
#define UNIX_WAIT -8008
#define UNIX_KILL -8009
#define UNIX_POPEN -8010
#define UNIX_PCLOSE -8011
CELL unixOpenPipe() {
CELL slot, mode, name;
slot = ioGetFileHandle();
mode = data[sp]; sp--;
name = data[sp]; sp--;
char *request = string_extract(name);
if (slot > 0) {
if (mode == 0) ioFileHandles[slot] = popen(request, "r");
if (mode == 1) ioFileHandles[slot] = popen(request, "w");
if (mode == 3) ioFileHandles[slot] = popen(request, "r+");
}
if (ioFileHandles[slot] == NULL) {
ioFileHandles[slot] = 0;
slot = 0;
}
stack_push(slot);
return slot;
}
CELL unixClosePipe() {
pclose(ioFileHandles[data[sp]]);
ioFileHandles[data[sp]] = 0;
sp--;
return 0;
}
void execute(int cell) {
CELL a, b;
@ -382,6 +411,8 @@ void execute(int cell) {
case UNIX_KILL: a = stack_pop();
kill(stack_pop(), a);
break;
case UNIX_POPEN: unixOpenPipe(); break;
case UNIX_PCLOSE: unixClosePipe(); break;
default: printf("Invalid instruction!\n");
printf("At %d, opcode %d\n", ip, opcode);
exit(1);

5
interfaces/rre.forth
View file

@ -134,6 +134,11 @@ to send.
:unix:kill (nn-) `-8009 ;
~~~
~~~
:unix:popen (sn-n) `-8010 ;
:unix:pclose (n-) `-8011 ;
~~~
---------------------------------------------------------------
# File I/O