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

add float, address stack effect diagrams

Browse source 
FossilOrigin-Name: ca21010ddad34b91c18fec98f2106b877eadd42c07f168c60fa1c0976e05f32e
This commit is contained in:
crc 2024-09-12 13:21:26 +00:00
parent e802eca967
commit cf00ecef3b
3 changed files with 1175 additions and 1074 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
interface/floatingpoint.retro
View file

@ -298,3 +298,73 @@ dup 'float:operation d:set-source
drop drop
~~~ ~~~
Add float stack effects.
~~~
'-n 'e:to-f d:set-fstack-comment
'FF-F 'f:* d:set-fstack-comment
'FF-F 'f:+ d:set-fstack-comment
'FF-F 'f:- d:set-fstack-comment
'-n 'f:-INF d:set-fstack-comment
'FF- 'f:-eq? d:set-fstack-comment
'F- 'f:-inf? d:set-fstack-comment
'FF-F 'f:/ d:set-fstack-comment
'-F 'f:E d:set-fstack-comment
'-f 'f:E1 d:set-fstack-comment
'-n 'f:INF d:set-fstack-comment
'-n 'f:NAN d:set-fstack-comment
'-F 'f:PI d:set-fstack-comment
'F-F 'f:abs d:set-fstack-comment
'F-F 'f:acos d:set-fstack-comment
'F-F 'f:asin d:set-fstack-comment
'F-F 'f:atan d:set-fstack-comment
'nlu- 'f:between? d:set-fstack-comment
'nm-n 'f:case d:set-fstack-comment
'F-F 'f:ceiling d:set-fstack-comment
'F-F 'f:cos d:set-fstack-comment
'n-m 'f:dec d:set-fstack-comment
'F- 'f:drop d:set-fstack-comment
'FF- 'f:drop-pair d:set-fstack-comment
'F-FF 'f:dup d:set-fstack-comment
'nm-nmnm 'f:dup-pair d:set-fstack-comment
'FF- 'f:eq? d:set-fstack-comment
'-n 'f:fetch d:set-fstack-comment
'F-F 'f:floor d:set-fstack-comment
'FF- 'f:gt? d:set-fstack-comment
'n-m 'f:inc d:set-fstack-comment
'F- 'f:inf? d:set-fstack-comment
'nlu-m 'f:limit d:set-fstack-comment
'FF-F 'f:log d:set-fstack-comment
'FF- 'f:lt? d:set-fstack-comment
'mn-o 'f:max d:set-fstack-comment
'mn-o 'f:min d:set-fstack-comment
'F- 'f:nan? d:set-fstack-comment
'F-F 'f:negate d:set-fstack-comment
'F- 'f:negative? d:set-fstack-comment
'NM-M 'f:nip d:set-fstack-comment
'FG-FGF 'f:over d:set-fstack-comment
'-F 'f:pop d:set-fstack-comment
'F- 'f:positive? d:set-fstack-comment
'FF-F 'f:power d:set-fstack-comment
'F- 'f:push d:set-fstack-comment
'F- 'f:put d:set-fstack-comment
'abc-bca 'f:rot d:set-fstack-comment
'f-f 'f:round d:set-fstack-comment
'F- 'f:sign d:set-fstack-comment
'F-F 'f:signed-sqrt d:set-fstack-comment
'f-f 'f:signed-square d:set-fstack-comment
'F-F 'f:sin d:set-fstack-comment
'F-F 'f:sqrt d:set-fstack-comment
'f-f 'f:square d:set-fstack-comment
'n- 'f:store d:set-fstack-comment
'FG-GF 'f:swap d:set-fstack-comment
'F-F 'f:tan d:set-fstack-comment
'n- 'f:to-e d:set-fstack-comment
'F- 'f:to-number d:set-fstack-comment
'F- 'f:to-string d:set-fstack-comment
'FG-GFG 'f:tuck d:set-fstack-comment
'-F 'n:to-float d:set-fstack-comment
'-? 's:evaluate d:set-fstack-comment
'-F 's:to-float d:set-fstack-comment
'-F 'sigil:. d:set-fstack-comment
~~~

11
interface/stack-comments.retro
View file

@ -26,10 +26,21 @@ comment format this introduces to add them inline.
:d:set-stack-comment (:ss-) :d:set-stack-comment (:ss-)
d:lookup dup n:-zero? [ d:stack &s:keep dip store ] &drop-pair choose ; d:lookup dup n:-zero? [ d:stack &s:keep dip store ] &drop-pair choose ;
:d:set-astack-comment (:ss-)
d:lookup dup n:-zero? [ d:astack &s:keep dip store ] &drop-pair choose ;
:d:set-fstack-comment (:ss-)
d:lookup dup n:-zero? [ d:fstack &s:keep dip store ] &drop-pair choose ;
~~~ ~~~
Add the stack comments for existing words: Add the stack comments for existing words:
~~~
'n- 'pop d:set-astack-comment
'-n 'push d:set-astack-comment
~~~
~~~ ~~~
'ss- 'd:set-source d:set-stack-comment 'ss- 'd:set-source d:set-stack-comment
'n-s 'n:to-string/reversed d:set-stack-comment 'n-s 'n:to-string/reversed d:set-stack-comment

2168
vm/nga-c/image.c
View file

File diff suppressed because it is too large Load diff