Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

unix:getenv, unix:chdir

Browse source 
FossilOrigin-Name: 59da938df20d3bf9fc7b72184e2ae6dd3f971f20f40c3d245e9cf2201d967cb4
This commit is contained in:
crc 2017-11-10 19:10:33 +00:00
parent c2005b0ea6
commit c9aa72a25d
3 changed files with 12 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

8
interfaces/rre.c
View file

@ -321,6 +321,8 @@ void update_rx() {
#define UNIX_POPEN -8010
#define UNIX_PCLOSE -8011
#define UNIX_WRITE -8012
#define UNIX_CHDIR -8013
#define UNIX_GETENV -8014
CELL unixOpenPipe() {
CELL slot, mode, name;
@ -419,6 +421,12 @@ void execute(int cell) {
a = stack_pop();
write(fileno(ioFileHandles[c]), string_extract(a), b);
break;
case UNIX_CHDIR: chdir(string_extract(stack_pop()));
break;
case UNIX_GETENV: a = stack_pop();
b = stack_pop();
string_inject(getenv(string_extract(b)), a);
break;
default: printf("Invalid instruction!\n");
printf("At %d, opcode %d\n", ip, opcode);
exit(1);

2
interfaces/rre.forth
View file

@ -141,6 +141,8 @@ to send.
~~~
:unix:write (sh-) [ dup s:length ] dip `-8012 ;
:unix:chdir (s-) `-8013 ;
:unix:getenv (sa-) `-8014 ;
~~~
---------------------------------------------------------------