sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Regularize defs.txt. 

All three main interpreters use the same defs.txt file.
This commit is contained in:
Simon Forman 2023-02-14 10:23:23 -08:00
parent 2700ab8a7f
commit 5ce30d41c3
5 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
implementations/C/Makefile
View File

@ -16,6 +16,9 @@ joy: ${OBJS} $(STATIC_GCLIB)
joy.o: joy.h definitions.h
defs.txt: ../defs.txt
cp -fv ../defs.txt defs.txt
definitions.c: defs.txt convert_defs.py
python convert_defs.py > $@

4
implementations/C/definitions.c
View File

@ -272,8 +272,8 @@ init_defs(void)
def__map1_body = text_to_expression("stackd shift");
def__map2_body = text_to_expression("[infrst] cons dipd roll< swons");
def___REVERSE_SOLIDUS_SOLIDUS___body = text_to_expression("[not not] [not] branch");
def_SOLIDUS_REVERSE_SOLIDUS_body = text_to_expression("[pop false] [not not] branch");
def_REVERSE_SOLIDUS_SOLIDUS_body = text_to_expression("[not not] [pop true] branch");
def_SOLIDUS_REVERSE_SOLIDUS_body = text_to_expression("[not not] ii [pop false] [] branch");
def_REVERSE_SOLIDUS_SOLIDUS_body = text_to_expression("[not not] ii [] [pop true] branch");
}

4
implementations/C/defs.txt
View File

@ -127,5 +127,5 @@ _map0 [_map1] dipd _map2
_map1 stackd shift
_map2 [infrst] cons dipd roll< swons
_\/_ [not not] [not] branch
/\ [pop false] [not not] branch
\/ [not not] [pop true] branch
/\ [not not] ii [pop false] [] branch
\/ [not not] ii [] [pop true] branch

4
implementations/Nim/defs.txt
View File

@ -127,5 +127,5 @@ _map0 [_map1] dipd _map2
_map1 stackd shift
_map2 [infrst] cons dipd roll< swons
_\/_ [not not] [not] branch
/\ [not not ] ii [pop false] [] branch
\/ [not not ] ii [] [pop true] branch
/\ [not not] ii [pop false] [] branch
\/ [not not] ii [] [pop true] branch

4
implementations/defs.txt
View File

@ -127,5 +127,5 @@ _map0 [_map1] dipd _map2
_map1 stackd shift
_map2 [infrst] cons dipd roll< swons
_\/_ [not not] [not] branch
/\ [not not ] ii [pop false] [] branch
\/ [not not ] ii [] [pop true] branch
/\ [not not] ii [pop false] [] branch
\/ [not not] ii [] [pop true] branch