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

add unix:kill

Browse source 
FossilOrigin-Name: 7b1b1c28f982ca18ae5694507307306b47413c373e1d6f4e8d096d798793ae0c
This commit is contained in:
crc 2017-11-05 02:51:13 +00:00
parent 66c05fc508
commit f1177aefba
3 changed files with 14 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

5
interfaces/rre.c
View file

@ -21,6 +21,7 @@
#include <netdb.h>
#include <errno.h>
#include <sys/wait.h>
#include <signal.h>
/* Configure Nga (the VM) Limitations */
#define CELL int32_t
@ -316,6 +317,7 @@ void update_rx() {
#define UNIX_EXEC2 -8006
#define UNIX_EXEC3 -8007
#define UNIX_WAIT -8008
#define UNIX_KILL -8009
void execute(int cell) {
CELL a, b;
@ -377,6 +379,9 @@ void execute(int cell) {
case UNIX_EXIT: exit(stack_pop()); break;
case UNIX_GETPID: stack_push(getpid()); break;
case UNIX_WAIT: stack_push(wait(&a)); break;
case UNIX_KILL: a = stack_pop();
kill(stack_pop(), a);
break;
default: printf("Invalid instruction!\n");
printf("At %d, opcode %d\n", ip, opcode);
exit(1);

7
interfaces/rre.forth
View file

@ -127,6 +127,13 @@ the wait() system call.
:unix:wait (-n) `-8008 ;
~~~
`unix:kill` terminates a process. Takes a process and a signal
to send.
~~~
:unix:kill (nn-) `-8009 ;
~~~
---------------------------------------------------------------
# File I/O