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

Load defs at compile time. 

I don't really know the proper way to do this, but I managed to whump
something up.
This commit is contained in:
sforman 2023-08-11 10:48:33 -07:00
parent 8fab04b02e
commit 3382d0a47e
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
implementations/scheme-chicken/Makefile
View File

@ -1,6 +1,6 @@
joy: joy.scm defs.scm joy: joy.scm defs.scm
csc joy.scm csc -prologue defs.scm joy.scm
generate_defs: generate_defs.scm generate_defs: generate_defs.scm
csc generate_defs.scm csc generate_defs.scm
@ -9,5 +9,5 @@ defs.scm: ../defs.txt generate_defs
./generate_defs ./generate_defs
clean: clean:
rm generate_defs joy rm generate_defs joy defs.scm

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

@ -1,8 +1,11 @@
(import (chicken io)) (import (chicken io))
(import (chicken string)) (import (chicken string))
(import srfi-69) (import srfi-69)
(load "defs.scm")
;(load "defs.scm") ; csc -prologue defs.scm joy.scm
(cond-expand
(chicken-script (load "defs.scm"))
(else))
(define (joy stack expression dict) (define (joy stack expression dict)
(if (null? expression) (if (null? expression)
@ -20,8 +23,9 @@
((is-it? "-") (values (joy-sub stack) expression dict)) ((is-it? "-") (values (joy-sub stack) expression dict))
((is-it? "mul") (values (joy-mul stack) expression dict)) ((is-it? "mul") (values (joy-mul stack) expression dict))
((is-it? "dup") (values (joy-dup 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)) ((hash-table-exists? dict symbol)
(else (values (cons symbol stack) expression dict)))) (values stack (append (hash-table-ref dict symbol) expression) dict))
(else (error "Unknown word."))))
(define (joy-add stack) (cons (+ (cadr stack) (car stack)) (cddr stack))) (define (joy-add stack) (cons (+ (cadr stack) (car stack)) (cddr stack)))
(define (joy-sub stack) (cons (- (cadr stack) (car stack)) (cddr stack))) (define (joy-sub stack) (cons (- (cadr stack) (car stack)) (cddr stack)))
@ -101,6 +105,6 @@
(hash-table-set! dict (car def_list) (cdr def_list)))) (hash-table-set! dict (car def_list) (cdr def_list))))
(display (doit "ab cd [[ ]] 23 4 - dup - [true] false 23 sqr")) (display (doit "12 23 [[ ]] 23 4 - dup - [true] false 23 sqr"))
(newline) (newline)