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

Evaluate definitions.

This commit is contained in:
sforman 2023-08-11 10:31:53 -07:00
parent 67b60be123
commit 8fab04b02e
3 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
implementations/scheme-chicken/.gitignore vendored Normal file
View File

@ -0,0 +1,2 @@
generate_defs
joy

13
implementations/scheme-chicken/Makefile Normal file
View File

@ -0,0 +1,13 @@
joy: joy.scm defs.scm
csc joy.scm
generate_defs: generate_defs.scm
csc generate_defs.scm
defs.scm: ../defs.txt generate_defs
./generate_defs
clean:
rm generate_defs joy

5
implementations/scheme-chicken/joy.scm
View File

@ -18,11 +18,14 @@
(cond
((is-it? "+") (values (joy-add stack) expression dict))
((is-it? "-") (values (joy-sub stack) expression dict))
((is-it? "mul") (values (joy-mul stack) expression dict))
((is-it? "dup") (values (joy-dup stack) expression dict))
((hash-table-exists? dict symbol) (values stack (append (hash-table-ref dict symbol) expression) dict))
(else (values (cons symbol stack) expression dict))))
(define (joy-add stack) (cons (+ (cadr stack) (car stack)) (cddr stack)))
(define (joy-sub stack) (cons (- (cadr stack) (car stack)) (cddr stack)))
(define (joy-mul stack) (cons (* (cadr stack) (car stack)) (cddr stack)))
(define (joy-dup stack) (cons (car stack) stack))
@ -98,6 +101,6 @@
(hash-table-set! dict (car def_list) (cdr def_list))))
(display (doit "ab cd [[ ]] 23 4 - dup - [true] false"))
(display (doit "ab cd [[ ]] 23 4 - dup - [true] false 23 sqr"))
(newline)